[討論]直角倒角量量測及標註 機械製圖常用到的功能 LISP試寫

(defun c:ad();auto dimension of chamfer
 (setq p1 (getpoint "\nChoose point A of chamfer:" ))
 (setq p2 (getpoint "\nChoose point B of chamfer:" ))
 (setq l (distance p1 p2))
 (setq an (angle p1 p2))
 (setq hf (/ l 2))
 (setq hfp (polar p1 an hf ))
 (setq rl (abs(* l (cos an))))
 (setq rrl (rtos rl))
 (setq text (strcat "C" rrl))
 
 (command "mleader" hfp pause text "")
 (princ)
 )


各位大哥大姊好，以上是我寫的兩直角線之倒角距離檢測及標註功能。

問題: 目前使用者必須點選倒角的兩個端點才可以使用，不知道能不能寫成==>游標變成一個選取框，點選單一個倒角邊線就好

LISP 載點:
https://drive.google.com/file/d/0B61nY9hX4j4NcVhlSGVNbFdXMnM/view?usp=sharing

可否給個圖說明~你說的標註情形?

我編輯了我原本的文章，我加了示意圖。這個lisp指令一下，user只要點選兩個紅點，它就會自動測倒角距離，並用引線將之標示出來。 但我希望能夠讓user點一個線就好，不必點兩個端點