在一个document中编写lisp程序,让另外一个document中运行某段代码,能实现吗?

Taoyimaier

问题是这样产生的
打开AutoCAD程序后,自动有一个drawing.dwg文档,在这个文档中运行一段代码..
该代码如下

2. ;;;right_var是我用前面代码已经正确赋值的字符串变量
3. (setq opened_doc (vla-open (vla-get-documents (vlax-get-acad-object)) right_var))
4.       (vla-activate opened_doc)

;;;right_var是我用前面代码已经正确赋值的字符串变量 (setq opened_doc (vla-open (vla-get-documents (vlax-get-acad-object)) right_var))       (vla-activate opened_doc)

接下来,我想在这个打开的opened_doc中运行一段代码,比如说,想设置opened_doc中的userr1系统变量为0.5,怎么实现

Taoyimaier

如果直接将代码写成

2. (setq opened_doc (vla-open (vla-get-documents (vlax-get-acad-object)) (nth 0 lst_var)))
3.       (vla-activate opened_doc)
4. (setvar "userr1" 0.5)

(setq opened_doc (vla-open (vla-get-documents (vlax-get-acad-object)) (nth 0 lst_var)))       (vla-activate opened_doc) (setvar "userr1" 0.5)

则设置的系统变量是drawing1.dwg中的,新打开的文档userr1没有变化...
高手们能有什么提示吗

oyxx1023

(vla-setvariable  opened_doc "userr1" 0.5)

Taoyimaier

哦,谢谢,完全用到面向对象的思路...

那么要是有个函数叫'fun1,想在opened_doc的空间中运行,该如何写

(vla-sendcommand  opened_doc  "(fun1  para1 para2)")

是不是啊

Taoyimaier

我说的对吗