Need help in saving a screenshot in CATVBscript

[Aviatorbarath]

HI
I would like to save the screen shot/snapshot in the same folder where My actual screenshot.CATvbs present.


fileloc = [highlight #CC0000]"D:\Screenshot/"[/highlight]
Dim exten
exten = ".jpeg

i don wanna use the specific file location to be saved..any code to grab the location of the current VBScript location and save it in the same folder

any suggestions

Thanks
Barath

 

[ferdo]

Hi,

You can search the forum (or Internet) to see how you can save using method "Browse for folder", this will give you opportunity to choose where to save the file.

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[Aviatorbarath]

Hi Ferdo
Thanks for replying

Actually i don wanna choose the saving location..I jus wanna save the picture in the same folder where active cat part is.. My need is something like this..to get the file path of active cat part.. any function to retrieve the file path of opened active cat part ???

Thanks
Barath

 

[ferdo]

You can use something like bellow (and continue with your code)...

Sub CATMain()

Dim myPart As CATIADocument ' AnyObject
Set myPart = CATIA.ActiveDocument
msgbox myPart.Path 'Full Path
msgbox myPart.Name 'File Name

End Sub

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/