当有n个dwg文件与MyA3.dwg打开时，如何实现输入命令让MyA3.dwg文件成为当前窗口

＿Levin

上传的lsp文件实现了打开MyA3.dwg文件
那么当有n个dwg文件与MyA3.dwg打开时，如何实现输入命令让MyA3.dwg文件成为当前窗口；在MyA3.dwg没有打开时，则是打开MyA3.dwg文件

已解决~

vectra

1. ;;;_$ (documents)
   
2. ;;;(#<VLA-OBJECT IAcadDocument 0000020466025508> #<VLA-OBJECT IAcadDocument 000002046a090ac8>)
   
3. (defun documents (/ r)
   
4.   (vlax-for d (vla-get-documents
   
5.                 (vla-get-application (vlax-get-acad-object))
   
6.               )
   
7.     (setq r (cons d r))
   
8.   )
   
9.   (reverse r)
   
10. )
    
11. ;;;_$ (document-getbyname "Drawing1.dwg")
    
12. ;;;#<VLA-OBJECT IAcadDocument 0000020466025508>
    
13. (defun document-getbyname (name / docs r)
    
14.   (setq docs (documents))
    
15.   (while docs
    
16.     (if        (= name (vla-get-name (car docs)))
    
17.       (setq r         (car docs)
    
18.             docs nil
    
19.       )
    
20.     )
    
21.     (setq docs (cdr docs))
    
22.   )
    
23.   r
    
24. )
    
25. 
    
26. (vla-activate (document-getbyname "Drawing1.dwg"))

;;;_$ (documents)<br /> ;;;(#<VLA-OBJECT IAcadDocument 0000020466025508> #<VLA-OBJECT IAcadDocument 000002046a090ac8>)<br /> (defun documents (/ r)<br />   (vlax-for d (vla-get-documents<br />                 (vla-get-application (vlax-get-acad-object))<br />               )<br />     (setq r (cons d r))<br />   )<br />   (reverse r)<br /> )<br /> ;;;_$ (document-getbyname "Drawing1.dwg")<br /> ;;;#<VLA-OBJECT IAcadDocument 0000020466025508><br /> (defun document-getbyname (name / docs r)<br />   (setq docs (documents))<br />   (while docs<br />     (if        (= name (vla-get-name (car docs)))<br />       (setq r         (car docs)<br />             docs nil<br />       )<br />     )<br />     (setq docs (cdr docs))<br />   )<br />   r<br /> )<br /> <br /> (vla-activate (document-getbyname "Drawing1.dwg"))

自贡黄明儒

打开了多个文件(defun MJ:ActivateDrawing ()，使一个文件当前，相当于[Ctrl+Tab]

xyp1964

1. ;; (ActivateDwg "abc.dwg")
   
2. (defun ActivateDwg (dwgname / lst)
   
3.   (vlax-for a (vla-get-documents
   
4.                 (vla-get-application (vlax-get-acad-object))
   
5.               )
   
6.     (setq lst (cons (list a (vla-get-name a)) lst))
   
7.   )
   
8.   (if (setq lst (vl-remove-if '(lambda (x) (/= (cadr x) dwgname)) lst))
   
9.     (vla-activate (caar lst))
   
10.   )
    
11. )

;; (ActivateDwg "abc.dwg")<br /> (defun ActivateDwg (dwgname / lst)<br />   (vlax-for a (vla-get-documents<br />                 (vla-get-application (vlax-get-acad-object))<br />               )<br />     (setq lst (cons (list a (vla-get-name a)) lst))<br />   )<br />   (if (setq lst (vl-remove-if '(lambda (x) (/= (cadr x) dwgname)) lst))<br />     (vla-activate (caar lst))<br />   )<br /> )

陨落

（vla-activate (vla-item (vla-get-documents (vlax-get-acad-object)) "MyA3.dwg")）

sunny_8848

请教大家，怎么做到先检测是否已经打开了这个文件，否则会重复打开多个

nyistjz

;激活特定文档 (ActivateDwg "abc.dwg")
(defun ActivateDwg (dwgname / lst)
  (vlax-for a *docs*
                (setq lst (cons (list a (vla-get-name a)) lst))
        )
  (if (setq lst (vl-remove-if '(lambda (x) (/= (cadr x) dwgname)) lst))
    (vla-activate (caar lst))
  )
        lst
)
(setq *ACAD* (vlax-get-acad-object ))
(setq *DOC* (vla-get-ActiveDocument *ACAD* ))
(setq *docs* (vla-get-Documents *ACAD*))
;激活或打开
(setq name "MyA3.dwg")
(if (setq file (findfile name))
        (while (null (ActivateDwg name)) (vla-open *docs* file))
        (princ "没有找到此文件！")
)
(princ)

sunny_8848

nyistjz 发表于 2022-9-25 13:36
;激活特定文档 (ActivateDwg "abc.dwg")
(defun ActivateDwg (dwgname / lst)
  (vlax-for a *docs*

谢谢帮忙，比如D:\1\1.dwg，运行后会不停的打开这个文件

sunny_8848

下面的代码可以判读并打开指定文档，不知道怎么激活为当前文档
(defun c:stl ()
(setq acadApp (vlax-get-acad-object)
     acadDocs (vla-get-documents acadApp)
)
     (if (= (VL-FILE-SYSTIME "d:/1/1.dwg") nil)
(alert "文件正在使用 ")
(vla-open acadDocs "d:/1/1.dwg"))
(princ))