[求助]：CAD中如何实现文字的索引功能？

formoon

说白了就是让一个文字始终同另外一个文字完全一样？因为有的时候这里改了，那里忘了改，总是有错，如果自动保持一致，就不会错了啊，不知道有没有这个功能，谢谢！

snoopychen

假如是这种情况，可以用反应器来完成。

晓东工具箱里面的自动编号程序，当你删除一个数字之后，其他的数字会自动前移应该就是这样的技术。

我们都非常喜欢excel可以自动按照前一个格内内容的变化而使得以后所有引用它的格子作自动变化
也希望在acad中，如在一个图纸里面，当大样图引用了平面图中某些部分，在这些平面图中作了修改，希望大样图可以自动变动。
希望绘制的多层平面图，当一根结构柱子移动位置的时候，其他所有层在此位置的柱子都作相应的移动。
不过现在的acad都不能实现我们的想法，它只能用外部引用解决一部分的问题。
之所以acad不能实现excel的这些功能，我想大概是因为acad的图元间的数据结构关系比excel的格子间关系要复杂一些吧。或者是acad的工程师还在探索更好的方案。
期待这一天的到来。

xyp1964

可以用块（block）试试。

cy956

最初由 snoopychen 发布
[B]假如是这种情况，可以用反应器来完成。

晓东工具箱里面的自动编号程序，当你删除一个数字之后，其他的数字会自动前移应该就是这样的技术。

我们都非常喜欢excel可以自动按照前一个格内内容的变化而使得以后所?.. [/B]

到欧特克网站看看它的adt和revit，号称三维关联修改。不过我看过一次产品推荐演示，当场死机，改的是一栋民房般小别墅的一扇窗。不知道楼大了会怎么个爆法。

lingnemo

用外部引用吧 其他没招的

狂刀

最初由 cy956 发布
[B][QUOTE]最初由 snoopychen 发布
[B]假如是这种情况，可以用反应器来完成。

晓东工具箱里面的自动编号程序，当你删除一个数字之后，其他的数字会自动前移应该就是这样的技术。

我们都非常喜欢excel可以... [/B]

哈，搞笑。当场死机

eachy

请谨慎使用

2. 
   
3. (vl-load-com)
   
4. (defun txt_has_modify (var1 var2 var3 / obj)
   
5.   (if (and (not (vlax-erased-p var1))
   
6.            (vlax-ldata-list var1)
   
7.            (not
   
8.              (vlax-erased-p (handent (vlax-ldata-get var1 "Ea_mod")))
   
9.            )
   
10.            (/=
    
11.              (vla-get-textstring
    
12.                (setq
    
13.                  obj (vla-handletoobject
    
14.                        (vla-get-activedocument (vlax-get-acad-object))
    
15.                        (vlax-ldata-get var1 "Ea_mod")
    
16.                      )
    
17.                )
    
18.              )
    
19.              (vla-get-textstring var1)
    
20.            )
    
21.       )
    
22.     (vla-put-textstring obj (vla-get-textstring var1))
    
23.   )
    
24.   (princ)
    
25. )
    
26. (defun c:tt (/ e1 e2 el1 el2 o1 o2 h1 h2)
    
27.   (if (and (setq e1 (car (entsel "\nFirst Text: ")))
    
28.            (setq el1 (entget e1))
    
29.            (= (cdr (assoc 0 el1)) "TEXT")
    
30.            (setq e2 (car (entsel "\nSecond Text: ")))
    
31.            (setq el2 (entget e2))
    
32.            (= (cdr (assoc 0 el2)) "TEXT")
    
33.       )
    
34.     (progn
    
35.       (setq o1 (vlax-ename->vla-object e1)
    
36.             o2 (vlax-ename->vla-object e2)
    
37.             h1 (cdr (assoc 5 el1))
    
38.             h2 (cdr (assoc 5 el2))
    
39.       )
    
40.       (vlax-ldata-put o1 "Ea_mod" h2)
    
41.       (vlax-ldata-put o2 "Ea_mod" h1)
    
42.       (vlr-object-reactor
    
43.         (list o1 o2)
    
44.         "Modify_reactor"
    
45.         '((:vlr-modified . txt_has_modify))
    
46.       )
    
47.     )
    
48.   )
    
49.   (princ)
    
50. )
    

