明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1370|回复: 2

求助,替换文字lisp无法在cad2004里执行(问题已解决)

[复制链接]
发表于 2009-4-7 21:50:00 | 显示全部楼层 |阅读模式
本帖最后由 作者 于 2009-4-7 23:48:24 编辑

下面是替换文字的lisp,在cad2004下可以加载,缺无法执行,是不是这个不适合2004版本啊?有高手帮改下适合2004版本的吗?

只要替换文字内容就可以,不用替换格式。

(defun C:TD (/ E1 E2 ELIST OLDERR V1)

  (princ "\n选择源文字替代目标文字")
  (if (not OLDERR)
    (setq OLDERR *ERROR*)
  )
  (defun *ERROR* (MSG /)
    (setq *ERROR* OLDERR
   OLDERR  NIL
    )
    (redraw E1 4)
    (princ MSG)
    (princ)
  )
  (if (setq E1 (car (entsel "\n选择源文字<退出>: ")))
    (progn
      (redraw E1 3)
      (while (setq E2 (car (entsel "\n选择目标文字<退出>: ")))
 (progn
   (setq V1 (cdr (assoc 1 (entget E1))))
   (setq ELIST (entget E2))
   (entmod (subst (cons 1 V1)
    (assoc 1 ELIST)
    ELIST
    )
   )
 )
      )
      (redraw E1 4)
    )
  )
  (setq *ERROR* OLDERR)
  (princ)
)
(princ)

发表于 2009-4-7 23:30:00 | 显示全部楼层

是你的用法不对吧,我的能用呀

当你点完第一个文字后,再点第二个文字,第二个就变成了第一个文字了

看看程序的说明吧

 楼主| 发表于 2009-4-7 23:46:00 | 显示全部楼层

非常感谢phoenixdjq!

我又试了一遍,确实可以用,没有问题。我是在单位测试的时候不能用的,可能是单位cad的问题吧,我明天再试试!

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 09:39 , Processed in 0.171676 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表