[求助]：如何实现实体之间建立相关联？

libo2000

如何实现实体之间建立相关联？
比如：
1、有line1、line2并且两者相连【line1的端点p11=line2的端点p21】，一旦line1的端点p11发生改变，则p0自动更新p21点。
2、有line1、line2平行且两者的距离为w，一旦line1发生改变，则line2自动保持与line1平行且两者的距离为w不变。

麻烦那个大虾写个程序－－最好是存autolisp
thank

红苹果

这个要用发应器来实现

lijiao

是不是想做尺寸驱动？
用反应器可以实现，但达到实用状态时，恐怕计算机有点受不了。

redearth

可以在第一条线的扩展数据加入指向第二条线的句柄，
编个lisp程序也应该可以实现把
你试试


（regapp "line2")
en2--------line2的实体名
(setq en2-data (entget en2))
（setq line2p (cdr (assoc  5 en2-data))))
;;;;line2p为2的句柄
（setq new (cons 1005 line2p))
(setq newen '((-3
                         ("line2" '((new)))
                      )))
(setq  en2-data (append (list en2-data newen)))
(entmod en2)

加句柄大致这样吧
当line1端点改变时，通过句柄得到line2，改动即可

XDSoft

最初由 redearth 发布
[B]可以在第一条线的扩展数据加入指向第二条线的句柄，
编个lisp程序也应该可以实现把
你试试


