230问答网 > 如何让excel的数据直接变成cad2007画直线所需坐标数据啊？

如何让excel的数据直接变成cad2007画直线所需坐标数据啊？

2024-12-13 03:10:24

推荐回答（5个）

回答1：

两种方法：
通过CAD VBA 可以实现，不过一两句话解释不清楚，我以前做过CAD与Excel交互的程序。
贴一段关键的代码给你，希望用的上。
Dim xls As Excel.Application
Dim bk As Workbook
Dim sheet1 As Worksheet
Set xls = CreateObject("Excel.Application")
xls.Visible = True
xls.Workbooks.Open (Application.Documents("翻译工具.dwg").Path & "\includ\图纸翻译.xls")

通过非VBA方式解决：
在C1中输入="line "&A1&" "&B1&" "
向下拖动使公式填充到所有需要的单元格，
新建一个TXT文件，把选中EXCEl中的C列，复制粘贴到TXT中，
将TXT改扩展名为.SCR文件，
在cad中输入命令：script 选取刚生成的.SCR文件运行即可。

回答2：

用VBA可以实现。
大致流程如下：
第一步：创建EXCEL应用后，打开指定的文件。
第二步：读取第一个点的起始位置。
第三步：根据读取的起始位置画直线。
第四步：将第二、三步重复执行，直到最后一条直线画完为止。
第五步：关闭EXCEL.

回答3：

例如在AB两列输入x,y坐标，在C列写公式 =A1&","&B1, 选中C列区域,复制一下.

然后打开cad中，输入line，在命令栏的提示后粘帖，回车即可.

子易空间站 - Excel培训专家

回答4：

在Excel中用字串运算,拼成(command "line" "x1,y1,z1" "x2,y2,z2" ""),所有这些列一次复制,粘贴到Autocad命令行中即可。注意学习Excel的&运算以及双"生成单"引号的内容。

回答5：

未具体研究过，但两者都支持VBA的，技术上应该没问题