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

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

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

;对齐标注 by chen guang xing  2013.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

感觉多余了一些变量，而且严格来说标注可能会有误差。
我修改了一下，做个参考。

;;;--<<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

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

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

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

测试过误差完全没有

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

浮世小半生发表于 2013-1-15 13:50
测试过误差完全没有

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

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

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

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

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

不错学习了

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

呵呵学习了

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

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

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

账号		自动登录	找回密码
密码			注册

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

相关帖子