（regapp "line2")
en2--------line2的实体名
(setq en2-data (entget en2))
（setq line2p (cdr (assoc  5 en2-... [/B]

楼主的要求和你写的不同，他要求是自动，一个实体位置改变了，另外一个实体会接到它的通知，自动改变位置。不是另外用程序执行去改变。

这个应该用反应器，但是图中反映器多了，绘图会变的很慢的。不知道楼主什么应用需要这样的功能？

LUCAS

2. 
   
3. ;;1、有line1、line2并且两者相连【line1的端点p11=line2的端点p21】，一旦line1的端点p11发生改变，则p0自动更新p21点。
   
4. 
   
5. ;;BY  LUCAS(龙龙仔)
   
6. ;;一个简陋的反应器
   
7. (defun REDRAW_LINE (NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST)
   
8.   (vl-load-com)
   
9.   (if (not (vlax-erased-p NOTIFIER-OBJECT))
   
10.     (vla-put-startpoint
    
11.       (vlax-ename->vla-object (handent (vlr-data REACTOR-OBJECT)))
    
12.       (vla-get-endpoint
    
13.         NOTIFIER-OBJECT
    
14.       )
    
15.     )
    
16.   )
    
17. )
    
18. ;;点选
    
19. (defun C:TTT (/ LINE1 DXF10 DXF11 SS10 SS11 ENT)
    
20.   (vl-load-com)
    
21.   (defun MID (PT1 PT2)
    
22.     (mapcar
    
23.       '(lambda (X Y)
    
24.          (* 0.5 (+ X Y))
    
25.        )
    
26.       PT1
    
27.       PT2
    
28.     )
    
29.   )
    
30.   (setq ENT (car (entsel "点选线: ")))
    
31.   (setq DXF10 (cdr (assoc 10 (entget ENT))))
    
32.   (setq DXF11 (cdr (assoc 11 (entget ENT))))
    
33.   (if (> (sslength (setq SS (ssget "C" DXF10 DXF10 '((0 . "LINE")))))
    
34.          1
    
35.       )
    
36.     (progn
    
37.       (ssdel ENT SS)
    
38.       (command "_.ROTATE" ENT "" (MID DXF10 DXF11) 180)
    
39.       (setq SS10 (cdr (assoc 10 (entget (ssname SS 0)))))
    
40.       (setq SS11 (cdr (assoc 11 (entget (ssname SS 0)))))
    
41.       (if (equal DXF10 SS11)
    
42.         (command "_.ROTATE" (ssname SS 0) "" (MID SS10 SS11) 180)
    
43.       )
    
44.     )
    
45.     (progn
    
46.       (ssdel ENT SS)
    
47.       (setq SS (ssget "C" DXF11 DXF11 '((0 . "LINE"))))
    
48.       (ssdel ENT SS)
    
49.       (setq SS10 (cdr (assoc 10 (entget (ssname SS 0)))))
    
50.       (setq SS11 (cdr (assoc 11 (entget (ssname SS 0)))))
    
51.       (if (equal DXF11 SS11)
    
52.         (command "_.ROTATE" (ssname SS 0) "" (MID SS10 SS11) 180)
    
53.       )
    
54.     )
    
55.   )
    
56.   (setq LINE1 (vlax-ename->vla-object ENT))
    
57.   (setq        *LINEREACTOR*
    
58.          (vlr-object-reactor
    
59.            (list LINE1)
    
60.            (cdr (assoc 5 (entget (ssname SS 0))))
    
61.            '((:vlr-modified . REDRAW_LINE))
    
62.          )
    
63.   )
    
64.   (princ)
    
65. )
    
66. 
    
67. ;;划线
    
68. (defun C:TT (/ HOLDECHO LINE1)
    
69.   (vl-load-com)
    
70.   (setq HOLDECHO (getvar "cmdecho"))
    
71.   (setvar "cmdecho" 0)
    
72.   (command "_.line"
    
73.            (getpoint "指定第一点: ")
    
74.            (getpoint (getvar "lastpoint") "指定第二点: ")
    
75.            ""
    
76.   )
    
77.   (setq LINE1 (vlax-ename->vla-object (entlast)))
    
78.   (command "_.line"
    
79.            (getvar "lastpoint")
    
80.            (getpoint (getvar "lastpoint") "指定第三点: ")
    
81.            ""
    
82.   )
    
83.   (setvar "cmdecho" HOLDECHO)
    
84.   (setq        *LINEREACTOR*
    
85.          (vlr-object-reactor
    
86.            (list LINE1)
    
87.            (cdr (assoc 5 (entget (entlast))))
    
88.            '((:vlr-modified . REDRAW_LINE))
    
89.          )
    
90.   )
    
91.   (princ)
    
92. )
    

<br /> ;;1、有line1、line2并且两者相连【line1的端点p11=line2的端点p21】，一旦line1的端点p11发生改变，则p0自动更新p21点。<br /> <br /> ;;BY  LUCAS(龙龙仔)<br /> ;;一个简陋的反应器<br /> (defun REDRAW_LINE (NOTIFIER-OBJECT REACTOR-OBJECT PARAMETER-LIST)<br />   (vl-load-com)<br />   (if (not (vlax-erased-p NOTIFIER-OBJECT))<br />     (vla-put-startpoint<br />       (vlax-ename->vla-object (handent (vlr-data REACTOR-OBJECT)))<br />       (vla-get-endpoint<br />         NOTIFIER-OBJECT<br />       )<br />     )<br />   )<br /> )<br /> ;;点选<br /> (defun C:TTT (/ LINE1 DXF10 DXF11 SS10 SS11 ENT)<br />   (vl-load-com)<br />   (defun MID (PT1 PT2)<br />     (mapcar<br />       '(lambda (X Y)<br />          (* 0.5 (+ X Y))<br />        )<br />       PT1<br />       PT2<br />     )<br />   )<br />   (setq ENT (car (entsel "点选线: ")))<br />   (setq DXF10 (cdr (assoc 10 (entget ENT))))<br />   (setq DXF11 (cdr (assoc 11 (entget ENT))))<br />   (if (> (sslength (setq SS (ssget "C" DXF10 DXF10 '((0 . "LINE")))))<br />          1<br />       )<br />     (progn<br />       (ssdel ENT SS)<br />       (command "_.ROTATE" ENT "" (MID DXF10 DXF11) 180)<br />       (setq SS10 (cdr (assoc 10 (entget (ssname SS 0)))))<br />       (setq SS11 (cdr (assoc 11 (entget (ssname SS 0)))))<br />       (if (equal DXF10 SS11)<br />         (command "_.ROTATE" (ssname SS 0) "" (MID SS10 SS11) 180)<br />       )<br />     )<br />     (progn<br />       (ssdel ENT SS)<br />       (setq SS (ssget "C" DXF11 DXF11 '((0 . "LINE"))))<br />       (ssdel ENT SS)<br />       (setq SS10 (cdr (assoc 10 (entget (ssname SS 0)))))<br />       (setq SS11 (cdr (assoc 11 (entget (ssname SS 0)))))<br />       (if (equal DXF11 SS11)<br />         (command "_.ROTATE" (ssname SS 0) "" (MID SS10 SS11) 180)<br />       )<br />     )<br />   )<br />   (setq LINE1 (vlax-ename->vla-object ENT))<br />   (setq        *LINEREACTOR*<br />          (vlr-object-reactor<br />            (list LINE1)<br />            (cdr (assoc 5 (entget (ssname SS 0))))<br />            '((:vlr-modified . REDRAW_LINE))<br />          )<br />   )<br />   (princ)<br /> )<br /> <br /> ;;划线<br /> (defun C:TT (/ HOLDECHO LINE1)<br />   (vl-load-com)<br />   (setq HOLDECHO (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (command "_.line"<br />            (getpoint "指定第一点: ")<br />            (getpoint (getvar "lastpoint") "指定第二点: ")<br />            ""<br />   )<br />   (setq LINE1 (vlax-ename->vla-object (entlast)))<br />   (command "_.line"<br />            (getvar "lastpoint")<br />            (getpoint (getvar "lastpoint") "指定第三点: ")<br />            ""<br />   )<br />   (setvar "cmdecho" HOLDECHO)<br />   (setq        *LINEREACTOR*<br />          (vlr-object-reactor<br />            (list LINE1)<br />            (cdr (assoc 5 (entget (entlast))))<br />            '((:vlr-modified . REDRAW_LINE))<br />          )<br />   )<br />   (princ)<br /> )<br />

snsj

感觉用反应器实现这个有点大财小用

libo2000

主要是为了防止line1、line2被随意改变掉，line1与line2是有关联的。
反应器我不太熟悉，如果对系统影响大，我看也没有实现的必要，毕竟绘图是为了提高速度。

21cn

最初由 libo2000 发布
[B]主要是为了防止line1、line2被随意改变掉，line1与line2是有关联的。
反应器我不太熟悉，如果对系统影响大，我看也没有实现的必要，毕竟绘图是为了提高速度。 [/B]

编组

xiaping

编组倒是一个不错的办法。

redearth

请问上楼：：编组怎么回事？？

zhynt

编组就是将若干个不相关联的实体组成一个组（GROUP）这样移动组中的任一实体，整个组就会跟这一起动，（这一点跟块有点相似）而且组中的实体可以单个编辑。
输入GROUP将出现一个对话框。
更详细的你可以看看cad的帮助。

leeyuan

旧话题翻出来了，编组不能解决楼主的问题，lucas的程序能满足要求，不知图中反应器多了，是否会影响绘图速度，可否在修改完成后，删除反应器，释放内存呢？

zml84

值得讨论，使用临时的，可控的。