[求助]能否实现一个程序在两幅图之间运行？

Dallas_whu

不能跨文档运行吧！

i-Stone

可以,要运行的语句不涉及COMMAND就行.

c3a139

i-Stone发表于2007-8-18 8:54:00可以,要运行的语句不涉及COMMAND就行.

为什么？

;;;新建两图形并轮流激活
(defun expact ()
  (VL-LOAD-COM)
  (SETQ AcadObject (vlax-get-acad-object)
 AcadDocument (vla-get-ActiveDocument AcadObject)
 mspace (vla-get-ModelSpace AcadDocument)
 )
  (setq Docsets (vla-get-Documents AcadObject))
  (setq newdrawing1 (vla-add docsets "")
        newdrawing2 (vla-add docsets "")
 )
  (setq index 0)
  (repeat (vla-get-count Docsets)
    (setq obj (vla-item Docsets index))
    (vla-activate obj)
    (setq Name (vla-get-Name obj))
    (princ " 图形")
    (princ Name)
    (princ "为当前激活")
    (princ "\n")
    (setq index (+ index 1))
    )
  )

加载后为未知命令

无痕

lisp不能跨文档运行(除非最后调用script,但是不能返回).但是数据可以跨文档.

方法很多.数据可以写文件; 黑板blackboard;注册表;dbx技术读写dwg等

飞诗(fsxm)

VBA能做的Vlisp差不多都能做了...办法自己想吧!

c3a139

这么多高手都说不行，看来是不行了，那只有写出数据了，谢谢各位