Danke schon mal für die Antwort. Ich habs jetzt nach dem Motto versucht. Raus gekommen ist das:
Sub CATMain()
'---- Aktuelles Dokument festlegen
Dim FactorytestDocument As PartDocument
Set FactorytestDocument = CATIA.ActiveDocument
Dim Factorytest As Part
Set Factorytest = FactorytestDocument.Part
'---- Factory instantiieren
Dim factory As InstanceFactory
Set factory = Factorytest.GetCustomerFactory("InstanceFactory")
factory.BeginInstanceFactory "UDF_Beispiel", "C:\Users\BAAB42~1\Catia\Vorlagen Bachelorarbeit\CAD_Vorlagen\Beispiel_UDF.CATPart"
factory.BeginInstantiate
'----- Inputs setzten
Dim Ebene As Object
Set Ebene = Factorytest.FindObjectByName("xy-Ebene")
Dim Punkt As Object
Set Punkt = Factorytest.FindObjectByName("Punkt.1")
factory.PutInputData "Ebene", Ebene
factory.PutInputData "Punkt", Punkt
'---- Instantiieren
Dim Instance As ShapeInstance
Set Instance = factory.Instantiate
factory.EndInstanceFactory
Factorytest.Update
End Sub
Beim Ausführen kommt jedoch ein Fehler bei den factory.PutInputData Zeilen
Die Methode für das Objekt ist fehlgeschlagen. Wo liegt denn da mein Fehler?
------------------
bau den sofa grade
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP