czb203 发表于 2023-9-1 19:11:43

花开富贵 发表于 2023-9-1 17:28
;;;;声明，下面的这些子函数我只是在原有基础修改，并非原创，请记住是这个人写的：落魄山人
(Defun Excel ...

感谢热心的大佬分享

chq168168 发表于 2023-9-5 19:46:09

花开富贵 发表于 2023-9-1 17:28
;;;;声明，下面的这些子函数我只是在原有基础修改，并非原创，请记住是这个人写的：落魄山人
(Defun Excel ...

这些库函数不会用啊

chq168168 发表于 2023-9-5 19:47:15

花开富贵 发表于 2023-9-1 17:21
;;说明:我写了个提取cad中的文字、坐标、图层、颜色的程序，太不理想了（非常蹩脚）
(defun c:Q2(/ enames ...

这个没有保存。能加个保存就完美了

花开富贵 发表于 2023-9-5 21:28:55

chq168168 发表于 2023-9-5 19:47
这个没有保存。能加个保存就完美了

可以保存呀，那个excel：workbooks-add，里面不是有个参数，把参数设置成指定的路径就可以了，还不会可以联系我或者留言哦

花开富贵 发表于 2023-9-5 21:30:56

chq168168 发表于 2023-9-5 19:47
这个没有保存。能加个保存就完美了

把主程序c:q2这里修改下：
(Excel:WorkBooks-Add excelapp nil t)   
改成
(Excel:WorkBooks-Add excelapp "你想要保存的路径" t)   
就可以啦
简简单单

kozmosovia 发表于 2023-9-5 23:36:49

如果都不想看见EXcel，直接保存个CSV格式的后缀为XLSX的文本文件就行。根本没必要调Excel
页: 1 [2]
查看完整版本: 我写的蹩脚的程序！