Current View Capture

I made this script for capturing screenshots to files automatically. You can create image file ( bmp, tga, jpg, pcx, png, tif ) from current view with using Rhino -ViewCaptureToFile

I used this for making sequence for animation Alphabetical Echo

Note:

- Write to PathToFile like C:\Users , without final "\"
- Extension can be bmp, tga, jpg, pcx, png or tif
- Don't forget to set Activate to "False" before close the GH file

UserObject: Current View Capture.ghuser | UserObject lies in User/Default menu
Example GH file: Current View Capture.gh

Tags: VB, screen-shot

Attachments:

Current View Capture.ghuser, 7 KB
Current View Capture.gh, 7 KB

▶ Reply to This

Replies to This Discussion

Permalink Reply by ryles on September 3, 2011 at 1:04pm

nice, thank you!

▶ Reply

Permalink Reply by cbass on September 20, 2011 at 10:30pm

Great video, especially liked the audio, which is often neglected...

cbass

▶ Reply

Permalink Reply by Eduard Haiman on September 21, 2011 at 12:36am

Thanks

▶ Reply

Permalink Reply by sivam krish on October 14, 2011 at 3:08pm

Wonder if there is any instructions for using this ?

Sivam

▶ Reply

Permalink Reply by Nay Soe on October 23, 2011 at 11:45pm

can you show how this works? i can only make one frame, since it's a toggle. How did you do the animation?

▶ Reply

Permalink Reply by Eduard Haiman on October 26, 2011 at 10:19am

You can use Timer and Counter by Kangaroo, SPM or Firefly for create new name. When name change (if Activate is True) new file is created.

See example of definition

Attachments:

Current View Capture Counter4filename.png, 252 KB
Current View Capture Counter4filename.gh, 7 KB

▶ Reply

Permalink Reply by Dan Tartaglia on October 26, 2011 at 9:42am

Great tool. I made a slight change to the code so that when you set the boolean to true, it checks if the file name already exists. If it does it appends a number to the name. This way you can create multiple capture files. For example:

filename-0.png

filename-1.png

filename-2.png

Code I added:

    'Dim FullName As String = PathToFile & "\" & FileName & "." & Extension
    Dim i As Integer
    Dim FullName As String = PathToFile & "\" & FileName

    While File.Exists(FullName & "-" & i & "." & Extension) = True
      i = i + 1
    End While

FullName = FullName & "-" & i & "." & Extension

...another possibility is to add a timer along with an additional input for the time interval.

Dan

▶ Reply

Permalink Reply by Eduard Haiman on October 26, 2011 at 9:57am

This is a useful change but I don't added this function because it is limiting way of numbering. In one may case I need use numbering as 001,002,... but in another case I need A,B,... I decided that more flexible means are creating file name separately from this component.

▶ Reply

Permalink Reply by Dan Tartaglia on October 26, 2011 at 10:10am

I'm new to GH but I know there are a number of uses for this tool. There are probably a hundred ways it could be modified for any number of purposes. It was great that you create it.