Hallo Zoltan,
du hattest vollkommen recht, denn die deklarierung war anscheinend falsch.
Ich habe noch mal meine Scharniere umbenannt und die Parameter sowie die referenzen einzeln deklariert.
vielen herzlichen Dank!
hier nach mal der ganze text falls es jemand brauchen könnte:
'--------------------------------------------------------------------------------
'Scharniere positionieren--------------------------------------------------------
Dim param_u_ut As Parameters, param_u_ot As Parameters
Set param_u_ut = part1.Parameters
Set param_u_ot = part1.Parameters
'Scharnier unten---
Dim RefS_u_ot As Reference, RefASu1 As Reference, RefASu2 As Reference
Dim AbsolutAxis As AxisSystem
Dim untScharnier_ot, untScharnier_ut As HybridShapeSurfaceExplicit
Set untScharnier_ot = param_u_ot.Item("S_u_ot")
Set untScharnier_ut = param_u_ut.Item("S_u_ut")
Set AbsolutAxis = axisSystems1.Item("Absolutes Achsensystem") 'Achtung achsensystem german!
Set RefS_u_ot = part1.CreateReferenceFromObject(untScharnier_ot)
Set RefS_u_ut = part1.CreateReferenceFromObject(untScharnier_ut)
Set RefASu1 = part1.CreateReferenceFromObject(AbsolutAxis)
Set RefASu2 = part1.CreateReferenceFromObject(Axis1)
Dim TransU_ot, TransU_ut As HybridShapeAxisToAxis
Set TransU_ot = Wzk3DH.AddNewAxisToAxis(RefS_u_ot, RefASu1, RefASu2)
Set TransU_ut = Wzk3DH.AddNewAxisToAxis(RefS_u_ut, RefASu1, RefASu2)
SPosition.AppendHybridShape TransU_ot
SPosition.AppendHybridShape TransU_ut
part1.Update
'Scharnier oben---
Dim param_o_ut As Parameters, param_o_ot As Parameters
Set param_o_ut = part1.Parameters
Set param_o_ot = part1.Parameters
'Scharnier unten---
Dim RefS_o_ot As Reference, RefASo1 As Reference, RefASo2 As Reference
Dim obScharnier_ot, obScharnier_ut As HybridShapeSurfaceExplicit
Set obScharnier_ot = param_o_ot.Item("S_o_ot")
Set obScharnier_ut = param_o_ut.Item("S_o_ut")
Set AbsolutAxis = axisSystems1.Item("Absolutes Achsensystem")
Set RefS_o_ot = part1.CreateReferenceFromObject(obScharnier_ot)
Set RefS_o_ut = part1.CreateReferenceFromObject(obScharnier_ut)
Set RefASo1 = part1.CreateReferenceFromObject(AbsolutAxis)
Set RefASo2 = part1.CreateReferenceFromObject(Axis2)
Dim TransO_ot, TransO_ut As HybridShapeAxisToAxis
Set TransO_ot = Wzk3DH.AddNewAxisToAxis(RefS_u_ot, RefASo1, RefASo2)
Set TransO_ut = Wzk3DH.AddNewAxisToAxis(RefS_u_ut, RefASo1, RefASo2)
SPosition.AppendHybridShape TransO_ot
SPosition.AppendHybridShape TransO_ut
part1.Update
meine 2 Achsen(target) wurden vorher schon generiert und meine scharniere sind eben meine toten Flächen.
DANKE
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP