Berechnungsbereich mit einem Klick

[Angelo2449]

Hallo alle,
Weiß jemand, ob es einen Code gibt, um den Bereich eines Rechtecks zu berechnen, indem er darauf klickt?
Danke.

 

[Cristallo]

(Defun c:areap)

(Befehl "_bpoly" Pause)
(setq obj (entlast)
(Befehl "_area" "_o" obj)

(setq areatxt (rtos)
(setq perimtxt (rtos (getvar "perimeter") 2 2)

(in der Obj)
)

ovviamente da affinare, ma funzionante al 100%

Oppur

(vl-load-com)
(setq areatot (vla-get-area (vlax-ename->vla-object nomeent))

fornendogli und giusti Eingang