社区 › AutoLISP/Visual LISP 编程技术 › 打开dwg文件后，如何置为当前

tranney 发表于 2014-7-27 13:39:19

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

(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 发表于 2014-7-27 17:28:59

本帖最后由 zjsru_18_505 于 2014-7-27 18:00 编辑

(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 发表于 2014-7-28 08:55:12

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

查看完整版本: 打开dwg文件后，如何置为当前