AUTODIM自动标注 求修改

邹锋

要求：
1，将白色线线型过虑，不标注 ，最好把样条曲线也过虑，   
2，同心圆不要将直径连着标，以一定角度旋转，比如 第一个30度.第二个40或45，，全部不要重叠。
3，不要把标只标第一象限，要4个象限都有，以中心线为准，左下角的数标在左下角，右下角标在右下角 ，左上角，右上角、。。。。。。。也一样

AMTONNY

呵呵，你在本站找找吧，我曾经发过一个这个程序的改良版，五金模快速标注程序

邹锋

AMTONNY 发表于 2011-10-24 18:18
呵呵，你在本站找找吧，我曾经发过一个这个程序的改良版，五金模快速标注程序

那个tt?我下载过，研究过，也有什么过虑的。。。   

fsxm

明经工具商店 飞诗自动标注 功能更强大

Nico

原来是这个,  不会搞

精诚网：CREO1.0

学习楼主的好经验，谢谢分享！！！！！！

邹锋

fsxm 发表于 2011-10-24 19:51
明经工具商店 飞诗自动标注 功能更强大

飞诗兄，我知道有，而且我现在用ＷＩＮ7，，，好像都不用注册，无次数限制，，我只想搞个自己知道源代码的，，让大家分享，，，

邹锋

邹锋 发表于 2011-10-25 19:44
飞诗兄，我知道有，而且我现在用ＷＩＮ7，，，好像都不用注册，无次数限制，，我只想搞个自己知道源代码的 ...

看这是仿燕秀的，，山寨的，ＤＣＬ写的不是很好，，只能写这么多东西出来

3527188

你这个对话框的字怎么可以放这么大啊？

邹锋

2. ; 下面程序设置过滤虚线条件
   
3.   (setq ssguol '("ACAD_ISO03W100" "ACAD_ISO02W100"
   
4.          "DASHED" "DASHED2"
   
5.          "DASHEDX2" "HIDDEN"
   
6.          "HIDDEN2" "HIDDENX2"
   
7.         )
   
8.   )                                    ; 下面程序将虚线图层加入虚线过滤条件
   
9.   (setq ssguol (append
   
10.                  SSguol
    
11.                  (autodim-01 "ACAD_ISO03W100")
    
12.                  (autodim-01 "ACAD_ISO02W100")
    
13.                  (autodim-01 "DASHED")
    
14.                  (autodim-01 "DASHED2")
    
15.                  (autodim-01 "DASHEDX2")
    
16.                  (autodim-01 "HIDDEN")
    
17.                  (autodim-01 "HIDDEN2")
    
18.                  (autodim-01 "HIDDENX2")
    
19.                )
    
20.   )                                    ; 下面程序将选择集中随层的虚线图层中的线过滤掉
    
21.   (SETQ i 0)
    
22.   (while (< i (sslength ss))
    
23.     (setq ent (ssname ss i))
    
24.     (setq ent1 (entget ent))
    
25.     (if (and
    
26.           (member (cdr (assoc 8 ent1)) ssguol)
    
27.           (/= (cdr (assoc 0 ent1)) "INSERT")
    
28.           (= (assoc 6 ent1) nil)
    
29.         )
    
30.       (setq ss (ssdel ent ss))
    
31.       (SETQ i (+ 1 i))
    
32.     )
    
33.   )                                    ; 下面程序将选择集中其他层的虚线图元过滤掉
    
34.   (SETQ i 0)
    
35.   (while (< i (sslength ss))
    
36.     (setq ent (ssname ss i))
    
37.     (setq ent1 (entget ent))
    
38.     (if (member (cdr (assoc 6 ent1)) ssguol)
    
39.       (setq ss (ssdel ent ss))
    
40.       (SETQ i (+ 1 i))
    
41.     )

; 下面程序设置过滤虚线条件<br />   (setq ssguol '("ACAD_ISO03W100" "ACAD_ISO02W100"<br />          "DASHED" "DASHED2"<br />          "DASHEDX2" "HIDDEN"<br />          "HIDDEN2" "HIDDENX2"<br />         )<br />   )                                    ; 下面程序将虚线图层加入虚线过滤条件<br />   (setq ssguol (append<br />                  SSguol<br />                  (autodim-01 "ACAD_ISO03W100")<br />                  (autodim-01 "ACAD_ISO02W100")<br />                  (autodim-01 "DASHED")<br />                  (autodim-01 "DASHED2")<br />                  (autodim-01 "DASHEDX2")<br />                  (autodim-01 "HIDDEN")<br />                  (autodim-01 "HIDDEN2")<br />                  (autodim-01 "HIDDENX2")<br />                )<br />   )                                    ; 下面程序将选择集中随层的虚线图层中的线过滤掉<br />   (SETQ i 0)<br />   (while (< i (sslength ss))<br />     (setq ent (ssname ss i))<br />     (setq ent1 (entget ent))<br />     (if (and<br />           (member (cdr (assoc 8 ent1)) ssguol)<br />           (/= (cdr (assoc 0 ent1)) "INSERT")<br />           (= (assoc 6 ent1) nil)<br />         )<br />       (setq ss (ssdel ent ss))<br />       (SETQ i (+ 1 i))<br />     )<br />   )                                    ; 下面程序将选择集中其他层的虚线图元过滤掉<br />   (SETQ i 0)<br />   (while (< i (sslength ss))<br />     (setq ent (ssname ss i))<br />     (setq ent1 (entget ent))<br />     (if (member (cdr (assoc 6 ent1)) ssguol)<br />       (setq ss (ssdel ent ss))<br />       (SETQ i (+ 1 i))<br />     )

今天早上找到“过虑”的代码了

在最上面还要写入“ssguol”这个变量