逐月飞鸿 发表于 2005-1-12 09:29:00

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

<FONT id=text1 style="FONT-SIZE: 10pt" face="宋体,verdana, arial, helvetica">一个命令，多文档收益的lisp<BR>在使用2005打开多文档的时候，我想在关闭所有的文档前，在一个文档中执行一个命令(zea）： 这个命令就相当于在所有打开的文档中执行一个_.zoom _e命令和一个-qsave，以达到每个文档的图纸居中。<BR>这样在以后的使用当中，就可以通过预览而不用打开就可以知道图中有几张图了，给以后带来很大的便利，请高手解决！</FONT> <BR>

mkhsj928 发表于 2005-1-12 09:42:00

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

wdb 发表于 2005-1-12 10:32:00

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

citykunan 发表于 2005-1-12 13:32:00

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

逐月飞鸿 发表于 2005-1-12 14:12:00

不是吧，vlisp支持的，以下为例：


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

meflying 发表于 2005-1-12 15:31:00

其它的好做，不过ZOOM命令似乎比较困难
页: [1]
查看完整版本: [LISP]一个命令，多文档收益的lisp