Hallo,
dein Link aus deinem ersten Beitrag funzt nicht. Darum versuche ich jetzt mal einen Schuss ins Blaue.
Du möchtest eine Powercopy instanzieren, die innerhalb eines CATParts abgelegt ist. Das Part liegt im Filesystem.
Sub CATMain
Set PartDocument1 = Catia.ActiveDocument
Set part1 = PartDocument1.Part
Set Body1 = Part1.Bodys.Item(1)
Set instanceFactory = part1.GetCustomerFactory("InstanceFactory")
instanceFactory.BeginInstanceFactory "Mein PowerCopy", "C:\temp\Part1.CATPart"
instanceFactory.BeginInstantiate
instanceFactory.PutInputData "PartBody", Body1
instanceFactory.Instantiate
instanceFactory.EndInstantiate
instanceFactory.EndInstanceFactory
part1.update
End Sub
Ich denke so sollte es grundsätzlich gehen. Deine Inputelemente musst du natürlich noch entsprechend definieren. Erforderlich ist eine KT1 Lizenz.
------------------
MfG
Randle
! It's not a bug, it's a feature !
[Diese Nachricht wurde von Randle am 14. Jul. 2009 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP