---

Moin!

Mit einem Makro möchte ich in einem Produkt ein Part anlegen und dieses sofort fixieren.

Der entsprechende Teil des Makros ist:

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As Products
Set products1 = product1.Products

Dim product2 As Product
Set product2 = productDocument1.Product

Set product2 = products1.AddNewComponent("Part", "GitterNetz")
       
Dim productDocument9 As Document
Set productDocument9 = CATIA.ActiveDocument

Dim product9 As Product
Set product9 = productDocument1.Product

Dim constraints5 As Collection
Set constraints5 = product2.Connections("CATIAConstraints")

Dim reference1 As Reference
Set reference1 = product2.CreateReferenceFromName("Produkt1/GitterNetz.1/!Produkt1/GitterNetz.1/")

Dim constraint1 As Constraint
Set constraint1 = constraints5.AddMonoEltCst(0, reference1)

Als Makro für sich funktionieren diese Zeilen.

Diese Zeilen sind aber nur ein Teil des Makros und in diesem Funktioniert es nicht, dort kommt in der Zeile

Set constraints5 = product2.Connections("CATIAConstraints")

Die Fehlermeldung „Runtime error 13    Type mismatch“.

Ich bin dankbar für jeden Hinweis zur Lösung des Problems.

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

---

Moin!

Noch eine Ergänzung zu meinem Problem, das Makro läuft als CATScript, aber nicht als catvba, wie ich es benötige.

Ist es möglich, daß die Funktion "Connections("CATIAConstraints")" mit einem anderen Parameter aufgerufen werden muß?
In Onlinehilfe habe ich dazu aber leider nichts gefunden.

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

---

Probiere es mal mit

Dim constraints5  ' As Collection
    setze        ^
Hat bei mir beim Selection Befehl geholfen. Unter Script kein Problem aber unter VBA ging es dann nicht mehr. Dann habe ich einfach die DIM anweisung "verkürtzt".

------------------
Mit freundlichem Gruß von Carl Tenschert

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

---

Danke schön!
Das hat funktioniert.

Allerdings habe ich ein neues Problem, die so erstellte 'Fixierung' (gilt auch für Fixierungen, die mit einem über 'Makro-Aufzeichnung' erzeugtem Makro erstellt werden) sind nicht richtig fest.
Das heißt wenn ich das 'fixierte' Teil verschiebe kann ich nicht aktualsieren, um das Teil wieder in die Ausgangsposition zurückzubewegen.

MfG Jan

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

---

Moin!

Vielleicht interessiert die Lösung für das letzte Problem ja auch andere:

Es muß noch der Befehl:

  constraint1.ReferenceType = catCstRefTypeFixInSpace

Dann ist das Part richtig fixiert! :-)

Gruss
Jan

[Diese Nachricht wurde von JanF am 04. Februar 2003 editiert.]

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

---

Hallo,

ich muss diesen alten Beitrag nochmals aufwärmen weil ich ein Problem habe:

Alles funzt soweit Klasse auch
constraint1.ReferenceType = catCstRefTypeFixInSpace

allerdings nur unter VBA. Unter VBS (wo ich mein Makro eigentlich benötige) ignoriert er diese Befehlszeile einfach. Sprich keine Fehlermeldung, Makro erfolgreich beendet aber Fixiert im Raum? Nee!

Weis jemand woran dies liegt? Mein Makro lautet so:

' Neu eingefuegte Dateien fixieren **************************************
MyReferenceName = "Product1/Part1.1/!Product1/Part1.1/"
Set Myreference = MyProduct.CreateReferenceFromName(MyReferenceName)
Set MyFix = MyProduct.Connections("CATIAConstraints").AddMonoEltCst(catCstTypeReference, Myreference)
MyFix.ReferenceType = catCstRefTypeFixInSpace

Danke für eure Zuschriften!

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

---

Servus

probiers mal mit

MyFix.ReferenceType = 1

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

---

Ein totales Superding!

Klappt spitze!

Danke!

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