---

Hallo liebe CAD Gemeinde,

ich hoffe ihr habt vielleicht eine Idee für mein Problem.
Ich habe Powercopies erstellt, die ich über ein Makro in Catia einfügen möchte. Wenn ich ein Powercopy ohne Makro in Catia einfüge, kommt ja ein kleines Fenster, in dem ich die Richtungen der einzusetzenden Powercopy festlegen und gegebnenfalls umdrehen kann. Setzte ich eine Powercopy manuell mit Linien, Punkt, Join und Inverse Elementen ein, funktioniert das wunderbar. Wenn ich das ganze über ein Makro starte hab ich das Fenster leider nicht und ich muss die Hauptentformungsrichtung, Befestigungsrichtung..etc. über Linienrichtungen steuern, also ein Join oder Invers erstellen, in denen ich die Richtung einstellen kann.   
Leider läuft das Makro bei der Erstellung der Powercopy dann auf einen Fehler, da, so meine Vermutung, die Powercopy bei der Instanzierung nicht die Elemente an die Powercopy übergibt. Das Makro bricht ab.
Die zu übergebenden Objects wurden vorher über eine User- Selection zugeordnet.
Hat jemand eine Idee, wie ich dem Makro die Richtung angeben kann?

Vielen Dank im Vorraus!

Gruß Patrick

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

---

Hallo Patrick,

um Powercopies über Makros einfügen zu können brauchst du ein KT1 oder PKT Lizenz.
Dann kannst du auf einen Objekt Namens InstanceFactory zugreifen, mit denen die notwendige Referenzen übergeben werden können.
Ohne den Lizenz kenne ich kein Weg.

Gruß,
Zoltan

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

---

Hallo Community,

ich vertrete eben mal den Patrick. Also das mit der KT1 Lizenz ist bekannt und die wird auch benutzt. Das Problem liegt an der Ausrichtung der Elemente (Linien und Flächen), die wir über JOIN oder INVERSE Elemente bewerkstelligen. Setze ich die Powercopy manuell ein, werden diese Elemente auch übernommen. Setze ich die Powercopy per Makro ein kann ich die Elemente selektieren, sie werden bei der Instanzierung aber offensichtlich nicht an die Powercopy übergeben. Hier kurz ein Auszug aus dem Code:

Variablendeclaration:

Public opt as AnyObject

Selection:
    If FixType = "DHs" Or FixType = "DHd" Then
        What4(0) = "Line"
        What4(1) = "Plane"
        What4(2) = "Sketch"
        What4(3) = "HybridShapeInverse"
        What4(4) = "HybridShapeAssemble"

        Set UserSel4 = CATIA.ActiveDocument.Selection
        UserSel4.Clear
        If ShortCut = False Then    'Optionalen Text einschalten wenn ohne ShortCut
            MsgBox ("Entformungsrichtung des Schiebers auswählen [als Linie, Ebene, Sketch, Invers oder Join]"), vbOKOnly
        End If
        US4 = UserSel4.SelectElement2(What4, "Entformungsrichtung des Schiebers auswählen [als Linie, Sketch, Plane, Join, Inverse]", False)

        If US4 = "Normal" Then
            Set opt = UserSel4.Item(1).Value
        Else
            MsgBox ("Bitte Linie, Ebene, Sketch, Invers oder Join auswählen!"), vbCritical
        End If
        UserSel4.Clear
    End If

Instanzierung:

Dim factory As InstanceFactory
    Set factory = PartDest.GetCustomerFactory("InstanceFactory")
    factory.EndInstanceFactory      'nur zur Sicherheit...
    MsgBox ("Diese Powercopy wird eingesetzt: " & Path & PCreq & ".CATPart")
    factory.EndInstanceFactory      'nur zur Sicherheit
    factory.BeginInstanceFactory "PowerCopy.1", Path & PCreq & ".CATPart"
    factory.BeginInstantiate
    factory.PutInputData "OPT", opt                                        ‘### Linie

    Dim Instance
    Set Instance = factory.Instantiate
    factory.EndInstantiate
    factory.EndInstanceFactory

Nimmt man eine normale Linie oder ein dummes Element funktioniert das Makro einwandfrei.

Wäre nett, wenn jemand weiter helfen könnte

Gruß
Harald

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

---

Du kannst doch auch die PowerCopy intelligenter machen, um die Richtung eindeutig festzulegen:
z.B. Points auf Line erzeugen (in beide Richtungen, einen Längenparameter mit Formelbezug zwischen den jeweiligen Punkten und einem deiner Elemente der PowerCopy erzeugen und anhand der gemessenen Längen entscheiden lassen, welche Lösung dann die Richtige ist (in einer Rule mit Fallunterscheidungen, dann einer Datumfläche die Inverse oder die Join zuweisen).
Ich löse das so weit es geht "geometrisch" mit Fallunterscheidungen im Part, nicht extern über Makros. Wenn dein Teil sich danach ändert (Flächen ausgetauscht werden etc.) wüsste ja deine Geometrie nicht, ob Inverse oder Join wenn keine Fallunterscheidung da ist und der User muss beim Replace peinlich genau die Pfeilrichtungen beachten und ggf. drehen. Mit der eingebauten Routine im Part ist es dann egal, was der User an Pfeilrichtungen wählt.

Oder du baust diese Messungen durch Erzeugen neuer Parameter und Formelbezüge in dein Makro, lässt anhand der Parameter dann eine Fallunterscheidung zu ob Join oder Inverse. Dieses Programmieren von Parametern und Formelbezügen ist machbar, aber relativ komplex.

------------------
Grüße aus dem Rheinland

Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

    tberger@tobeplus.de

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

---

Wenn es keine andere Lösung gibt, werden wir die Powercopies wohl noch mal überarbeiten.

Danke fürs Antworten.

Gruß
Harad

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