将AutoCAD（文本）转换为EXE
亲爱的各位朋友：我只是一个新会员，需要别人的帮助
谁有一些autolisp或技术如何将AutoCAD（文本）转换为Excel，请帮助我
你看过我们的一些旧线索了吗？我很确定以前有人问过我们这个问题
顺便说一句，在互联网上发布你的电子邮件地址不是一个好主意-它可以被收集并用于各种你不想收到的东西！ 非常感谢Strix，让我找到那个老问题 更简单的方法是以所谓的CSV文件从AutoCAD输出。它也可以在Excel中打开。 尊敬的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）
（普林斯）
)魔术 你也可以使用数据提取，它可以完成所有的艰苦工作。
无需代码 你能告诉我这个数据提取是怎么工作的吗？
? 只需按照de对话框的说明进行操作，然后使用帮助
在命令行中键入DATAEXTRACTION。 谢谢，但它并没有将所有细节复制到excel文件，而且订单也不是它应该的。
我需要的是复制autocad文件中的所有数据，并在excel中创建一个表，但dataextraction将所有值排列在一列中，这不是必需的。（格式等可以稍后处理）。
请帮忙 我可以用coma分离格式获取这些详细信息吗？
页:
[1]
2