Hallo Community,
ich möchte ein PowerCopy über ein Macro starten bzw. ins Part einfügen. Um das Macro bzw. das PowerCopy einfach abänderbar (und für mich etwas einfacher) zu machen, wollte ich den PowerCopy-Aufruf mittels Variablen starten.
Folgender Code funktioniert:
Code:
Dim PartDocumentDest As PartDocument
Set PartDocumentDest = CATIA.ActiveDocumentDim PartDest As Part
Set PartDest = PartDocumentDest.Part
Dim factory As InstanceFactory
Set factory = PartDest.GetCustomerFactory("InstanceFactory")
factory.BeginInstanceFactory "PowerCopy.1", "d:\temp\PowerCopyRef.CATPart"
Will ich aber den Aufruf per Variablen starten, passiert nichts. D.h. Catia bringt keine Fehlermeldung, erzeugt aber auch das PowerCopy nicht.
Hier der geänderte Code:
Code:
Dim PartDocumentDest As PartDocument
Set PartDocumentDest = CATIA.ActiveDocumentDim PartDest As Part
Set PartDest = PartDocumentDest.Part
Dim PCopyName As String
Dim PCopyFile As String
Dim PCopyPath As String
Set PCopyName = "PowerCopy.1"
Set PCopyFile = "PowerCopyRef.CATPart"
Set PCopyPath = "d:\Temp\"
Dim factory As InstanceFactory
Set factory = PartDest.GetCustomerFactory("InstanceFactory")
factory.BeginInstanceFactory PCopyName, PCopyPath & PCopyName
Könnt ihr mir sagen, wo mein Fehler liegt?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP