[求助]：批处理 文本

1516

我想把CAD里面的 所有的文字 40×3 改为 40×4

有什么外挂可以实现？我用的是R14
装有0.29工具箱，有个“查找替换”功能，但是我的用不了！

YHFYHF

是呀,咋办呢?

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (defun SubUpd        (ename code newvalue)
   
4.     (entmod (subst (cons code newvalue)
   
5.                    (assoc code (entget ename))
   
6.                    (entget ename)
   
7.             )
   
8.     )
   
9.     (entupd ename)
   
10.   )
    
11.   (setq        ss (ssget "X" '((0 . "TEXT") (1 . "40×3")))
    
12.         i  -1
    
13.   )
    
14.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
15.     (subupd s1 1 "40×4")
    
16.   )
    
17.   (princ)
    
18. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (defun SubUpd        (ename code newvalue)<br />     (entmod (subst (cons code newvalue)<br />                    (assoc code (entget ename))<br />                    (entget ename)<br />             )<br />     )<br />     (entupd ename)<br />   )<br />   (setq        ss (ssget "X" '((0 . "TEXT") (1 . "40×3")))<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (subupd s1 1 "40×4")<br />   )<br />   (princ)<br /> )[/FONT]

雨箭风刀

ｆｉｎｄ命令

1516

本人有点菜，不要给我程序，看得懂一点意思但是不会用，还有，我的“find”用不了

Unknown command "FIND".  Press F1 for help.

xyp1964

最初由 1516 发布
[B]本人有点菜，不要给我程序，看得懂一点意思但是不会用，还有，我的“find”用不了

Unknown command "FIND".  Press F1 for help. [/B]

命令：1516

1516

直接拉到R14吗？
只见   (LOAD "E:/查找替换test.lsp") 运行命令：1516
然后呢？没见改变什么啊