[求助]：编程

liujun0732

我在用R14时就编了下面这个程序：
（defun c:df()
      (setvar "filedia" 0)
      (command "open" "y" "路径名")
      (setvar "filedia" 1)
   )


在cad里面键入DF后就可以打开路径所指定的文件。
但放到R2002里就不能用了。我改了中间那个为
(command (open "\n "路径名" "r" ))
可还是不行。
对2002这方面的东西没有看过。所以也就不会了。
因为这个对我来说很实用。所以请各位高手帮忙看是那个地方错了。

ll_j

R14是单进程，Lisp是建立在Acad平台上的，在打开的图形中运行，这样的语句就是“否定自己”，是不可以的。

liujun0732

那应该如何改正呢？请指点。

841594

用script似乎可以。

aeo

(command "fileopen" "y" "路径名")

liujun0732

多谢斑竹。你的方法不错。不过我得改一下ACAD文件。那样才行。

LUCAS

2. 
   
3. ;;--------------------------------------------------------------
   
4. (vl-load-com)
   
5. ;;;In MDI mode
   
6. (vla-open (vla-get-documents (vlax-get-acad-object))
   
7.           "yourdrawing"
   
8. )
   
9. ;;;In SDI mode
   
10. (vla-open (vla-get-activedocument (vlax-get-acad-object))
    
11.           "yourdrawing"
    
12. )
    
13. 
    
14. 
    
15. ;;--------------------------------------------------------------
    
16. (vla-activate
    
17.   (vla-open (vla-get-documents (vlax-get-acad-object)))
    
18. )
    
19. 
    
20. 
    
21. ;;--------------------------------------------------------------
    
22. ;;; opens and activates a file as Read-Only
    
23. (defun OPENRO (FNA)
    
24.   (vla-activate
    
25.     (vla-open (vla-get-documents (vlax-get-acad-object))
    
26.               FNA
    
27.               :vlax-true
    
28.     )
    
29.   )
    
30. )
    
31. 
    
32. 
    
33. ;;--------------------------------------------------------------
    
34. (defun C:OPENDWG (/ NAME)
    
35.   (vl-load-com)
    
36.   (setq NAME (getfiled "Select File" (getvar "dwgprefix") "dwg" 16))
    
37.   (if (= 0 (getvar "SDI"))
    
38.     (command "_.VBASTMT"
    
39.              (strcat "AcadApplication.Documents.Open "" NAME """)
    
40.     )
    
41.     (command "_.VBASTMT"
    
42.              (strcat "AcadApplication.activedocument.Open "" NAME """)
    
43.     )
    
44.   )
    
45. )
    
46. 
    
47. 
    
48. ;;=============================================================
    
49. (defun OPENFILE        (DWGFILE / ACAD ACADDOC OPENDOC)
    
50.   (vl-load-com)
    
51.   (setq ACAD (vlax-get-acad-object))
    
52.   (setq ACADDOC (vlax-get-property ACAD 'DOCUMENTS))
    
53. 
    
54.   (setq OPENDOC (vlax-invoke-method ACADDOC 'open DWGFILE))
    
55.   (if (/= OPENDOC NIL)
    
56.     (vlax-invoke-method OPENDOC 'ACTIVATE)
    
57.     (prompt "\nFailed to open drawing file.")
    
58.   )
    
59. )
    

<br /> ;;--------------------------------------------------------------<br /> (vl-load-com)<br /> ;;;In MDI mode<br /> (vla-open (vla-get-documents (vlax-get-acad-object))<br />           "yourdrawing"<br /> )<br /> ;;;In SDI mode<br /> (vla-open (vla-get-activedocument (vlax-get-acad-object))<br />           "yourdrawing"<br /> )<br /> <br /> <br /> ;;--------------------------------------------------------------<br /> (vla-activate<br />   (vla-open (vla-get-documents (vlax-get-acad-object)))<br /> )<br /> <br /> <br /> ;;--------------------------------------------------------------<br /> ;;; opens and activates a file as Read-Only<br /> (defun OPENRO (FNA)<br />   (vla-activate<br />     (vla-open (vla-get-documents (vlax-get-acad-object))<br />               FNA<br />               :vlax-true<br />     )<br />   )<br /> )<br /> <br /> <br /> ;;--------------------------------------------------------------<br /> (defun C:OPENDWG (/ NAME)<br />   (vl-load-com)<br />   (setq NAME (getfiled "Select File" (getvar "dwgprefix") "dwg" 16))<br />   (if (= 0 (getvar "SDI"))<br />     (command "_.VBASTMT"<br />              (strcat "AcadApplication.Documents.Open "" NAME """)<br />     )<br />     (command "_.VBASTMT"<br />              (strcat "AcadApplication.activedocument.Open "" NAME """)<br />     )<br />   )<br /> )<br /> <br /> <br /> ;;=============================================================<br /> (defun OPENFILE        (DWGFILE / ACAD ACADDOC OPENDOC)<br />   (vl-load-com)<br />   (setq ACAD (vlax-get-acad-object))<br />   (setq ACADDOC (vlax-get-property ACAD 'DOCUMENTS))<br /> <br />   (setq OPENDOC (vlax-invoke-method ACADDOC 'open DWGFILE))<br />   (if (/= OPENDOC NIL)<br />     (vlax-invoke-method OPENDOC 'ACTIVATE)<br />     (prompt "\nFailed to open drawing file.")<br />   )<br /> )<br />

aeo

我看还是
(command "_.VBASTMT" (strcat "AcadApplication.Documents.Open \"" NAME "\"") )简单，
这是cad帮助里的.前面加一getfiled,完美!

不过要象R14,还是"fileopen"