---

-- Sollte natürlich "...koordinaten" heißen.

Hallo zusammen,

ich habe eine kleine Frage: Ein Makro soll die absoluten Punktkoordinaten folgender Konstellation exportieren:

CATProduct
--> CATPart 1 Instanz 1(positioniert, enthält 2 Punkte)
--> CATPart 1 Instanz 2 (positioniert, enthält logischerweise auch 2 Punkte)

Das Makro soll nun die Koordinaten der insgesamt 4 Punkte exportieren (jeweils nach Farbe).
Ich bekomme es soweit hin, dass alle Punkte selektiert werden. Jedoch werden mit immer nur die Koordinaten relativ zur Achse des CATParts ausgegeben. Ich bräuchte jedoch die absoluten (also zum CATProduct). Hat jemand eine Idee?

Auszug vom Code:

Dim selection1
Set selection1 = document.Selection
selection1.Search "CATPrtSearch.GSMPoint.Color='(255,0,0)',all"

for i = 1 To selection1.Count
Set element = selection1.Item(i)
Set point = element.Value
point.GetCoordinates(coords)
stream.write(coords(0)&trz& coords(1)&trz& coords(2))
Next

Ist mein Denkfehler das "CATPrtSearch" und/oder "element.Value"? Oder muss man da noch was ganz andres einbauen?

Danke und Gruß,
Marco

[Diese Nachricht wurde von mvo am 09. Sep. 2013 editiert.]

[Diese Nachricht wurde von mvo am 09. Sep. 2013 editiert.]

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

---

Servus
Bitte Systeminfo ergänzen.
Du könntest den von "DasDon" beschriebenen Trick probieren: mit der Methode "GetMinimumDistancePoints" kann die absolute Position der Punkte in der Baugruppe ermittelt werden.

Gruß
Bernd

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

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