如何将excel中的数据坐标连同点号导入cad

Question

如题所述

Answer 1

有两种方法。1、在cad中插入excel表格。（缺点：打开这个cad图形时电脑必须带有excel应用程序，否则无法显示。优点：操作简便
2、利用vba程序，读取excel表格后写入cad中。以下代码供参考。具体可能有做细微的调整。注：以下vba需在cad中运行的。如果是在excel中要修改。
Sub 根据excel自动画表()
Dim xlApp As Excel.Application
Set xlApp = GetObject(, "Excel.Application")
Dim xlSheet As Worksheet
Set xlSheet = xlApp.ActiveSheet
Dim iPt(0 To 2) As Double
iPt(0) = 0: iPt(1) = 0: iPt(2) = 0
Dim BlockObj As AcadBlock
Set BlockObj = ThisDrawing.Blocks("*Model_Space")
Dim xlRange As Range
For Each xlRange In xlSheet.UsedRange
AddLine BlockObj, xlRange
AddText BlockObj, xlRange
Next
Set xlRange = Nothing
Set xlSheet = Nothing
Set xlApp = Nothing
End Sub

Answer 2

我是用08版的CAD，但04以上的版本就可以做到你想要的东西。把Excel传给我，我给你弄。本回答被网友采纳

Answer 3

额 cad可以直接导入 点号 求解释