[编程申请]：一个命令，多文档收益的lisp

逐月飞鸿

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

eachy

2. 
   
3. (defun c:zea (/ docs)
   
4.   (setq        docs (vla-get-documents (vlax-get-acad-object))
   
5.   )
   
6.   (vlax-map-collection
   
7.     docs
   
8.     '(lambda (doc / app)
   
9.        (setq app (vla-get-application doc))
   
10.        (vla-zoomextents app)
    
11.        (vla-save doc)
    
12.        (if (/= (getvar "dwgname") (vla-get-name doc))
    
13.          (vla-close doc)
    
14.        )
    
15.      )
    
16.   )
    
17.   (princ)
    
18. )

<br /> (defun c:zea (/ docs)<br />   (setq        docs (vla-get-documents (vlax-get-acad-object))<br />   )<br />   (vlax-map-collection<br />     docs<br />     '(lambda (doc / app)<br />        (setq app (vla-get-application doc))<br />        (vla-zoomextents app)<br />        (vla-save doc)<br />        (if (/= (getvar "dwgname") (vla-get-name doc))<br />          (vla-close doc)<br />        )<br />      )<br />   )<br />   (princ)<br /> )

逐月飞鸿

谢谢热心的eachy斑竹。如果上面的程序还可以调用自己的定义的lisp命令就更好了，不知可以否？
譬如我在启动组中加入了一个pp.lsp，里面我定义一个命令(defun c:test ()........),我想在每个文档里面都执行一下test命令，不知怎么调用，上面怎么改写？请指教！先谢了！

eachy

2. 
   
3. 
   
4. (defun c:tt ()
   
5.   (vlax-map-collection
   
6.     (vla-get-documents (vlax-get-acad-object))
   
7.     '(lambda (doc)
   
8.        (vla-sendcommand doc "test")
   
9.      )
   
10.   )
    
11.   (princ)
    
12. )

<br /> <br /> (defun c:tt ()<br />   (vlax-map-collection<br />     (vla-get-documents (vlax-get-acad-object))<br />     '(lambda (doc)<br />        (vla-sendcommand doc "test")<br />      )<br />   )<br />   (princ)<br /> )

逐月飞鸿

非常感谢！如此之快，谢谢！不胜感激！
加载了使用了，提示如下：
; 错误: ActiveX 服务器返回错误: 非选择性的参数.
为什么呢？我的代码如下：
(vl-load-com)
(defun c:tt ()
  (vlax-map-collection
    (vla-get-documents (vlax-get-acad-object))
    '(lambda (doc)
       (vla-sendcommand doc "test")
     )
  )
  (princ)
)

eachy

test 为执行的 lisp 命令，确保每个文档已加载

pipi2008

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

LUCAS

最初由 eachy 发布
[B][code]
(defun c:zea (/ docs)
  (setq        docs (vla-get-documents (vlax-get-acad-object))
  )
  (vlax-map-collection
    docs
    '(lambda (doc / app)
       (setq app (vla-get-application doc))
  ... [/B]

(vla-zoomextents app);是對app,不是對active doc,所以多圖檔應不行吧!

它山之石

用DOCBAR可以实现你的要求退出时保存并缩放到范围。
自己写程序不知如何实现。

ps122

好像用处不是很大

xinh2008

强烈支持中

zh_6531394

9楼楼主,我用的DOCBAR为什么没有你的功能?

mage

什么是docbar，我怎么没有

pfrynwgkq

9楼可以共享一下吗？

zh_6531394

论坛里有,搜索下吗