Vlisp跨文档操作的方法

陨落

可笑鄙人学习vlisp这么久了，居然今天才知道lisp是可以随意跨文档操作的。。

高手轻喷，今天就把跨文档的代码分享出来，博君一笑。

1. (defun c:ttt();;;;;;该函数能成功实现多文档切换
   
2.   (vl-load-com)
   
3.   (setq acads (vlax-get-acad-object)
   
4.   docs(vla-get-documents acads))
   
5.   (setq nt (vlax-get docs 'count))
   
6.   (setq i 0)
   
7.   (repeat nt
   
8.     (setq doci(vla-item docs i))
   
9.     (vla-addline (vla-get-modelspace doci) (vlax-3d-point '(0 0)) (vlax-3d-point'(2000 2000)))
   
10.    
    
11.     (vlax-invoke (vla-item docs i) 'Activate)
    
12.     (vla-sendcommand doci "regen ")
    
13.     (princ i)
    
14.     (setq i (+ i 1))
    
15.     )
    
16.   )

(defun c:ttt();;;;;;该函数能成功实现多文档切换<br />   (vl-load-com)<br />   (setq acads (vlax-get-acad-object)<br />   docs(vla-get-documents acads))<br />   (setq nt (vlax-get docs 'count))<br />   (setq i 0)<br />   (repeat nt<br />     (setq doci(vla-item docs i))<br />     (vla-addline (vla-get-modelspace doci) (vlax-3d-point '(0 0)) (vlax-3d-point'(2000 2000)))<br />     <br />     (vlax-invoke (vla-item docs i) 'Activate)<br />     (vla-sendcommand doci "regen ")<br />     (princ i)<br />     (setq i (+ i 1))<br />     )<br />   )

功能是在cad所有打开的文档中画一条线，并执行regen操作

taoyi0727

vla-get-documents  这个不就是文档的集合吗
没有搞明白这个函数的意义就不知道怎么多文档操作

陨落

终于知道以前为何总是无法切换文档了。。。探索者环境下就不行，探索者把lisp文档切换能力禁用了。。

guosheyang

感谢大佬共享资料！

cghdy

陨落 发表于 2022-4-14 23:56
终于知道以前为何总是无法切换文档了。。。探索者环境下就不行，探索者把lisp文档切换能力禁用了。。

探索者干预CAD过多了。想制定行业标准，蛇吞象。

陨落

cghdy 发表于 2022-4-15 13:36
探索者干预CAD过多了。想制定行业标准，蛇吞象。

是的，然而探索者的功能基本是以bug为主。。最近的校审还不错。以前的探索者，实用的功能极少

Bao_lai

TSSD环境
命令: ttt
0AutoCAD: 文档切换已禁用
命令:

flowerson

厉害，学习到了！

nijiea123

你这个怕是要先把所有文档都打开吧

金鹅起飞

楼主的源码厉害，谢谢分享。我没有明白：这个东东有什么实际的使用价值？请知道的大师指点一下