紧急求助:如何用程序实现批量替换图中的文字

huyihua1979

小弟碰到修改图纸的问题,只需将图中所有的文本或属性值3L06改成4L06或类似,一共有1000多文件,一个文件一个文件用查找替换的方法可以做到,但是工作量很大,而且一不小心就漏掉某些文件,文件名是没有规律的.
请高人指点如何可以做到批量更改,我在论坛上看到有兄弟写的LISP程序试了一下,但是总不成功, 我用的是2004版本,另外我对LISP一无所知,那位兄弟的源代码如下:

3. ;;一个VLISP的批量处理范例
4. ;;从这个范例可以了解VLISP如何批量处理图档
5. ;;虽然速度慢了点,但非常实用
6. ;;By LUCAS(龙龙仔)
7. ;;批量修改文字
8. ;;
9. ;;虽配合Expresstools__(acetutil.arx)
10. ;;为加速程序执行,程序将设定系统变量ACADLSPASDOC
11. ;;即<只载入 acad.lsp 至 AutoCAD 执行期所开启的第一个图面>
12. ;;当然程序结束后,会还原系统变量ACADLSPASDOC
13. ;;
14. ;;For AutoCad 2000+  
16. (arxload "acetutil.arx" NIL)
17. (vl-load-com)
18. (defun CH_TXT (OLDTXT NEWTXT / HOLDECHO APP DWGNAME
19. PREFIX_DWG NN QQ HOLDLSP WW
20. ENT N
21. )
22. (setq HOLDECHO (getvar "cmdecho"))
23. (setvar "cmdecho" 0)
24. (setq PREFIX_DWG
25. (strcat
26. (vl-string-right-trim
27. "\"
28. (strcase (acet-ui-pickdir
29. "选择目录"
30. (vl-string-right-trim "\" (getvar "dwgprefix"))
31. "批量修改文字"
32. )
33. )
34. )
35. "\"
36. )
37. )
38. (setq HOLDLSP (getvar "ACADLSPASDOC"))
39. (setvar "acadlspasdoc" 0)
40. (setq QQ (vl-directory-files PREFIX_DWG "*.DWG"))
41. (setq NN 0)
42. (if (/= QQ NIL)
43. (progn
44. (setq APP (vlax-get-acad-object))
45. (repeat (length QQ)
46. (setq DWGNAME (strcase (strcat PREFIX_DWG (nth NN QQ))))
47. (setq WW (vla-open (vla-get-documents APP) DWGNAME))
48. (vlax-for N (vla-get-blocks WW)
49. (vlax-for ENT N
50. (if (and (vlax-property-available-p ENT 'TEXTSTRING)
51. (wcmatch (setq STR (vla-get-textstring ENT))
52. (strcat "*" OLDTXT "*")
53. )
54. )
55. (progn
56. (setq STR (vl-string-subst NEWTXT OLDTXT STR))
57. (vla-put-textstring ENT STR)
58. )
59. )
60. )
61. )
62. (vla-save WW)
63. (prompt (strcat "\n" DWGNAME " <修改Text完成>!!!"))
64. (vla-close WW :vlax-false)
65. (setq NN (1+ NN))
66. )
67. (vlax-release-object WW)
68. (vlax-release-object APP)
69. )
70. (prompt "\n所选目录中未有任何图档!!!")
71. )
72. (setvar "acadlspasdoc" HOLDLSP)
73. (setvar "cmdecho" HOLDECHO)
74. (princ)
75. )
76. (princ)

;;一个VLISP的批量处理范例 ;;从这个范例可以了解VLISP如何批量处理图档 ;;虽然速度慢了点,但非常实用 ;;By LUCAS(龙龙仔) ;;批量修改文字 ;; ;;虽配合Expresstools__(acetutil.arx) ;;为加速程序执行,程序将设定系统变量ACADLSPASDOC ;;即<只载入 acad.lsp 至 <a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a> 执行期所开启的第一个图面> ;;当然程序结束后,会还原系统变量ACADLSPASDOC ;; ;;For AutoCad 2000+   (arxload "acetutil.arx" NIL) (vl-load-com) (defun CH_TXT (OLDTXT NEWTXT / HOLDECHO APP DWGNAME PREFIX_DWG NN QQ HOLDLSP WW ENT N ) (setq HOLDECHO (getvar "cmdecho")) (setvar "cmdecho" 0) (setq PREFIX_DWG (strcat (vl-string-right-trim "\" (strcase (acet-ui-pickdir "选择目录" (vl-string-right-trim "\" (getvar "dwgprefix")) "批量修改文字" ) ) ) "\" ) ) (setq HOLDLSP (getvar "ACADLSPASDOC")) (setvar "acadlspasdoc" 0) (setq QQ (vl-directory-files PREFIX_DWG "*.DWG")) (setq NN 0) (if (/= QQ NIL) (progn (setq APP (vlax-get-acad-object)) (repeat (length QQ) (setq DWGNAME (strcase (strcat PREFIX_DWG (nth NN QQ)))) (setq WW (vla-open (vla-get-documents APP) DWGNAME)) (vlax-for N (vla-get-blocks WW) (vlax-for ENT N (if (and (vlax-property-available-p ENT 'TEXTSTRING) (wcmatch (setq STR (vla-get-textstring ENT)) (strcat "*" OLDTXT "*") ) ) (progn (setq STR (vl-string-subst NEWTXT OLDTXT STR)) (vla-put-textstring ENT STR) ) ) ) ) (vla-save WW) (prompt (strcat "\n" DWGNAME " <修改Text完成>!!!")) (vla-close WW :vlax-false) (setq NN (1+ NN)) ) (vlax-release-object WW) (vlax-release-object APP) ) (prompt "\n所选目录中未有任何图档!!!") ) (setvar "acadlspasdoc" HOLDLSP) (setvar "cmdecho" HOLDECHO) (princ) ) (princ)

我加载运行了几次,结果都是无功而返,要么出现"参数太少",要么就是"变量类型错误",因为在下看不懂原码,也不知道如何处理,请各位高手帮我解决这个问题......先谢谢各位!!!!!!
命令: CH_TXT
; 错误: 参数太少
命令:

无痕

(CH_TXT OLDTXT NEWTXT )

比如 (CH_TXT "±" "%" )

huyihua1979

谢谢楼上兄弟!!!

我试一下先,就是变量声名改一下就好吗? 兄弟还有别的建议吗? 因为真的比较急,我也来不及做功课学LISP了,希望得到各位多多指点!!!

huyihua1979

属性值不可以修改,只能改单行文本和多行文本.

能把块属性值也改了吗?程序应该怎样改?

huyihua1979

属性值的批量修改不能吗