打开dwg文件后，如何置为当前

tranney

(defun c:stl ()
(setq acadApp (vlax-get-acad-object)
     acadDocs (vla-get-documents acadApp))
     (if (= (VL-FILE-SYSTIME "d:/AUTool/bak/水图例.dwg") nil) (alert "文件正在使用 ") (vla-open acadDocs "d:/AUTool/bak/水图例.dwg"))
(princ))
(defun c:openexe ()
(startapp "explorer.exe" "d:\\AUTool\\exe")
(princ))

请高手帮忙，如何打开这个图例文件后让它到前面来

zjsru_18_505

(defun C:STL ()
    (setq ACADAPP  (vlax-get-acad-object)
          ACADDOCS (vla-get-documents ACADAPP)
    )
    (if        (= (vl-file-systime "d:/AUTool/bak/水图例.dwg") NIL)
        (alert "文件正在使用 ")
        (vlax-invoke-method
            (vla-open ACADDOCS "d:/AUTool/bak/水图例.dwg")
            'ACTIVATE
        )
    )
    (princ)
)

tranney

谢谢高手，非常好用，不过我发现有个地方有点多此一举，就是(alert "文件正在使用 ")，应该直接改成切换到这个文件就更完美了，谢谢