[求助]：怎么用LISP打开一个图形

WALX

(command "open" "xxxxxxx.dwg")不行，(command "fileopen" "xxxxxxx.dwg")又要打开CAD建的空文件关闭，该怎么办？

snsj

最初由 WALX 发布
[B](command "open" "xxxxxxx.dwg")不行，(command "fileopen" "xxxxxxx.dwg")又要打开CAD建的空文件关闭，该怎么办？ [/B]

2. [php]
   
3. ;;;|打开文件并将其设为活动状态
   
4. (defun opfile (fl)
   
5.   (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) fl :VLAX-TRUE))
   
6. )
   
7. 例：
   
8. (opfile  "F:\\公司施工图专用文件夹\\二层平面消防图1.dwg")
   
9. [/php]

[php]<br /> ;;;|打开文件并将其设为活动状态<br /> (defun opfile (fl)<br />   (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) fl :VLAX-TRUE))<br /> )<br /> 例：<br /> (opfile  "F:\\公司施工图专用文件夹\\二层平面消防图1.dwg")<br /> [/php]

lsjjm

或者：
(defun cmdOpen  (name);;;lisp??
  (vl-load-com)
  (if (= 0 (getvar "SDI"))
    (vla-activate
      (vla-open (vla-get-documents (vlax-get-acad-object)) name))
    (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object))
      (strcat "(command \"_.OPEN\")\n" name "\n")
    )
  )
)

WALX

谢谢两位，问题又出来了，激活后程序进入求值计算，无法继续了，恳请再次帮忙。。。。。

snsj

最初由 WALX 发布
[B]谢谢两位，问题又出来了，激活后程序进入求值计算，无法继续了，恳请再次帮忙。。。。。 [/B]

用VBA表达式的方法吧，不会出现上面的问题

2. [php]
   
3. (defun cmdOpen (dwgname)   
   
4.     (vl-cmdf "vbastmt" (strcat "AcadApplication.Documents.Open ("" dwgname "")"))
   
5.   )
   
6. [/php]

[php]<br /> (defun cmdOpen (dwgname)    <br />     (vl-cmdf "vbastmt" (strcat "AcadApplication.Documents.Open ("" dwgname "")"))<br />   )<br /> [/php]