---

Liebe Forumsmitglieder,

Ich verwende Architecture 2009 und versuche auf die Eckpunkte eines Deckenobjektes (AecSlab aus der Bibliothek AecXArchBase) zuzugreifen. Leider habe ich bisher keinen Erfolg gehabt. Ich bin praktisch auf der Suche nach einer Funktion wie die "Coordinate"- Funktion der Acad3DPolyline, die mir die vertices des Objektes zurückliefert.

Liebe Grüße
Martin

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

---

Wir haben jetzt selbst eine Lösung für das Problem gefunden. Um die Eckpunkte eines beliebigen Entitys zu erhalten (also auch eines Aecslabs - Deckenobjektes), muss ich das Entity einfach mit sich selbst verschneiden. Die Verschneidung liefert dann die Verschneidungspunkte (also die Eckpunkte zurück). Das ganze geht dann ganz einfach:

Code:

---

Dim entity As AcadEntity
Dim Eckpunkte As Variant
   
For Each entity In ThisDrawing.ModelSpace
    Eckpunkte = entity.IntersectWith(entity, 2)
Next

---

Grüße
Martin

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