Macro for "new from" product 1

[TiagoFigueiredo]

I need a macro to create the function "New from", for principal product and for it's parts.
I found an way to do, but only for the principal product, all of it's parts remains the same, and I want to create new ones. The principal product and it's parts or products.

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim productDocument1 As ProductDocument
Set productDocument1 = documents1.NewFrom("C:\CATIA Library\STANDARDS\Springs\cilindro a gas\Cilindro a gas.CATProduct")

End Sub

but in this way, only the Cilindro a gas.CATProduct has been performed the new from function. None of it's parts has been performed the new from.

So I want to pass from this:

to this:

After this, I want to rename all of its parts, and save in a new destination folder.


Tiago Figueiredo
Tooling Engineer

 

[ferdo]

Tiago, I'm working for a VAR and I have all licenses. Most probably you don't have that license.

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

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

- EU

 

[Costin Ruja]

Calin, if you can do it, an option like this one would be useful.

Right now all the new parts get dumped in only one folder.

Thanks !

Best regards,
Costin Ruja

 

[TiagoFigueiredo]

it's so unfair world....

Tiago Figueiredo
Tooling Engineer

 

[cilici]

Yes, sure, I suspect 'keep directory structure' is easy to implement. But that would be next week
I'll be back

Calin

 

[JeniaL]

Is it possible to keep away from licenses? Seems to be pretty useful application but PX1...I'm not able to run this app. don't know if it's because of PX1 or system (Catia V5R26, Win10). Could you please share source code? I'm not able to contact you thru LinkedIn (Have to pay for some features like messaging).

 

[cilici]

And back...
@Jenial: I have no idea why DS implemented this license check while creating the SendToService object. Interesting enough, using the SendToDirectory manually through V5 GUI does NOT prompt for PX1 license.
To summarize: automation of SendTo requires PX1. Feel free to contact your VAR and ask them: WHY!?

In the attachment is the newest version with the "Keep directory structure" option. Please note that if there is no common path, the option is not available.

Calin

 

[Costin Ruja]

Many thanks !

Best regards,
Costin Ruja

 

[TiagoFigueiredo]

Where do we find that option of send to?

Tiago Figueiredo
Tooling Engineer

 

[cilici]

File -> Send To -> Directory

 

[TiagoFigueiredo]

Many thanks, I never noticed that.

Tiago Figueiredo
Tooling Engineer