ddisddis 发表于 2012-10-31 17:27:05

谢谢分享，学习一下

wolaixuexi 发表于 2012-12-13 09:10:05

好东西，谢谢

pengshq 发表于 2012-12-16 16:47:05

真的很好用，

dforme 发表于 2012-12-28 11:13:44

谢谢，不过只能水平或者垂直对齐，如果能倾斜对齐，那就完美了

射手座的牛 发表于 2013-1-24 22:30:02

(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-2-7 21:08:13

源码很好用，多谢了

潇湘飞雨 发表于 2013-4-9 16:36:38

真是帅爆了

吃饭饭长胖胖 发表于 2014-1-14 20:29:18

非常感谢,解决了大问题

一叶舟 发表于 2014-2-7 22:49:12

程序相当不错，赞一个

扶风 发表于 2014-2-16 16:50:18

heihei,经常泡吧，有益大脑健康
页: 1 2 3 4 5 6 7 [8] 9 10
查看完整版本: [原创]标注对齐源程序