cad用VBA调用excel的数据运行显示**形49未定义。我想要的是在cad定点位置插入文字。

Question

我想要的是在cad图多个X、Y位置插入标号，而X、Y位置坐标在excel中，从第2行到265行（根据代码能看来）
Sub ExcelRead()
Dim ExcelApp As New Excel.Application
Dim textobj As AcadText
Dim textstring As String
Dim textheight As Double
Dim inspoint(0 To 2) As Double

ThisDrawing.Regen acActiveViewport

ExcelApp.Workbooks.Open "D:\book1.xlsx", ,
ReadOnly
Dim i As Integer
With ExcelApp.ActiveWorkbook.Worksheets
("sheet1")
For i = 2 To 265
txt = "txt,gbcbig"
textstring = .Range("A" & i)
inspoint(0) = .Range("B" & i)
inspoint(1) = .Range("C" & i)
inspoint(2) = 0
textheight = 8

Set textobj =
ThisDrawing.ModelSpace.AddText(textstring, inspoint,
textheight)
ThisDrawing.Application.ZoomExtents
Next i
End With
ExcelApp.Workbooks.Close
ExcelApp.Quit
ThisDrawing.Application.Update
End Sub

Answer 1

推荐使用"MagicTable(魔法表格)"。

"MagicTable(魔法表格)"是由"依云软件"出品一款AutoCAD表格提取到Excel软件。CAD中表格的表格线可由水平或垂向的直线或多段线组成，单元格的内容可以是单行文字或多行文字。且支持一个单元格内有多个文本的转换，支持已合并单元格的转换。

转换效果截图：

Answer 2

检查一下字体文件是否已在搜索路径下