---

Hallo,

ich habe hier mal gefragt wie ich die Gesamtfläche von Schraffuren eines bestimmten Layer bekomme
https://ww3.cad.de/foren/ubb/Forum54/HTML/035642.shtml

Es gibt hier tolle Hilfen aber ich würde gerne das ohne Zusatzprogramme lösen, kann man das auch mit einer LISP heraus bekommen?
Dabei denke ich hauptsächlich an die Lösung von Piwurzel mit Datenextraktion.

Was stelle ich mir vor:
Layer wählen (mehrere wenn möglich) dann sollen die Flächen der Schraffuren die auf diesen Layer ligen nach Layer zusammengerechnet werden und mir das Ergebnis angezeigt werden. Ich brauch hier am Ende keine Tabellen oder Excel Listen, nur das Ergebnis.

Layer A / B / C wählen
Ergebnis: Layer A =50m2, Layer B=12m2 und Layer C=125m2

Wenn das nicht geht vieleicht geht dann eine Einfache Version mit Layer Name eingeben und Ergebnis erhalten

Layer A Ergebnis: 50m2

könnte man das mit einer LISP erstellen?

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

---

Zitat:

---

Original erstellt von Helmi3000:
könnte man das mit einer LISP erstellen?

---

Ja. Und das kann man sehr einfach feststellen:

(setq obj (vlax-ename->vla-object (car (entsel))))
#<VLA-OBJECT IAcadHatch2 000000006977A070>

(vlax-property-available-p obj 'area
)
T

(vlax-get-property obj 'area)
18587.3556828403

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

---

bin hier Anfänger was das Thema an geht, was genau macht dieser Code?
Ich klicke auf ein Objekt und der sagt mir welche Fläche der hat?

Code:

---

(setq obj (vlax-ename->vla-object (car (entsel))))
#<VLA-OBJECT IAcadHatch2 000000006977A070>

(vlax-property-available-p obj 'area
)
T

(vlax-get-property obj 'area)
18587.3556828403

---

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

---

Zitat:

---

Original erstellt von Helmi3000:
bin hier Anfänger was das Thema an geht, was genau macht dieser Code?
Ich klicke auf ein Objekt und der sagt mir welche Fläche der hat?

Code:

---

(setq obj (vlax-ename->vla-object (car (entsel))))
#<VLA-OBJECT IAcadHatch2 000000006977A070>

(vlax-property-available-p obj 'area
)
T

(vlax-get-property obj 'area)
18587.3556828403

---

---

Du hast im Lisp-Forum nach einer Lösung in Lisp gefragt. Du solltest Dich also ganz, ganz minimal selbst mit Lisp befassen, und dann weisst Du auch,was dieser Code macht.

Oder wolltest Du die Kosten für die Programmierung Deines Problems nachfragen?

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