听见天晴 发表于 2024-11-15 23:37:18

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

执行后打开文件在电脑中的文件路径，并选中文件
超简单的程序，但是很实用







chslwj521 发表于 2024-11-16 15:36:04

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

释烬 发表于 2024-11-16 19:59:01

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

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

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

wangsr 发表于 2024-11-16 08:28:35

谢谢分享好用

fengj555 发表于 2024-11-16 08:39:08

:victory:
谢谢分享好用

读古明今 发表于 2024-11-16 08:52:18

好用，谢谢分享。

yegucheng0129 发表于 2024-11-16 09:06:53

这个利害 了,非常用用,感谢大佬

zkq1212 发表于 2024-11-16 09:34:32

好用，谢谢分享。

xiaocainiao 发表于 2024-11-16 10:13:20

CAD2014以下版本使用很不错、高版本的文件选项卡已经有这个功能了、不过用快捷键定位文件能快一些、感谢分享

xxyyzzlg 发表于 2024-11-16 11:16:46

谢谢分享，挺实用的小工具

hzyhzjjzh 发表于 2024-11-16 12:48:28

谢谢分享好用

yefei812678 发表于 2024-11-16 13:35:26

谢谢分享谢谢分享
页: [1] 2 3
查看完整版本: 分享一个简单实用的程序---打开文件位置