将AutoCAD（文本）转换为EXE

paiboon-m · 发表于 2022-7-6 09:39:53

亲爱的各位朋友：
我只是一个新会员，需要别人的帮助
谁有一些autolisp或技术如何将AutoCAD（文本）转换为Excel，请帮助我

Strix · 发表于 2022-7-6 09:47:09

你看过我们的一些旧线索了吗？我很确定以前有人问过我们这个问题

顺便说一句，在互联网上发布你的电子邮件地址不是一个好主意-它可以被收集并用于各种你不想收到的东西！

paiboon-m · 发表于 2022-7-6 09:56:26

非常感谢Strix，让我找到那个老问题

fuccaro · 发表于 2022-7-6 09:59:58

更简单的方法是以所谓的CSV文件从AutoCAD输出。它也可以在Excel中打开。

paiboon-m · 发表于 2022-7-6 10:04:21

尊敬的Fuccaro：
我在下面找到了一些Autolisp代码，但只有一个问题
此代码从下到上读取和排序
如何修改此代码从Autocad读取文本，然后显示到Excel
从上到下
谢谢你，先生。

（defun c:ttx（/xlCells xlSheet xlSheets xlBook xlBooks xlApp column row drac ss ent expo x）

（vl load com）

（setq xlApp（vlax获取或创建对象“Excel.Application”）
xlBooks（vlax get property xlApp“工作簿”）
xlBook（vlax invoke方法xlBook“Add”）
xlSheets（vlax get property xlBook“Sheets”）
xlSheet（vlax get property xlSheets“Item”1）
xlCells（vlax get property xlSheet“Cells”））

（vla put visible xlApp:vlax true）

（setq第1列
第1行
drac-1
ss（ssget“_X”（列表（cons 0“*文本”）））

（重复（sslength ss）
（setq ent（ssname ss（setq drac（1+drac）））
expo（vla get textstring（vlax ename->vla object ent）））
（如果(
（vlax put property xlCells“Item”row column expo）
（程序
（setq第1行
列（1+列））
（vlax put property xlCells“Item”row column expo）
); /else程序
); /如果
（setq行（1+行））
); /重复

（mapcar（功能（λ（x））
（vl全包适用
（函数（lambda（）
（程序
（vlax释放对象x）
（setq x nil Ϩ）
（列出xlCells xlSheet xlSheets xlBook xlBooks xlApp））

（警报“手动关闭Excel文件”）

（gc）（gc）

（普林斯）

)魔术