AUTODIM自动标注 求修改
要求：
1，将白色线线型过虑，不标注 ，最好把样条曲线也过虑，
2，同心圆不要将直径连着标，以一定角度旋转，比如 第一个30度.第二个40或45，，全部不要重叠。
3，不要把标只标第一象限，要4个象限都有，以中心线为准，左下角的数标在左下角，右下角标在右下角 ，左上角，右上角、。。。。。。。也一样
呵呵，你在本站找找吧，我曾经发过一个这个程序的改良版，五金模快速标注程序 AMTONNY 发表于 2011-10-24 18:18 static/image/common/back.gif
呵呵，你在本站找找吧，我曾经发过一个这个程序的改良版，五金模快速标注程序
那个tt?我下载过，研究过，也有什么过虑的。。。 明经工具商店 飞诗自动标注 功能更强大
原来是这个,不会搞 学习楼主的好经验，谢谢分享！！！！！！ fsxm 发表于 2011-10-24 19:51 static/image/common/back.gif
明经工具商店 飞诗自动标注 功能更强大
飞诗兄，我知道有，而且我现在用ＷＩＮ7，，，好像都不用注册，无次数限制，，我只想搞个自己知道源代码的，，让大家分享，，， 邹锋 发表于 2011-10-25 19:44 static/image/common/back.gif
飞诗兄，我知道有，而且我现在用ＷＩＮ7，，，好像都不用注册，无次数限制，，我只想搞个自己知道源代码的 ...
看这是仿燕秀的，，山寨的，ＤＣＬ写的不是很好，，只能写这么多东西出来
你这个对话框的字怎么可以放这么大啊？ 本帖最后由 邹锋 于 2011-10-27 08:23 编辑
; 下面程序设置过滤虚线条件
(setq ssguol '("ACAD_ISO03W100" "ACAD_ISO02W100"
"DASHED" "DASHED2"
"DASHEDX2" "HIDDEN"
"HIDDEN2" "HIDDENX2"
)
) ; 下面程序将虚线图层加入虚线过滤条件
(setq ssguol (append
SSguol
(autodim-01 "ACAD_ISO03W100")
(autodim-01 "ACAD_ISO02W100")
(autodim-01 "DASHED")
(autodim-01 "DASHED2")
(autodim-01 "DASHEDX2")
(autodim-01 "HIDDEN")
(autodim-01 "HIDDEN2")
(autodim-01 "HIDDENX2")
)
) ; 下面程序将选择集中随层的虚线图层中的线过滤掉
(SETQ i 0)
(while (< i (sslength ss))
(setq ent (ssname ss i))
(setq ent1 (entget ent))
(if (and
(member (cdr (assoc 8 ent1)) ssguol)
(/= (cdr (assoc 0 ent1)) "INSERT")
(= (assoc 6 ent1) nil)
)
(setq ss (ssdel ent ss))
(SETQ i (+ 1 i))
)
) ; 下面程序将选择集中其他层的虚线图元过滤掉
(SETQ i 0)
(while (< i (sslength ss))
(setq ent (ssname ss i))
(setq ent1 (entget ent))
(if (member (cdr (assoc 6 ent1)) ssguol)
(setq ss (ssdel ent ss))
(SETQ i (+ 1 i))
)今天早上找到“过虑”的代码了
在最上面还要写入“ssguol”这个变量
页:
[1]
2