calculation area with a click

[Angelo2449]

Hello everyone,
Does anyone know if there is a code to calculate the area of a rectangle by clicking inside it?
Thank you.

 

[Cristallo]

(defun c:areap)

(command "_bpoly" pause")
(setq obj (entlast))
(command "_area" "_o" obj)

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

(in the obj)
)

ovviamente da affinare, ma funzionante al 100%

Oppure

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

fornendogli and giusti input