クリックで計算エリア

[Angelo2449]

皆さんこんにちは。
内側をクリックすることで矩形の領域を計算するコードがあれば誰が知っていますか?
お問い合わせ

 

[Cristallo]

(defun c:areap)

(コマンド「_bpoly」一時停止)
(setq obj (entlast) ) )
(コマンド "_area" "_o" obj)

(setq 領域 txt (rtos))
(setq perimtxt) (rtos (getvar "perimeter"))) 2 2))

(objで)
)

ovviamente da affinare, マ funzionante al 100%

オピュア

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

fornendogli と giusti 入力