[LISP程序]：求助！关于自动操作的编程

kehello

问题：
     每次我要手动打开一个目录里的所有DWG文件，对每一个文件的某几个特定字符进行替换操作（有可能是一个字符串当中的几个字符），各位老大，能否帮我一个忙，来让程序自动完成。
还有一个问题就是我对目录里的DWG文件进行操作时每次成批操作都是一样的动作！
比如：
     我在DSS目录里有20个DWG文件，我要把这20个DWG文件里所有**ABC**的字符串换成**CDE**字符串（*号表示不定长度的字符串哈）

aeo

如果不会lisp,写一个脚本.  *.scr

lsjjm

最初由 kehello 发布
[B]问题：     每次我要手动打开一个目录里的所有DWG文件，对每一个文件的某几个特定字符进行替换操作（有可能是一个字符串当中的几个字符），各位老大，能否帮我一个忙，来让程序自动完成。还有一个问题就是我对目... [/B]

请参考：
批量修改所有打开图形文件中的指定文字
[PHP]
(defun c:test ()
  (vl-load-com)
  (vlax-for i (vla-get-Documents (vlax-get-acad-object))
    (vlax-for j (vla-get-modelspace i)
      (if (= "AcDbText" (vla-get-objectname j))
        (if (= "Enzed" (vla-get-textstring j))
          (vla-put-textstring j "Parker")
        )
      )
    )
    (vla-regen i acallviewports)
  )
)
[/PHP]

ll_j

这里有个帖子http://xdcad.net/forum/showthrea ... 1222175#post1222175可供参考，我在8楼所说的命令文件就是脚本文件，附件中说明了解决方法，针对你的问题，你可能需要修改脚本文件内容，或者修改Lisp文件内容。

kehello

ll_j,能不能留个电话，或者QQ什么的我还是有点不明白呀！

(defun c:test ()
  (vl-load-com)
  (vlax-for i (vla-get-Documents (vlax-get-acad-object))
    (vlax-for j (vla-get-modelspace i)
      (if (= "AcDbText" (vla-get-objectname j))
        (if (= "Enzed" (vla-get-textstring j))
          (vla-put-textstring j "Parker")
        )
      )
    )
    (vla-regen i acallviewports)
  )
)
这个程序不行呀，首先不能自动处理一个目录下的所有文件（因为我的DWG文件特别大，直接用CAD一下子全打开，内存现在800M都不够用，还有就是我说的是替换图中字符串当中的某几个字符呀，再帮我想想行不？

ll_j

　其实我在那个附件的readme中已经说了，其实就是构造一个脚本文件，这个脚本文件的构造“需要一点DOS知识....”，其实就是调用find命令，由于find命令不能在命令行状态运行，所以写了一个Lisp程序完成，如果有一点Lisp程序，打开文件很容易看懂并修改。
　依我看，如果只有20个文件，逐个打开文件，然后使用find命令修改应该是最快的，对于很多的文件需要替换时，脚本文件才显示其优越性，作为一种方法理解一下，当然是有益处的。
　我的电话：025-83283626
　邮箱：ll_j@21cn.com

kehello

ll_j  
请问你叫什么名字呢，我打话打哪位哟！

雪山飞狐(lzh)

用ObjectDBX要好些吧，不必打开文件