---

Hallo,

Ich habe ein Problem bei der Makroprogrammierung, wenn ich mit den Befehlen GetCoordinate bzw. SetCoordinate arbeite.
CATIA bringt dann immer in der Zeile mit dem Befehl einen Fehler. Mit größter Wahrscheinlichkeit liegt das ja an mir, dass heißt ich denke ich hab entweder was nicht richtig definiert oder noch einen Fehler im Aufbau des Makros - keine Ahnung.
Es wäre schön wenn mal jemand über den Code schauen könnte und mir Tipps geben kann.
Das Makro ist in der Sprache MS VBScript (*.catvbs) geschrieben, unter Release 19 SP 3!
Das ist nur mal ein Beispiel - Das problem tritt bei mir immer mit diesen Befehlen auf, weil ich es halt auch immer so aufbaue. 

Sub CATMain()

'Geometrisches Set in Bearbeitung definieren!

Set Dokument=CATIA.ActiveDocument
Set PunktePart=Dokument.Part
Set HBody=PunktePart.HybridBodies.Item("Punkte")
PunktePart.InWorkObject=HBody

Set selection1 = Dokument.Selection
selection1.Clear
selection1.Search".Point.Name=*,all"
AnzahlSelekt=selection1.Count
MsgBox(AnzahlSelekt)

Set Auswahl=selection1.Item(1)
Auswahl.Value.GetCoordinates acoord
MsgBox("x="&acoord(0)&", y="&acoord(1)&", z="&accoord(2))

End Sub

Vielen Dank schon einmal!

Gruß,
El Froggo

[Diese Nachricht wurde von El Froggo am 04. Nov. 2010 editiert.]

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

---

Servus
Versuch es mal so:

Code:

---

Sub CATMain()

'Geometrisches Set in Bearbeitung definieren!

Set Dokument = CATIA.ActiveDocument
Set PunktePart = Dokument.Part
Set Hbody = PunktePart.HybridBodies.Item("Punkte")

Set selection1 = Dokument.Selection
selection1.Clear

selection1.Add Hbody
selection1.Search "CATGmoSearch.Point,sel"

AnzahlSelekt = selection1.Count
MsgBox (AnzahlSelekt)

Set Auswahl = selection1.Item(1).Value
Dim acoord(2)
Auswahl.GetCoordinates acoord
MsgBox ("x=" & acoord(0) & ", y=" & acoord(1) & ", z=" & acoord(2))
End Sub

---

Gruß
Bernd

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

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

---

Hallo Bernd,

danke für die schnelle Hilfe.
Der Code funktioniert!
Ich versteh zwar nicht 100%ig was du da geändert hast, aber ich glaub das muss ich für meine Anwendung auch nicht. 
Bin noch blutiger Anfänger in der Makroprogrammierung.

Also Danke und Gruß,
El Froggo

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

---

Hallo El Froggo,

entscheidend an Bernds Änderung ist die Dimensionierung des Arrays für die Punktkoordinaten.

Grüße
Alex

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