有一个文件夹，里面有.DWG文件和.XLS文件，图纸和excel文件对应打开cad图纸名称对应

664571221 · 发表于 2025-1-16 10:56:55

有一个文件夹，里面有.DWG文件和.XLS（也可能是xlsx）文件，图纸和excel文件对应打开cad图纸名称对应，求一个程序，打开图纸后，输入tt，打开同文件夹下面和图纸名称一样的excel的.xls(也可能是xlsx）文件。

llsheng_73 · 发表于 2025-1-16 11:05:29

本帖最后由 llsheng_73 于 2025-1-16 11:06 编辑

(defun c:TT(/ file)
(and(or(setq file(findfile(strcat(getvar'DWGPREFIX)(VL-FILENAME-BASE(getvar'DWGname))".xlsx")))
(setq file(findfile(strcat(getvar'DWGPREFIX)(VL-FILENAME-BASE(getvar'DWGname))".xls"))))
(command"shell" file))))

664571221 · 发表于 2025-1-16 11:19:07

llsheng_73 发表于 2025-1-16 11:05

谢谢大哥.....

寒潮大冬瓜 · 发表于 2025-1-16 14:34:00

很好→很棒！很好~很棒！！很好……很棒！！！

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

[提问] 有一个文件夹，里面有.DWG文件和.XLS文件，图纸和excel文件对应打开cad图纸名称对应