感觉多余了一些变量,而且严格来说标注可能会有误差。
我修改了一下,做个参考。- ;;;--<<dqbz>>--对齐标注--
- ;;;作者:程圣彬 编写时间:2013-01-15
- (defun c:dqbz ( / pt1 pt2 ang_r ang_d dim dim_nums)
- (while
- (setq pt1 (getpoint "\n指定第一条尺寸界线原点:"))
- (setq pt2 (getpoint pt1 "\n指定第二条尺寸界线原点:"))
- (setq ang_r (angle pt2 pt1))
- (setq ang_d (rtd_ch ang_r));获得线段角度
- (command "DIMLINEAR" pt1 pt2 "r" ang_d pause)
- (setq dim (entlast))
- (setq dim_nums (cdr (assoc 42 (entget dim))))
- (princ "\n标注文字 = ")
- (princ dim_nums)
- (princ)
- )
- )
- ;;角度转弧度
- (defun dtr_ch (ang0)
- (* ang0 (/ pi 180.0))
- )
- ;;弧度转角度
- (defun rtd_ch (ang0)
- (* ang0 (/ 180.0 pi))
- )
|