利用1005扩展祖玛实现类似编组的另一种方法

dcl1214

cad提供编组功能，意思是将很多图元编组，cad同时还提供了另一个功能，类似编组的扩展数据，可以将一堆图元的句柄关联到某一个图元，当用户复制粘贴到其他图纸的时候，cad自动更新关联的句柄，让整组图元的依赖关系保持不变，请测试以下代码：

1. (setq c        (entmakeX
   
2.           (list        (cons 0 "CIRCLE")
   
3.                 (cons 100 "AcDbEntity")
   
4.                 (cons 100 "AcDbCircle")
   
5.                 (cons 10 (list 105 80 0))
   
6.                 (cons 40 8)
   
7.           )
   
8.         )
   
9. )
   
10. (setq jb (cdr (assoc 5 (entget c))))
    
11. (regapp "ZXCAD");必须先注册一个app的名字
    
12. (entmakeX
    
13.   (list
    
14.     (cons 0 "LINE")
    
15.     (cons 100 "AcDbEntity")
    
16.     (cons 100 "AcDbLine")
    
17.     (cons 10 (list 50 50 0))
    
18.     (cons 11 (list 150 50 0))
    
19.     (list
    
20.       -3
    
21.       (list
    
22.         "ZXCAD";使用已经注册的app名字
    
23.         (cons 1002 "{")
    
24.         (CONS
    
25.           1000
    
26.           "1005的值是圆的句柄值,当用户复制到新图纸的时候cad自动更新1005的值为圆的新句柄"
    
27.         )
    
28.         (CONS 1000 "111")
    
29.         (cons 1005 jb);引用同一个圆的句柄，意思是都跟同一个圆关联起来
    
30.         (cons 1002 "}")
    
31.       )
    
32.     )
    
33.   )
    
34. )
    
35. (regapp "秦始皇");必须先注册一个app的名字
    
36. (entmakeX
    
37.   (list
    
38.     (cons 0 "LINE")
    
39.     (cons 100 "AcDbEntity")
    
40.     (cons 100 "AcDbLine")
    
41.     (cons 10 (list 50 30 0))
    
42.     (cons 11 (list 150 30 0))
    
43.     (list
    
44.       -3
    
45.       (list
    
46.         "秦始皇";使用已经注册的app名字
    
47.         (cons 1002 "{")
    
48.         (CONS
    
49.           1000
    
50.           "1005的值是圆的句柄值,当用户复制到新图纸的时候cad自动更新1005的值为圆的新句柄"
    
51.         )
    
52.         (CONS 1000 "SSS")
    
53.         (cons 1005 jb);引用同一个圆的句柄，意思是都跟同一个圆关联起来
    
54.         (cons 1002 "}")
    
55.       )
    
56.     )
    
57.   )
    
58. )
    

(setq c        (entmakeX<br />           (list        (cons 0 "CIRCLE")<br />                 (cons 100 "AcDbEntity")<br />                 (cons 100 "AcDbCircle")<br />                 (cons 10 (list 105 80 0))<br />                 (cons 40 8)<br />           )<br />         )<br /> )<br /> (setq jb (cdr (assoc 5 (entget c))))<br /> (regapp "ZXCAD");必须先注册一个app的名字<br /> (entmakeX<br />   (list<br />     (cons 0 "LINE")<br />     (cons 100 "AcDbEntity")<br />     (cons 100 "AcDbLine")<br />     (cons 10 (list 50 50 0))<br />     (cons 11 (list 150 50 0))<br />     (list<br />       -3<br />       (list<br />         "ZXCAD";使用已经注册的app名字<br />         (cons 1002 "{")<br />         (CONS<br />           1000<br />           "1005的值是圆的句柄值,当用户复制到新图纸的时候cad自动更新1005的值为圆的新句柄"<br />         )<br />         (CONS 1000 "111")<br />         (cons 1005 jb);引用同一个圆的句柄，意思是都跟同一个圆关联起来<br />         (cons 1002 "}")<br />       )<br />     )<br />   )<br /> )<br /> (regapp "秦始皇");必须先注册一个app的名字<br /> (entmakeX<br />   (list<br />     (cons 0 "LINE")<br />     (cons 100 "AcDbEntity")<br />     (cons 100 "AcDbLine")<br />     (cons 10 (list 50 30 0))<br />     (cons 11 (list 150 30 0))<br />     (list<br />       -3<br />       (list<br />         "秦始皇";使用已经注册的app名字<br />         (cons 1002 "{")<br />         (CONS<br />           1000<br />           "1005的值是圆的句柄值,当用户复制到新图纸的时候cad自动更新1005的值为圆的新句柄"<br />         )<br />         (CONS 1000 "SSS")<br />         (cons 1005 jb);引用同一个圆的句柄，意思是都跟同一个圆关联起来<br />         (cons 1002 "}")<br />       )<br />     )<br />   )<br /> )<br />

magicheno

感谢大佬分享

有区别吗

试了下确实简单有效.
要是早知道这个就好了.
以前用更复杂的方式实现的.

null.

确实，可以保持相同的关系，其实不用转到其他图纸，本图拷贝粘贴，效果一样。
如果是拷贝粘贴形成的效果，编到程序里估计没什么用。程序不能自动实现拷贝粘贴。
而且用组的概念来形容，只能说只是组的一点东西而已，因为组在CAD里已经形成一套工具。可操作性工具。
层也是组的概念，大家用的最多，是相同图元在同一图层的组。
而CAD直接的组，就是不同的图元都能组成一起，大家用得最少。
不同图元组成一起，块就是体现，组是块的一种偏像，解锁开可以直接编辑，又可以锁定。什么情况需要这种操作呢。用处不多，没有一种强迫证的需求，所以LISP程序对于组的编辑示例是很少的。没有需求式的应用，大家用组写LISP的程序不多。
我只在平面图上，用组统计数量，并可以查看平面上，哪些是一组的。方便统计系统图。

chenhuixo

感谢大佬分享