669423907 发表于 2018-12-5 19:30:56

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

xj6019 发表于 2020-2-26 09:47:35

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 发表于 2021-1-24 22:43:12

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

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

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

sunny_8848 发表于 2021-5-22 14:23:19

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


挺好用，多谢分享

xotoo 发表于 2021-6-4 10:30:21

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

he378980280 发表于 2023-8-18 13:02:16

非常好用。。。
页: 1 2 [3]
查看完整版本: 求打开当前图纸所在文件夹