lisp自定义命令如何在当前打开的所有文档遍历运行

ludaweb

我想用程序实现这个功能，就是在当前文档里面运行自己定义的程序，然后程序根据设定好的参数分别在当前打开的所有文档里面执行一遍，比方说根据设定好的参数在每个文档里面执行一遍A2图纸的批量打印。

下面是部分代码，我想让程序切换到另外一个文档然后执行程序，好像不行，感觉lisp只能在当前文档里面执行，虽然能切换到另外一个文件，但是切换后代码就不执行了，要等回到原来的文档再继续执行，如何才能在新的文档里面执行自定义的命令呢？

如果lisp不能实现是不是可以用scr实现呢，有没有大神给指点一下

cad打开两个文档，在第一个打开的文档里面运行下面的程序

1. (defun alldocs (/ docs)
   
2.   (vlax-map-collection (vla-get-Documents (vlax-get-acad-object))
   
3.     (function
   
4.       (lambda ( doc )
   
5.         (setq docs
   
6.           (cons doc docs
   
7.           )
   
8.         )
   
9.       )
   
10.     )
    
11.   )
    
12.   (reverse docs)
    
13. )
    
14. 
    
15. (defun c:tt( / )
    
16.     (vl-load-com)
    
17.     (vla-Activate (nth 1 (alldocs)))
    
18.     (alert "xx")(princ)
    
19. )
    

(defun alldocs (/ docs)<br />   (vlax-map-collection (vla-get-Documents (vlax-get-acad-object))<br />     (function<br />       (lambda ( doc )<br />         (setq docs<br />           (cons doc docs<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (reverse docs)<br /> )<br /> <br /> (defun c:tt( / )<br />     (vl-load-com)<br />     (vla-Activate (nth 1 (alldocs)))<br />     (alert "xx")(princ)<br /> )<br />

ivde

vl-load-all

ludaweb

ivde 发表于 2016-4-30 18:56
vl-load-all

这样只是在所有文档里面加载了程序，现在的关键问题是如何编写程序能够实现这样的功能。
即在当前文档运行自定义的程序，程序在当前文档运行完后，自动切换到另外一个CAD打开的文档，然后也运行该程序。

Andyhon

Lisp启用的年代未有多文件模式的架构,只能作用于单文档...

思路:
启用SDI,用Script串接
or
开启空白文档  [undo mark]
循环...
insert 打印文文件 打印文文件程序 [undo Back]
insert 打印文文件 打印文文件程序 [undo Back]
insert 打印文文件 打印文文件程序 [undo Back]
...
循环...

ludaweb

Andyhon 发表于 2016-5-6 10:41
Lisp启用的年代未有多文件模式的架构,只能作用于单文档...

思路:

谢谢大神解惑

启用SDI,用Script串接
是不是就是用scr脚本来批量切换执行啊
找不到相关的例子或者资料

Andyhon

Searching with keyword:
ScriptPro "AutoCAD"