启用资源管理器, 打开相应图纸所在目录并选中该文件

;;; 启用资源管理器, 打开相应图纸所在目录并选中该文件
(defun dos_execute (str /  wsh var)
(setq wsh (vlax-get-or-create-object "wscript.shell"))
(setq var (vl-catch-all-apply'vlax-invoke (list wsh 'run str)))
(vlax-release-object wsh)
var
)
(defun c:DKWJ (/ path dwgname explor)
  (setq    explor    (findfile "C:\\WINDOWS\\explorer.exe")
    path    (getvar "DWGPREFIX")
    dwgname    (getvar "DWGNAME")
  )
  (cond
    ((and explor path dwgname)
     (startapp (strcat explor " /e, " path dwgname ", /select, " path dwgname))
    )
    ((and (not (null dos_execute)) explor path dwgname)
    (dos_execute (strcat explor " /e, " path dwgname ", /select, " path dwgname)))
    (t (princ "\n无法启用资源管理器!"))
   )
  (princ)
)

标签：图纸,dwgname,wsh,vlax,选中,explor,var,path,资源管理
来源： https://blog.csdn.net/qq_19933053/article/details/122451945