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

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

有一个文件夹，里面有.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

很好→很棒！很好~很棒！！很好……很棒！！！
页: [1]
查看完整版本: 有一个文件夹，里面有.DWG文件和.XLS文件，图纸和excel文件对应打开cad图纸名称对应