[求助]LISP调用打开(OPEN)命令的问题(已解决)

Student

(setq newdoc (vla-open (vla-get-documents (vlax-get-acad-object)) "d:\\temp\\t1.dwg"))

(setq newdoc (vla-open (vla-get-documents (vlax-get-acad-object)) "d:\\temp\\t2.dwg"))

(setq newdoc (vla-open (vla-get-documents (vlax-get-acad-object)) "d:\\temp\\t3.dwg"))

在Acad2004，Acad2010下测试都正常。

英雄无敌

是可以，原来是因为我安装了别的外挂软件的原因，卸载后就好了

wangfq332

英雄无敌发表于2009-5-24 8:48:00由于LISP不能跨文档运行，所以只能在单文档模式下打开文件，也就是能在当前的文档下打开了，如果要运行多文档打开，可能还得用VBA，我试了试在VL下用VL-OPEN，虽然可以打开，但打开后CAD就死了

谢谢无敌兄的解答！现在刚学习，既然这么难实现，那就只好先学好LISP再研究了。再次谢谢各位！

英雄无敌

你的功能可以这样写，因为一开始因为CAD软件的问题，没有调试通过，所以没有放上来。

(defun c:fa ()
  (if (null oldfil);如果要在每个图形中都能记住，则要在注册表中保存
    (setq oldfil (vl-filename-directory (findfile "acad.exe")))
  )
  (if (/= (substr oldfil (strlen oldfil)) "\\")
    (setq oldfil (strcat oldfil "\\"))
  )

  (setq fil (getfiled "打开图形" oldfil "dwg;dxf" 0))
  (if (/= nil fil)
    (progn
      (setq oldfil (vl-filename-directory fil))
      (vla-open (setq docs (vla-get-documents
        (setq cadobj (vlax-get-acad-object))
      )
  )
  fil
      )

      (vla-activate (vla-item docs (1- (vla-get-count docs))));这句话是激活最后打开的文件，可以根据需要去掉

    )
  )

)

ZHAOWCHANG

此句 (setq newdoc (vla-open (vla-get-documents (vlax-get-acad-object)) "e:\\aa.dwg")) 我在2004下试验也没问题，估计是CAD的安装问题。

wangfq332

无敌兄，你的代码在CAD2010下测试通过！谢谢了。

看来LISP可以实现我们需要的大多数功能！虽然我是新手，还不能理解你的代码的意思。但我会好好研究的！