社区 › AutoLISP/Visual LISP 编程技术 › 寻求相同文字内容关联程序！！！

小菜123 发表于 2012-8-1 09:24:25

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

xujinhua 发表于 2012-8-1 22:09:58

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

c735023723 发表于 2012-8-14 10:53:50

gbhsu 发表于 2012-8-16 22:22:30

不喜欢反应器的,用我这个
稍稍修改一下,可以修改嵌套文字
(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

革天明 发表于 2012-8-30 11:43:23

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

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

革天明 发表于 2012-8-30 15:19:21

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

我的不出错

richine001 发表于 2012-12-7 11:20:12

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

xiabin68 发表于 2012-12-7 13:34:33

Gu_xl 发表于 2012-7-27 09:35 static/image/common/back.gif


G版的代码，，确实高，

haoryh 发表于 2012-12-7 13:52:14

来了就支持一下

richine001 发表于 2012-12-7 14:16:58

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

查看完整版本: 寻求相同文字内容关联程序！！！