[原创]标注对齐源程序

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,经常泡吧，有益大脑健康

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

[源码] [原创]标注对齐源程序