Draw - Zugriff auf Koordinaten von Polygonen und Linien

[dimpflmoser]

Hallo zusammen,

mit folgendem Code greife ich auf das aktuell selektierte Zeichnungsobjekt zu:

Code: Alles auswählen

	Dim objDoc As Object
	Dim objSel As Object
	Dim objSelShape As Object
	
	objDoc = ThisComponent

	objSel = objDoc.CurrentSelection
	
	objSelShape = objSel.getByIndex(0)

Nun ist meine Frage, wie komme ich an die einzelnen Koordinaten von Linien und offenen Polygon. Soweit ich weiß, sind die in einem mehrdimensionalen Array gespeichert - ich hab aber keine Ahnung, wie das heißt oder wie ich daran komme.

Hat jemand eine Idee?

Danke

[mikele]

Hallo,
diese Zeichnungsobjekte besitzen die Eigenschaft .Polygon. Dieses liefert dir ein Array der Punkte.
Ich empfehle dir ein Inspektionstool (Xray oder Mri). Damit kannst du die Objekte nach Herzenslust untersuchen und wirst eine Menge entdecken.