[LISP]一个命令，多文档收益的lisp

逐月飞鸿

一个命令，多文档收益的lisp
在使用2005打开多文档的时候，我想在关闭所有的文档前，在一个文档中执行一个命令(zea）： 这个命令就相当于在所有打开的文档中执行一个_.zoom _e命令和一个-qsave，以达到每个文档的图纸居中。
这样在以后的使用当中，就可以通过预览而不用打开就可以知道图中有几张图了，给以后带来很大的便利，请高手解决！

mkhsj928

你先试试：在一个文档中加载一个Lisp，在另一个文档中运行这个Lisp行不？

wdb

lisp天生缺陷，不支持多文档操作。

citykunan

load-->application...--->contents..(add to history..)就可以实现每张图就加载

逐月飞鸿

不是吧，vlisp支持的，以下为例： (defun c:FS ()
(princ "\n***所有打开文档同时批量查找和替换程序(全字匹配)***——测设二处")
;(vl-load-com)
(setq char-A (getstring "\n请输入查找文字:"))
(setq char-B (getstring "\n请输入替换文字:"))
(vlax-for i (vla-get-Documents (vlax-get-acad-object))
(vlax-for j (vla-get-modelspace i)
(if (= "AcDbText" (vla-get-objectname j))
(if (= char-A (vla-get-textstring j))
(vla-put-textstring j char-B)
)
)
)
(vla-regen i acallviewports)
)
(princ)
)

meflying

其它的好做，不过ZOOM命令似乎比较困难