明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2977|回复: 9

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

[复制链接]
发表于 2013-1-14 21:46:06 | 显示全部楼层 |阅读模式
本帖最后由 浮世小半生 于 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)
  )
  )

测试过 误差完全没有
发表于 2013-1-15 12:50:36 | 显示全部楼层
感觉多余了一些变量,而且严格来说标注可能会有误差。
我修改了一下,做个参考。
  1. ;;;--<<dqbz>>--对齐标注--
  2. ;;;作者:程圣彬 编写时间:2013-01-15
  3. (defun c:dqbz ( / pt1 pt2 ang_r ang_d dim dim_nums)
  4. (while
  5.   (setq pt1 (getpoint "\n指定第一条尺寸界线原点:"))
  6.   (setq pt2 (getpoint pt1 "\n指定第二条尺寸界线原点:"))
  7.   (setq ang_r (angle pt2 pt1))
  8.   (setq ang_d (rtd_ch ang_r));获得线段角度
  9.   (command "DIMLINEAR" pt1 pt2 "r" ang_d pause)
  10.   (setq dim (entlast))
  11.   (setq dim_nums (cdr (assoc 42 (entget dim))))
  12.   (princ "\n标注文字 = ")
  13.   (princ dim_nums)
  14.   (princ)
  15.   )
  16.   )
  17. ;;角度转弧度
  18. (defun dtr_ch (ang0)
  19.   (* ang0 (/ pi 180.0))
  20. )
  21. ;;弧度转角度
  22. (defun rtd_ch (ang0)
  23.   (* ang0 (/ 180.0 pi))
  24. )
回复 支持 1 反对 0

使用道具 举报

发表于 2013-1-15 08:05:42 | 显示全部楼层
不错,不错!我就不喜欢用对齐标注
 楼主| 发表于 2013-1-15 13:50:37 | 显示全部楼层
duanshui83 发表于 2013-1-15 12:50
感觉多余了一些变量,而且严格来说标注可能会有误差。
我修改了一下,做个参考。

测试过 误差完全没有
发表于 2013-1-15 19:02:19 | 显示全部楼层
浮世小半生 发表于 2013-1-15 13:50
测试过 误差完全没有

(setq ang1 (angtos ang 0 2));获得线段角度
这一步有误差,你保留两位小数就会产生误差
 楼主| 发表于 2013-1-15 22:38:52 | 显示全部楼层
duanshui83 发表于 2013-1-15 19:02
(setq ang1 (angtos ang 0 2));获得线段角度
这一步有误差,你保留两位小数就会产生误差

多谢指教 这点误差可以忽略,又不是造神七神八
发表于 2013-4-1 12:12:14 | 显示全部楼层
不错  学习了  
发表于 2013-6-8 16:45:22 | 显示全部楼层
呵呵学习了
发表于 2013-8-13 00:03:42 | 显示全部楼层
学习了,加了个图层正在用
发表于 2016-6-29 18:37:04 | 显示全部楼层
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 07:19 , Processed in 0.210310 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表