定義座標

[Angelo2449]

皆さんこんにちは。
コマンド:

(defun c:areapc (/ pt1 pt2 エリア retino stringaout))
(setq pt1 (getpoint "内部のポイントをクリック: ")

(runapp "c:\autocadsupport\\\\libertytre\trattcolori.exe"c:\\\autocadsupport\\\\libertytre\\\\\trattcolori.tkn" :vlax-true)
(setq stringaout (getcliptext) ) (setq stringaout )

(= 終了文字列アウト)
(プログ)
("interrupted関数")
(vl-exit-with-error "プログラムからの終了")
;;;
;;;

(コマンド "_bhatch" "_pr" "_s" pt1 ")
(setq retino (内部))
(コマンド "_area" "_o" "_last")

(/= stringaout "no")
(コマンド "_change" retino "_p" "_color" 文字列")
;;;

(プライン「\narea」)
(seqエリア)
(setcliptext (rtos 区域 2 2))))
(setq pt2 (getpoint "\nclick the element of value of the area"))))
(コマンド "_text" pt2 0.4 0.0 (文字列 "area m2 = "(rtos area 2))))

(/= stringaout "no")
(コマンド "_change" "_last" "_p" "_color" stringaout")
;;;

(setcliptext (rtos 区域 2 2))))

(= "no" 文字列アウト)
(コマンド "_erase" retino")
;;;
;;;

私は内部のポイントをクリックし、私はPT2で値を書き出す領域を抽出する領域の控除を定義します。
また、上記のようなpt1を記述する図の外で計算された点で領域の値を記述する機会を持つしたいと思います。
可能であれば、このポイントを計算しますか?
お問い合わせ