elmundo777
Automotive
- Jun 23, 2020
- 93
Hello
I want to save a product and parts from tree. But SaveAs saves only a product. How can I save with macro all elements from tree?
I know about CreateSendTo(), but get an error. I'm read in forums, that needs PX1 license. But I'm have only hd2\md2.
This macro also don't work.
I want to save a product and parts from tree. But SaveAs saves only a product. How can I save with macro all elements from tree?
I know about CreateSendTo(), but get an error. I'm read in forums, that needs PX1 license. But I'm have only hd2\md2.
This macro also don't work.
Code:
Sub CATMain()
Catia. DisplayFileAlerts = True
Path = CATIA. ActiveDocument.Path
Name = CATIA. ActiveDocument.Name
initial = Path & "A" & Name
Set Folder = CATIA. FileSystem.CreateFolder("oTemp")
oFolder = Path & "OTemp"
Set Send = CATIA. CreateSendTo()
Send.SetInitialFile (initial) ' HERE I'm get an error
Send.SetDirectoryFile (oFolder)
Send.KeepDirectory(1)
Send.Run
End Sub