---

Hallo Makro-Freunde,

würde gerne eine Achse auf einen von mir bestimmten Punkt einfügen.
Der Punkt liegt in einem Körper, nicht in einem GeoSet. Der Körper wird über die InputBox: Eingabe1 und der gewünschte Punkt über die InputBox: Punkt1 definiert!
Die InputBox funktioniert ohne Probleme, aber dann kommt die Fehlermeldung: Item-Verfahren fehlgeschlagen!
Kann ich das überhaupt mit Item machen oder muss ich da eine andere Funktion wählen?

Kann mir jemand weiter helfen?

Hier mein Makro:
Anmerkung: das Makro Eingabe1 hab ich hier nicht aufgezeigt!

Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set axisSystems1 = part1.AxisSystems

Set axisSystem1 = axisSystems1.Add()

axisSystem1.OriginType = catAxisSystemOriginByPoint

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item(" & Eingabe1 & ")

Set hybridShapes1 = body1.HybridShapes

Punkt1 = "Referenzpunkt1"
Punkt1 = InputBox ("Hier den Referenzpunkt 1 eingeben", "Punkt1 Referenzpunkt1", Punkt1)

Set hybridShapePointCoord1 = hybridShapes1.Item("Punkt. & Punkt1 & ")

Set reference1 = part1.CreateReferenceFromObject(hybridShapePointCoord1)

axisSystem1.OriginPoint = reference1

axisSystem1.XAxisType = catAxisSystemAxisByCoordinates

Dim arrayOfVariantOfDouble1(2)
arrayOfVariantOfDouble1(0) = 1.000000
arrayOfVariantOfDouble1(1) = 0.000000
arrayOfVariantOfDouble1(2) = 0.000000
axisSystem1.PutXAxis arrayOfVariantOfDouble1

axisSystem1.YAxisType = catAxisSystemAxisByCoordinates

Dim arrayOfVariantOfDouble2(2)
arrayOfVariantOfDouble2(0) = 0.000000
arrayOfVariantOfDouble2(1) = 1.000000
arrayOfVariantOfDouble2(2) = 0.000000
axisSystem1.PutYAxis arrayOfVariantOfDouble2

axisSystem1.ZAxisType = catAxisSystemAxisByCoordinates

Dim arrayOfVariantOfDouble3(2)
arrayOfVariantOfDouble3(0) = 0.000000
arrayOfVariantOfDouble3(1) = 0.000000
arrayOfVariantOfDouble3(2) = 1.000000
axisSystem1.PutZAxis arrayOfVariantOfDouble3

part1.UpdateObject axisSystem1

axisSystem1.IsCurrent = True

part1.Update

End Sub

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

---

Hallo Spritty,

ich glaube Deine "Text-Strings" sind falsch:
Es sollte ....Item(Eingabe1) und ....Item("Punkt." & Punkt1) heißen.
Wenn Du nicht mit "HybridDesign" arbeitest, sollte es aus meiner Sicht auch "Set bodies1 = part1.HybridBodies" lauten, doch das kommt auf die wirkliche Struktur an!

mfg,
Lusilnie

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

---

Hallo Lusilnie,

vielen Dank für deine Hilfe, so funktioniert es! Jetzt hab ich noch eine Frage. Ich würde gerne eine AchseY auf den PunktX1 verschieben. Wie komm ich an die AchseY ran?
Hier mein Strukturbaum im CATPart:

BodyX
-AchseX
-BlockX
-PunktX1
-PunktX2
BodyY
-AchseY
-BlockY
-PunktY1
-PunktY2

Vielleicht hat jemand eine Idee?! Bin hier nämlich kurz vor dem Verzweifeln!

Vielen Dank
Gruß
Spritty

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