VB6 封装出错，不会修正

linwanglian

用VB6封装一下程序，Dim objText As AcadText——提示“用户定义类型未定义”，请高手帮忙看看怎么改。
封装是为了使用方便。

以下是源代码：

Private Sub Command1_Click()

Dim objExcelApp As Object, objSheet As Object
Dim objCADApp As Object, objDoc As Object
Dim pointName As String, pointX As Double, pointY As Double
Dim txtP(2) As Double, txtH As Double, txtM As Double
Dim objText As AcadText
Dim myr As Integer


Set objExcelApp = GetObject(, "Excel.Application") '获得系统中运行的EXCEL
Set objSheet = objExcelApp.ActiveWorkbook.ActiveSheet '返回当前活动工作表
Set objCADApp = GetObject(, "AutoCAD.Application") '获得系统中运行的cad
Set objDoc = objCADApp.ActiveDocument '返回当前活动

txtH = 50 '文字高度

For i = 1 To 10000
    pointName = objSheet.cells(i, 1) '读取坐标点名（A列）
    pointX = objSheet.cells(i, 2) '读取坐标点经度（b列）
    pointY = objSheet.cells(i, 3) '读取坐标点纬度（c列）
    txtM = objSheet.cells(i, 4)
    txtP(0) = pointX
    txtP(1) = pointY


  Set objText = objDoc.ModelSpace.AddText(pointName, txtP, txtH)
  objText.Rotate objText.InsertionPoint, txtM / 180 * 3.14159265
  objText.ScaleFactor = 0.5

Next

End Sub

yshf

Dim objText As Object

linwanglian

yshf 发表于 2020-8-8 20:32
Dim objText As Object

感谢，好用了。