autocad 文件的自动打开

ytde55

那位大侠能用lisp建立一个连接去自动打开AutoCAD的dwg文件。请帮忙！谢谢！

blackhawks

(defun openfile()
 (vl-load-com)
  (setq acadobject (vlax-get-acad-object)
 acaddocument (vla-get-activedocument acadobject)
 )
  (setq documents (vla-get-documents (vla-get-application acaddocument)))
  (vla-open documents "F:\\bkhawk\\1-e.dwg" :vlax-false)
(vla-activate (vla-item documents 1))
  (exit)
)

将程序代码加入acaddoc.lsp中即可