Hallo,
ich bräuchte mal gerade eure Aufmerksamkeit:
Ich will gerne eine Kongruenzbedingung in der Produktebene erstellen. Dabei ist das erste Element eine 3D - Linie eines reingeladenen Normteils, das andere Element ist ein Punkt auf einer Skizze.
Hier der entsprechende Auszug (Unterroutine) aus dem Makro(VBscript):
sub Positionierung (Steuerskizze, Referenzdokument, ChildProdukt, RootProdukt, UGuss, Skelett)
Set Bedingungen = Childprodukt.connections ("CATIAConstraints")
x = 1
Set Skizzengeometrie = Steuerskizze.geometricelements
y = 1
Set Normteil = Referenzdokument.part
Set HKoerper = Normteil.hybridbodies.item ("Makroreferenz")
for x = 1 to Skizzengeometrie.count
if (Skizzengeometrie.item(x).geometrictype = catgeotypepoint2d) then
if Skizzengeometrie.item(x).construction = false then
for y = 1 to HKoerper.geometricelements.count
if HKoerper.geometricelements.item(y).geometrictype = catgeotypeline then
Set NLinie1 = HKoerper.geometricelements.item(y)
Set RefLinie1 = Normteil.createreferencefromobject (NLinie1)
else
Set NPunkt1 = HKoerper.geometricelements.item(y)
Set RefPunkt1 = Normteil.createreferencefromobject (NPunkt1)
end if
next
Set Referenzprodukte = ChildProdukt.products
Set Normteilprodukt = Referenzprodukte.addexternalcomponent (Referenzdokument)
Set SPunkt2 = Skizzengeometrie.item(x)
Set RefPunkt2 = Skelett.createreferencefromobject (SPunkt2)
msgbox (RefPunkt2.displayname)
Set Lagebedingung = Bedingungen.addbieltcst (catCstTypeOn, RefPunkt2, RefLinie1)
ChildProdukt.update
Rootprodukt.update
end if
end if
next
end sub
Leider bekomm ich als Fehlermeldung, dass dir "Typen unverträglich sind (bei der Methode "AddBiEltCst").
Wäre klasse, wenn mir jemand helfen könnte!
Gruß Jogge
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP