nabijan 发表于 2006-11-17 14:51

求助:CAD 中文字替换问题

大家好
我用LISP编了个 程序就是在CAD中文字查找与替换
不过就是不实现.
我很急!希望大家帮帮忙,帮我解决这个问题.
我把我自己所编的程序代码如下要是那里有错希望帮我该下.
(defun c:wzth()
(setq s (ssget "x" (list (cons 0 "text"))))   %读取所有层里的text
(if s
   (progn
   (setq slen (sslength s))   %读取选择集的长度
   (setq i 0)
   (while (<= i slen)
       (progn
         (setq sse (ssname s i))
         (setq ssen (entget sse))
         (setq oldtext (assoc 1 ssen))
         (setq tex (cdr oldtext))
         (if (= tex "TB01" )
         (setq newtext (cons 1 "土房"))
          )
         (if (= tex "TA01")
         (setq newtext (cons 1 "砖房"))
          )
          (setq ssen (subst newtext oldtext ssen))
         (entmod ssen)
          (setq i (1+ i))
       )
   )
(entupd ssen)
)
)
)

zhang6767gao 发表于 2006-11-19 17:16

不懂哦,新手头都看暴了

zmkgem0815 发表于 2006-11-28 18:45

没高手回帖吗？我也跟着学学……

小廖 发表于 2008-10-27 18:10

有望高手解决！:victory:

小廖 发表于 2008-11-2 17:02

发给版主看看！我也是新手。不懂
页: [1]
查看完整版本: 求助:CAD 中文字替换问题