Hallo zusammen,
ich möchte via Skript innerhalb eines Parts eine Publication ändern.
Die Publication soll nicht mehr auf das bisherige Geometrielement (z.B. Linie1)verweisen, sondern ein anderes verwenden (z.B. Linie2)
Eigentlich dachte ich das dies über den SetDirect-Befehl funktioniert. Aber leider klappt es nicht. Bekomme im besten Fall nur die Meldung das SetDirect failed.
Anbei mein Code myprod ist hierbei die Partinstanz im Product und mypart ist das eigentliche Partobjekt.
Set myprod = PN
Set mypart = PN2
Set myline_eg = mypart.FindObjectByName ("Achse_Lenkwelle_bei_EG")
Set ref_myline_eg = mypart.CreateReferenceFromObject (myline_eg)
Set myline_dg = mypart.FindObjectByName ("Achse_Lenkwelle_bei_DG")
Set ref_myline_dg = mypart.CreateReferenceFromObject (myline_dg)
Set mypubs = myprod.Publications
Set mypub = mypubs.Item("Achse_Lenkwelle")
For each para in mypart.Parameters
If instr (para.name, "Gelenkart") <> 0 then
Set mypara = para
Exit For
end if
Next
If mypara.value = "Doppelgelenk" then
mypubs.SetDirect mypub, ref_myline_dg
elseif mypara.value = "Einfachgelenk" then
mypubs.SetDirect mypub, ref_myline_eg
end if
mypart.Update
End Sub
Vielleicht hat jemand hierzu 'ne Idee.
Viele Grüsse aus dem noch nicht verschneiten Süden.
Crio
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP