寻求相同文字内容关联程序！！！

小菜123

文字关联好后，用ddedit选其中一个编辑，然后不作修改，按esc退出编辑，CAD就出错

xujinhua

强啊..........

c735023723

gbhsu

不喜欢反应器的,用我这个
稍稍修改一下,可以修改嵌套文字
(defun c:edtxt( / TXT TXTOBJ blocks doc ent name s n clo)
(vl-load-com)
  (princ "\n选要改的文字: ")
(setq TXT (ssname(ssget ":E:S"'((0 . "TEXT,MTEXT")))0)
      TXTOBJ  (vlax-ename->vla-object TXT)
      TXTSTRING (vla-get-textstring TXTOBJ)
)
(command "ddedit" TXT "")
(setq alttext (vla-get-textstring TXTOBJ))  
          (command"undo""group")
          (setq *ms*   (vla-get-modelspace(vla-get-activedocument (vlax-get-acad-object)))
          )
           (vlax-for item *ms*
             (cond
                    ((= "AcDbText" (Vlax-Get item 'ObjectName ))
                     (cond
                      ((= TXTSTRING (Vlax-Get item 'TextString ))
                       (Vlax-Put item 'TextString alttext)
                      )
                     )
                    )
                   )
           )
        (command"undo""end")     
(princ)
  );defun

革天明

gbhsu 发表于 2012-8-16 22:22
不喜欢反应器的,用我这个
稍稍修改一下,可以修改嵌套文字
(defun c:edtxt( / TXT TXTOBJ blocks doc ent  ...

不可用，输入命令后就让我编辑文字内容，如果退出编辑就结束了

革天明

小菜123 发表于 2012-8-1 09:24
文字关联好后，用ddedit选其中一个编辑，然后不作修改，按esc退出编辑，CAD就出错

我的不出错

richine001

G版的程序还是有问题，为啥老提示“no function definition: GXL-TEXT-CHANGE”

xiabin68

Gu_xl 发表于 2012-7-27 09:35
[/post]

G版的代码，，确实高，

haoryh

来了就支持一下

richine001

G版的程序还是有问题，为啥老提示“no function definition: GXL-TEXT-CHANGE”,同时关闭文件后就不能关联了，求解决方案