---

Hallo,
ich möchte über InstanceFactory ein UDF aus einem CATPart einfügen.
(Situation: CATProduct geöffnet mit mehreren CATParts, in eines davon soll UDF eingefügt werden.)
Leider scheitert es bei mir schon daran, ein Objekt vom Typ InstanceFactory zu bekommen:
    Dim myInstanceFactory As InstanceFactory
    Set myInstanceFactory = ???
Wer weiß, wie das geht? Bin dankbar für alle Tips...

GeDiNo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Konnte das Problem mit einem Kollegen selber lösen:
Beispiel-Code:

' Part, worin UDF instantiiert werden soll
Dim myPartDoc As PartDocument
Set myPartDoc = ...
Dim myPart As Part
Set myPart = myPartDoc.Part

' Und jetzt die Factory
Dim factory As InstanceFactory
Set factory = myPart.GetCustomerFactory("InstanceFactory")
' nur zur Sicherheit:
factory.EndInstanceFactory

' Verknuepfen mit UDF
factory.BeginInstanceFactory "Name_des_UDF", "c:\Pfad\zum\UDF.CATPart"
factory.BeginInstantiate

' Bsp: Input-Parameter des UDF: "Reference Curve"
Dim InputCurve As AnyObject
Set InputCurve = myPart.FindObjectByName("Input_Kurve")
factory.PutInputData "Reference Curve", InputCurve

' Bsp: UDF hat (internen) Parameter: "Kommentar"
Dim myParam As Parameter
Set myParam = factory.GetParameter("Kommentar")
myParam.ValuateFromString ("BlaBlaBla")

Dim myInstance As AnyObject
Set myInstance = factory.Instantiate

factory.EndInstantiate

factory.EndInstanceFactory

' Und jetzt noch updaten
myPart.Update

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP