分享一个简单实用的程序---打开文件位置

ymcui · 发表于 4 天前

谢谢分享好用

shirker · 发表于 4 天前

印象里好像没这个习惯，先收藏或者很好用，谢谢了

chslwj521 · 发表于 4 天前

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

tranque · 发表于 4 天前

谢谢分享谢谢分享谢谢分享

释烬 · 发表于 4 天前

打开特定文件路径怎么写

听见天晴 · 发表于 4 天前

chslwj521 发表于 2024-11-16 15:36
(defun C:Openthefile ()
(princ "\n-->打开当前图形文件所在的文件夹！" )
(setq winshel ...

这个打开更快，但是打开后不会选中当前文件，要自己找，可以打开选中更好

听见天晴 · 发表于 4 天前

释烬发表于 2024-11-16 17:24
打开特定文件路径怎么写

我也不知道不会写程序网上也是网上淘的~~叫AI写个试试

释烬 · 发表于 4 天前

听见天晴发表于 2024-11-16 18:42
我也不知道不会写程序网上也是网上淘的~~叫AI写个试试

(defun c:yy ()
(setq path "C:\\sys\\sj") ; 替换成实际要打开的特定路径
(if (findfile path)
   (startapp "explorer" path)
   (princ "\n指定路径不存在，请检查！")
  )
)

这是ai写的但是感觉响应很慢

听见天晴 · 发表于 4 天前

释烬发表于 2024-11-16 19:59
(defun c:yy ()
(setq path "C:\\sys\\sj") ; 替换成实际要打开的特定路径
(if (findfile path)
...

至少比手点快一些

bailong213 · 发表于 4 天前

这个好，感谢分享

账号		自动登录	找回密码
密码			注册

[源码] 分享一个简单实用的程序---打开文件位置