[日积月累]：vlisp打开新图，for r2000＋

cy956

下面程序可以多选文件，同时打开多个新图。

2. 
   
3. 
   
4. (defun c:op  (/ filb path)
   
5.   (setq filb (dos_getfilem
   
6.                "选择要打开的dwg文件，按alt/shift可多选"
   
7.                "d:\"
   
8.                "Drawing Files (*.DWG)|*.DWG")
   
9.         path (car filb)
   
10.         filb (cdr filb))
    
11.   (foreach x filb (cmdOpen (strcat path x)))
    
12. )
    
13. 
    
14. (defun cmdOpen  (name);;;lisp开图
    
15.   (vl-load-com)
    
16.   (if (= 0 (getvar "SDI"))
    
17.     (vla-activate
    
18.       (vla-open (vla-get-documents (vlax-get-acad-object)) name))
    
19.     (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object))
    
20.       (strcat "(command "_.OPEN")\n" name "\n")
    
21.     )
    
22.   )
    
23. )
    
24. 
    
25. 
    

<br /> <br /> (defun c:op  (/ filb path)<br />   (setq filb (dos_getfilem<br />                "选择要打开的dwg文件，按alt/shift可多选"<br />                "d:\"<br />                "Drawing Files (*.DWG)|*.DWG")<br />         path (car filb)<br />         filb (cdr filb))<br />   (foreach x filb (cmdOpen (strcat path x)))<br /> )<br /> <br /> (defun cmdOpen  (name);;;lisp开图<br />   (vl-load-com)<br />   (if (= 0 (getvar "SDI"))<br />     (vla-activate<br />       (vla-open (vla-get-documents (vlax-get-acad-object)) name))<br />     (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object))<br />       (strcat "(command "_.OPEN")\n" name "\n")<br />     )<br />   )<br /> )<br /> <br /> <br />

eachy

不用这么麻烦吧，CAD2002的 Open 本身就可以打开多个文件的。

cy956

用lisp开新图而已。

lsjjm

用lisp程序打开dwg图文件:
  (command "vbastmt" "AcadApplication.Documents.Open \"c:/mydrawing.dwg\"")

xazhji

doslib中，也有打开文件的函数！