求打开当前图纸所在文件夹

669423907

调用vbs可以解决重复打开文件夹的问题
http://bbs.mjtd.com/thread-178658-1-1.html

xj6019

669423907 发表于 2018-12-5 19:30
调用vbs可以解决重复打开文件夹的问题
http://bbs.mjtd.com/thread-178658-1-1.html

搜到了，就是你的帖子里面的
谢谢提醒哦
你帖子下面这个代码试了一下挺好用


;;==============打开当前图形文件所在位置============
(defun C:Openthefile ()
       (princ "\n-->打开当前图形文件所在的文件夹！" )
       (setq winshell (vlax-create-object "Shell.Application" ))
       (setq filepath (getvar "DWGPREFIX" ))
       (vlax-invoke-method WinShell 'Open filepath)
);end defun
(princ

muwind

之前用的这个，很简单，不过有点讨厌弹出来的cmd界面
(command "shell" (strcat "start " (getvar 'dwgprefix)) )

bloodtempt

2. (defun C:openPath ( /)
   
3.         (vlax-invoke (vla-GetInterfaceObject (vlax-get-acad-object) "WScript.Shell") "run" (getvar 'dwgprefix))
   
4.         (princ)
   
5. )

(defun C:openPath ( /)<br />         (vlax-invoke (vla-GetInterfaceObject (vlax-get-acad-object) "WScript.Shell") "run" (getvar 'dwgprefix))<br />         (princ)<br /> )

sunny_8848

bloodtempt 发表于 2021-2-17 12:12

挺好用，多谢分享

xotoo

高版本的CAD已经可以在当前DWG文件选项页上点右键，选择 打开文件的位置，系统会自动打开当前DWG文件所在目录，并定位到当前DWG文件

he378980280

非常好用。。。