标注标高(1位小数)
www.dimcax.com
标注标高(1位小数)(defun c:bg1 () ;标注标高(1位小数)
(setq osn (getvar "osmode"))
(setq zl (getstring "\n 给出标高的方向(向左为/,向右为*)"))
(while (setq pt1 (getpoint "\n 给出标高标注位置点"))
(setq f (nth 1 pt1))
(setq cjsf (rtos f 2 1))
(setq tz (substr zl 1 1)
cd (- 8 1)
bl (/ (* (getvar "dimtxt") (getvar "dimscale")) 0.25)
)
(if (and (/= tz "*") (/= tz "/"))
(princ "标注内容有误")
(progn
(if (= tz "*")
(setq fh 1)
(setq fh -1)
)
(setq pt0 (polar pt1 0 (* bl fh 0.05))
pt1 (polar pt1 0 (* bl fh 0.18))
pt2 (polar pt1 0 (* bl fh 0.25))
pt3 (polar pt2 0 (* bl fh cd 0.075))
pt6 (polar pt2 0 (* bl fh cd 0.15))
pt4 (polar pt1 (/ pi 3) (* bl 0.2))
pt5 (polar pt1 (/ pi 1.5) (* bl 0.2))
)
(setvar "osmode" 0)
(command "pline"
pt1
"w"
"0"
"0"
pt4
pt5
"c"
"line"
pt0
pt6
""
"text"
"j"
"c"
(polar pt3 (/ pi 2) (* bl 0.05))
(* bl 0.3)
"0"
cjsf
)
(setvar "osmode" osn)
)
)
)
(command "redraw")
(princ)
)
d