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