<br /> (vl-load-com)<br /> (defun txt_has_modify (var1 var2 var3 / obj)<br />   (if (and (not (vlax-erased-p var1))<br />            (vlax-ldata-list var1)<br />            (not<br />              (vlax-erased-p (handent (vlax-ldata-get var1 "Ea_mod")))<br />            )<br />            (/=<br />              (vla-get-textstring<br />                (setq<br />                  obj (vla-handletoobject<br />                        (vla-get-activedocument (vlax-get-acad-object))<br />                        (vlax-ldata-get var1 "Ea_mod")<br />                      )<br />                )<br />              )<br />              (vla-get-textstring var1)<br />            )<br />       )<br />     (vla-put-textstring obj (vla-get-textstring var1))<br />   )<br />   (princ)<br /> )<br /> (defun c:tt (/ e1 e2 el1 el2 o1 o2 h1 h2)<br />   (if (and (setq e1 (car (entsel "\nFirst Text: ")))<br />            (setq el1 (entget e1))<br />            (= (cdr (assoc 0 el1)) "TEXT")<br />            (setq e2 (car (entsel "\nSecond Text: ")))<br />            (setq el2 (entget e2))<br />            (= (cdr (assoc 0 el2)) "TEXT")<br />       )<br />     (progn<br />       (setq o1 (vlax-ename->vla-object e1)<br />             o2 (vlax-ename->vla-object e2)<br />             h1 (cdr (assoc 5 el1))<br />             h2 (cdr (assoc 5 el2))<br />       )<br />       (vlax-ldata-put o1 "Ea_mod" h2)<br />       (vlax-ldata-put o2 "Ea_mod" h1)<br />       (vlr-object-reactor<br />         (list o1 o2)<br />         "Modify_reactor"<br />         '((:vlr-modified . txt_has_modify))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

snoopychen

早上修改了一下陈伯雄老师反应器中的第一个例子，编写下面自己第一个反应器测试程序
各位见笑了
程序建立一批相同的数字，修改第一个可以自动改动后面的
下面是第一个程序，是写文字的
[php]
(Defun C:test ()
      (SetQ pt1 (GetPoint "\n the point"))
      (setq ttext (getstring "\n the text:"))
     (command "text" "j" "bc" pt1 250 0 ttext )
      (SetQ len (EntLast))
      (while (SetQ pt3 (GetPoint "\n the next point"))
      (command "text" "j" "bc" pt3 250 0 ttext)
      (SetQ chl (Cdr (Assoc 5 (EntGet (EntLast)))))
      (SetQ rlt (Cons (VLAX-EName->VLA-Object len) '()))
      (SetQ vrl (VLR-Pers (VLR-Object-Reactor rlt chl '((:vlr-modified . Line-C)))))
      (PrinC "\n已建立的反应器有: ")(PrinC (VLR-Reactors))
      (PrinC))
)
;-------------------------------------------------------------------------------------------

;---------------------------------------------------------------------------------------
(VL-Load-Com)
(Defun Line-C (notifier-object reactor-object parameter-list)
       (SetQ cen (HandEnt (VLR-Data reactor-object)))
       (SetQ len (VLAX-VLA-Object->EName notifier-object)
             lel (EntGet len)
             t-text (Cdr (Assoc 1 lel))
       )
       (SetQ cel (EntGet cen)
             cel (Subst (VL-List* 1 t-text) (Assoc 1 cel) cel)
       )
       (EntMod cel)
)

;-----------------------------------------------------------------------------------------

[/php]

不过到晚上才想明白可以用while来给多个文字同时改变，笨笨的呀

eachy版主的程序得下回去好好学习，好像可以修改任何一个都发生修改，但有时候又不行，不知道是不是我操作有点问题。

过了半个小时，改成下面这个程序
第二个程序，这个应该有所改进，比较接近楼主的意思了。
选择文本进行拷贝，这些拷贝建立的文本将随其上面几级文本内容的变化而变化
似乎有点excel的感觉了
[php]
;;; 拷贝文字，子实体随着母实体的内容改变而改变，多级拷贝的时候可能需要regen
;;; 采用反应器可能有时候有些问题，小心使用。
(Defun C:test ()
  (setq ent1 (entsel "\n the text:"))
  (setq ttext (car ent1))
  (setq tpoint (car (cdr ent1)))
  (while (SetQ pt3 (GetPoint "\n the next point"))
    (command "copy" ttext "" tpoint pt3)
    (SetQ chl (Cdr (Assoc 5 (EntGet (EntLast)))))
    (SetQ rlt (Cons (VLAX-EName->VLA-Object ttext) '()))
    (SetQ vrl (VLR-Pers (VLR-Object-Reactor rlt chl '(
                                             (:vlr-modified . Line-C)
                                            )
                        )
              )
    )
    (PrinC)
  )
)
;;; -------------------------------------------------------------------------
;;; ------------------
;;; -------------------------------------------------------------------------
;;; --------------
(VL-Load-Com)
(Defun Line-C (notifier-object reactor-object parameter-list)
  (SetQ cen (HandEnt (VLR-Data reactor-object)))
  (SetQ len (VLAX-VLA-Object->EName notifier-object)
        lel (EntGet len)
        t-text (Cdr (Assoc 1 lel))
  )
  (SetQ cel (EntGet cen)
        cel (Subst
              (VL-List* 1 t-text)
              (Assoc 1 cel)
              cel
            )
  )
  (EntMod cel)
)
;;; -------------------------------------------------------------------------
;;; ----------------

[/php]

动画演示的是第二个函数的效果