社区 › AutoLISP/Visual LISP 编程技术 › 分享一个简单实用的程序---打开文件位置

ymcui 发表于 2024-11-16 15:15:27

谢谢分享好用

shirker 发表于 2024-11-16 15:21:02

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

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)
)

tranque 发表于 2024-11-16 15:58:49

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

释烬 发表于 2024-11-16 17:24:21

打开特定文件路径怎么写

听见天晴 发表于 2024-11-16 18:41:54

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

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

听见天晴 发表于 2024-11-16 18:42:58

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

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

释烬 发表于 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写的 但是感觉响应很慢

听见天晴 发表于 2024-11-16 20:11:26

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

至少比手点快一些

bailong213 发表于 2024-11-16 20:29:32

这个好，感谢分享

查看完整版本: 分享一个简单实用的程序---打开文件位置