浮世小半生 发表于 2013-1-14 21:46:06

(原创) 对齐标注的转角标注版

本帖最后由 浮世小半生 于 2013-1-15 13:49 编辑

;对齐标注 by chen guang xing2013.1.14
(defun c:dd ()
(while
(setq pt1 (getpoint "\n指定第一条尺寸界线原点:<右键退出>"))
(setq pt2 (getpoint pt1 "\n指定第二条尺寸界线原点:"))
(setq ang (angle pt2 pt1))
(setq ang1 (angtos ang 0 2));获得线段角度
(command "DIMLINEAR" pt1 pt2 "r" ang1 pause)
(setq dim (entlast))
(setq dim_nums (cdr (assoc 42 (entget dim))))
(princ "\n标注文字 = ")
(princ dim_nums)
(princ)
)
)

测试过 误差完全没有

duanshui83 发表于 2013-1-15 12:50:36

感觉多余了一些变量，而且严格来说标注可能会有误差。
我修改了一下，做个参考。;;;--<<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))
)

gaics 发表于 2013-1-15 08:05:42

不错，不错！我就不喜欢用对齐标注

浮世小半生 发表于 2013-1-15 13:50:37

duanshui83 发表于 2013-1-15 12:50 static/image/common/back.gif
感觉多余了一些变量，而且严格来说标注可能会有误差。
我修改了一下，做个参考。

测试过 误差完全没有

duanshui83 发表于 2013-1-15 19:02:19

浮世小半生 发表于 2013-1-15 13:50 static/image/common/back.gif
测试过 误差完全没有

(setq ang1 (angtos ang 0 2));获得线段角度
这一步有误差，你保留两位小数就会产生误差

浮世小半生 发表于 2013-1-15 22:38:52

duanshui83 发表于 2013-1-15 19:02 static/image/common/back.gif
(setq ang1 (angtos ang 0 2));获得线段角度
这一步有误差，你保留两位小数就会产生误差

多谢指教 这点误差可以忽略，又不是造神七神八

328302216 发表于 2013-4-1 12:12:14

不错学习了

ucuc2003 发表于 2013-6-8 16:45:22

呵呵学习了

吃饭饭长胖胖 发表于 2013-8-13 00:03:42

学习了，加了个图层正在用

start4444 发表于 2016-6-29 18:37:04

页: [1]
查看完整版本: (原创) 对齐标注的转角标注版