弧面标注

德哥

(defun c:hmbz (/ hmbz hmbz1 hmbz2 hmbz3 hmbz6 hmbz7 hmbz8 hmd1 hmd2 )
;(setq hm (ssget))
(setq hmbz6 (getreal "输入半径<18米>:"))
(setq hmbz1 (getpoint "输入顶点:"))
;(setq hmbz2 (getpoint "输入第一点:"))
(setq hmbz2 (getangle hmbz1 "输入第一点:"))
(princ "\n 请选择标注：")
(setq hmbz3 (getangle hmbz1 "输入第二点:"))
(princ "\n 请选择标注1：")
(setq hmd1 (polar hmbz1 hmbz2 (* hmbz6 1000)))
(setq hmd2 (polar hmbz1 hmbz3 (* hmbz6 1000)))
;(command "circle" hmbz1 (* hmbz6 1000))
;(setq hmst1 (entlast))
;(command "line" hmbz1 500 hmbz2)
;(setq hmst2 (entlast))
;(setq hmst3 (getint ))
;(setq hmbz3 (getangle hmbz1 "输入第二点:"))
(princ "\n 请选择标注2：")
;(setq hmbz4 (getangle hmbz1 hmbz2))
;(setq hmbz5 (getangle hmbz1 hmbz3))
(setq hmbz7 (abs (- hmbz2 hmbz3)))
(setq hmbz8 (* hmbz7 (* hmbz6 1000)))
(setq hmbz (rtos hmbz8 2 0))
(command "dimangular" "" hmbz1 hmd1 hmd2 "t" hmbz)
(princ)
)