求教：怎样实现按一定对应法则对多种文字进行替换？

vivi8543

cad中有find命令可进行字符替换，但每次都只能将A替换成B，有没有办法将A-B,C-D,。。。。。。形成一个对应法则，只执行一个命令就可以将图中的A,C自动替换成B,D呢？求高手指教。

phoenixdjq

上面是不是你只是举例呀？

如果你要是简单的这么改的话，我建议你用两次find命令

要不编了程序也没有什么太大的作用呀，不会提高很多的工作量。

vivi8543

修改个数少没什么价值，但要是很多的话就很有用了

比如说对各种型号的钢筋，更正各自的钢筋级别符号

或者，有人能提供find命令的源代码吗？

再或者，有没有办法将find 命令不以对话框的形式出现？

又或者，在lisp中使用command执行find，有没有在lisp中对command出现的对话框进行操作？

phoenixdjq

find命令是不支持命令行形式的

有时间你可以找找本论坛的帖子

我记得好像有这样的帖子

我有时间的话，也帮你找找

vivi8543

那先谢谢ls了

vivi8543

搞定了，感谢BDYCAD的程序

zhaomc520

既然已经搞定了，何不传上来大家共享？

vivi8543

2. ;;;date: 2004-09-01
3. ;;;by BDYCAD
4. ;;;查找与替换
5. ;;; (reptext <要找的文字> <替换成的文字>)
6. ;;;应用举例:
7. ;;;(SETQ char-A "DRAWING1" char-B "BDYCADCAD")
8. ;;;(reptext char-A char-B)
9. ;;;_______________________________________________________
10. (defun reptext
11.         (char-A   char-B    /      
12.   index   ent     typeA     typeA-len char-Alen
13.   char-Blen n     char-aa   newsize
14.         )
15.   (if ss
16.     (progn
17.       (setq index 0)
18.       (repeat (sslength ss)
19. (setq ent (entget (ssname ss index)))
20. (setq index (+ 1 index))
21. (setq typeA (cdr (assoc 1 ent))) ;选择的文字内容
22. (setq typeA-len (strlen typeA)) ;选择的文字内容的长度
23. (setq char-Alen (strlen char-A)) ;取得要找的文字的长度
24. (setq char-Blen (strlen char-B)) ;取得替换文字的长度
25. (setq n 1)
26. (if (= char-A "")
27.    (setq typeA-len 1)
28. )
29. (repeat typeA-len
30.    (setq char-aa (substr typeA n char-Alen))
31.      ;查找选择的文字内容里是否有要被替换的文字
32.    (if (= char-aa char-A)
33.      (progn   ;如果有
34.        (setq typeA (vl-string-subst char-B char-A typeA))
35.        (setq newsize (cons 1 typeA))
36.        (setq ent (subst newsize (assoc 1 ent) ent))
37.        (entmod ent)
38.        (setq pc (1+ pc))
39.      )
40.      ;;End progn
41.    )
42.    ;;End if
43.    (setq n (1+ n))
44. )
45. ;;End repeat
46.       )
47.       ;;End repeat
48.     )
49.     ;;End progn
50.   )
51.   ;;End if
52. )
53. ;;;_______________________________________________________
54. (defun c:rein (/ cm char-A char-B ss)
55.   (setq cm (getvar "cmdecho"))
56.   (setvar "cmdecho" 0)
57.   (setq pc 0)
58.   (setq ss (ssget '((0 . "TEXT,MTEXT")))) ;选择文字
59.   (reptext "[6" "]6")
60.   (reptext "{6" "]6")
61.   (reptext "}6" "]6")
62.   (reptext "]8" "[8")
63.   (reptext "{8" "[8")
64.   (reptext "}8" "[8")
65.   (reptext "[10" "]10")
66.   (reptext "{10" "]10")
67.   (reptext "}10" "]10")
68.   (reptext "[12" "]12")
69.   (reptext "{12" "]12")
70.   (reptext "}12" "]12")
71.   (reptext "[14" "]14")
72.   (reptext "{14" "]14")
73.   (reptext "}14" "]14")
74.   (reptext "[16" "}16")
75.   (reptext "]16" "}16")
76.   (reptext "{16" "}16")
77.   (reptext "[18" "}18")
78.   (reptext "]18" "}18")
79.   (reptext "{18" "}18")
80.   (reptext "[20" "}20")
81.   (reptext "]20" "}20")
82.   (reptext "{20" "}20")
83.   (reptext "[22" "}22")
84.   (reptext "]22" "}22")
85.   (reptext "{22" "}22")
86.   (reptext "[25" "}25")
87.   (reptext "]25" "}25")
88.   (reptext "{25" "}25")
89.   (reptext "%%1306" "%%1316")
90.   (reptext "{6" "%%1316")
91.   (reptext "\%%1326" "%%1316")
92.   (reptext "%%1318" "%%1308")
93.   (reptext "{8" "%%1308")
94.   (reptext "\%%1328" "%%1308")
95.   (reptext "%%13010" "%%13110")
96.   (reptext "{10" "%%13110")
97.   (reptext "\%%13210" "%%13110")
98.   (reptext "%%13012" "%%13112")
99.   (reptext "{12" "%%13112")
100.   (reptext "\%%13212" "%%13112")
101.   (reptext "%%13014" "%%13114")
102.   (reptext "{14" "%%13114")
103.   (reptext "\%%13214" "%%13114")
104.   (reptext "%%13016" "\%%13216")
105.   (reptext "%%13116" "\%%13216")
106.   (reptext "{16" "\%%13216")
107.   (reptext "%%13018" "\%%13218")
108.   (reptext "%%13118" "\%%13218")
109.   (reptext "{18" "\%%13218")
110.   (reptext "%%13020" "\%%13220")
111.   (reptext "%%13120" "\%%13220")
112.   (reptext "{20" "\%%13220")
113.   (reptext "%%13022" "\%%13222")
114.   (reptext "%%13122" "\%%13222")
115.   (reptext "{22" "\%%13222")
116.   (reptext "%%13025" "\%%13225")
117.   (reptext "%%13125" "\%%13225")
118.   (reptext "{25" "\%%13225")
119.   (princ (strcat "\n替换了" (rtos pc) "个."))
120.   (princ)
121. )

;;;date: 2004-09-01 ;;;by BDYCAD ;;;查找与替换 ;;; (reptext <要找的文字> <替换成的文字>) ;;;应用举例: ;;;(SETQ char-A "DRAWING1" char-B "BDYCADCAD") ;;;(reptext char-A char-B) ;;;_______________________________________________________ (defun reptext         (char-A   char-B    /         index   ent     typeA     typeA-len char-Alen   char-Blen n     char-aa   newsize         )   (if ss     (progn       (setq index 0)       (repeat (sslength ss) (setq ent (entget (ssname ss index))) (setq index (+ 1 index)) (setq typeA (cdr (assoc 1 ent))) ;选择的文字内容 (setq typeA-len (strlen typeA)) ;选择的文字内容的长度 (setq char-Alen (strlen char-A)) ;取得要找的文字的长度 (setq char-Blen (strlen char-B)) ;取得替换文字的长度 (setq n 1) (if (= char-A "")    (setq typeA-len 1) ) (repeat typeA-len    (setq char-aa (substr typeA n char-Alen))      ;查找选择的文字内容里是否有要被替换的文字    (if (= char-aa char-A)      (progn   ;如果有        (setq typeA (vl-string-subst char-B char-A typeA))        (setq newsize (cons 1 typeA))        (setq ent (subst newsize (assoc 1 ent) ent))        (entmod ent)        (setq pc (1+ pc))      )      ;;End progn    )    ;;End if    (setq n (1+ n)) ) ;;End repeat       )       ;;End repeat     )     ;;End progn   )   ;;End if ) ;;;_______________________________________________________ (defun c:rein (/ cm char-A char-B ss)   (setq cm (getvar "cmdecho"))   (setvar "cmdecho" 0)   (setq pc 0)   (setq ss (ssget '((0 . "TEXT,MTEXT")))) ;选择文字   (reptext "[6" "]6")   (reptext "{6" "]6")   (reptext "}6" "]6")   (reptext "]8" "[8")   (reptext "{8" "[8")   (reptext "}8" "[8")   (reptext "[10" "]10")   (reptext "{10" "]10")   (reptext "}10" "]10")   (reptext "[12" "]12")   (reptext "{12" "]12")   (reptext "}12" "]12")   (reptext "[14" "]14")   (reptext "{14" "]14")   (reptext "}14" "]14")   (reptext "[16" "}16")   (reptext "]16" "}16")   (reptext "{16" "}16")   (reptext "[18" "}18")   (reptext "]18" "}18")   (reptext "{18" "}18")   (reptext "[20" "}20")   (reptext "]20" "}20")   (reptext "{20" "}20")   (reptext "[22" "}22")   (reptext "]22" "}22")   (reptext "{22" "}22")   (reptext "[25" "}25")   (reptext "]25" "}25")   (reptext "{25" "}25")   (reptext "%%1306" "%%1316")   (reptext "{6" "%%1316")   (reptext "\%%1326" "%%1316")   (reptext "%%1318" "%%1308")   (reptext "{8" "%%1308")   (reptext "\%%1328" "%%1308")   (reptext "%%13010" "%%13110")   (reptext "{10" "%%13110")   (reptext "\%%13210" "%%13110")   (reptext "%%13012" "%%13112")   (reptext "{12" "%%13112")   (reptext "\%%13212" "%%13112")   (reptext "%%13014" "%%13114")   (reptext "{14" "%%13114")   (reptext "\%%13214" "%%13114")   (reptext "%%13016" "\%%13216")   (reptext "%%13116" "\%%13216")   (reptext "{16" "\%%13216")   (reptext "%%13018" "\%%13218")   (reptext "%%13118" "\%%13218")   (reptext "{18" "\%%13218")   (reptext "%%13020" "\%%13220")   (reptext "%%13120" "\%%13220")   (reptext "{20" "\%%13220")   (reptext "%%13022" "\%%13222")   (reptext "%%13122" "\%%13222")   (reptext "{22" "\%%13222")   (reptext "%%13025" "\%%13225")   (reptext "%%13125" "\%%13225")   (reptext "{25" "\%%13225")   (princ (strcat "\n替换了" (rtos pc) "个."))   (princ) )