---

CATIA_V5_TV123.png

Hallo bei den Makro wie man die Baugruppe per Makro generier war die hilfe gut von euch. Nun habe ich nur noch ein kleines Problem mit den Fixierne der Einzelteile.
Die Baugruppe wird Fixiert. aber wenn ich das Teil Fixiren will Fixiert er nochmal die Baugruppe siehe Bild.

Könntet ihr bitte mal schauen was ich Ändern muss zwichen:
'------------- Test anfang fix teil
...
'------------- Test ende fix teil

Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set parameters1 = product1.Parameters
Set strParam1 = parameters1.Item("TV_Nr")
Name_TV = strParam1.ValueAsString
Set strParam2 = parameters1.Item("NrModul")
Nummer_Modul = strParam2.Value +1

If Nummer_Modul <10 then
Nummer_Modul = 0 & Nummer_Modul
end If

MsgBox Name_TV & vbCrLf & "Modul: " & Nummer_Modul

Name_Modul = Nummer_Modul & "_Modul" & "_" & Name_TV

Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set products1 = product1.Products
Set product2 = products1.AddNewComponent("Product", Name_Modul)

Set constraints1 = product1.Connections("CATIAConstraints")
Set reference1 = product1.CreateReferenceFromName(Name_TV & "/" & Name_Modul & ".1/!" & Name_TV & "/" & Name_Modul & ".1/")
Set constraint1 = constraints1.AddMonoEltCst(catCstTypeReference, reference1)

Set products2 = product2.Products
Name_Platte = "Platte_" & Nummer_Modul & "_" & Name_TV
Set product3 = products2.AddNewComponent("Part", Name_Platte)

'------------- Test anfang fix teil
Set documents1 = CATIA.Documents
Set productDocument2 = documents1.Item(Name_Modul & ".CATProduct")
Set product4 = productDocument2.Product

Set constraints2 = product4.Connections("CATIAConstraints")
Set reference2 = product4.CreateReferenceFromName(Name_Modul & "/" & Name_Platte & ".1/!" & Name_Modul & "/" & Name_Platte & ".1/")
Set constraint2 = constraints2.AddMonoEltCst(catCstTypeReference, reference1)
'------------- Test ende fix teil

Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set parameters1 = product1.Parameters
Set strParam2 = parameters1.Item("NrModul")
strParam2.Value = Nummer_Modul

End Sub

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

---

Hallo Ninja,

kann es sein, dass Du 'reference2' meinst?

Code:

---

'------------- Test anfang fix teil
Set documents1 = CATIA.Documents
Set productDocument2 = documents1.Item(Name_Modul & ".CATProduct")
Set product4 = productDocument2.Product

Set constraints2 = product4.Connections("CATIAConstraints")
Set reference2 = product4.CreateReferenceFromName(Name_Modul & "/" & Name_Platte & ".1/!" & Name_Modul & "/" & Name_Platte & ".1/")
Set constraint2 = constraints2.AddMonoEltCst(catCstTypeReference, reference1)    <-----
'------------- Test ende fix teil

---

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Servus
Ohne den Code getestet zu habe fällt mir auf das du bei "AddMonoEltCst" die falsche Referenz verwendest:

Code:

---

Set constraint2 = constraints2.AddMonoEltCst(catCstTypeReference, reference2)

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

OK Danke das war der Fehler habe die 1 Übersehn.

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