关于AUTOCAD VBA二次开发教程第８７页那道题目的出错提出

天龙八部

Public Sub CreateCircleToText()
    Dim objText As AcadText
    Dim ptPick As Variant
    ThisDrawing.Utility.GetEntity objText, ptPick, "拾取文字:"
   
    ' 获得文字的包围框
    Dim ptMin As Variant, ptMax As Variant
    objText.GetBoundingBox ptMin, ptMax
   
    ' 获得圆心和半径
    Dim ptCenter(0 To 2) As Double
    ptCenter(0) = (ptMin(0) + ptMax(0)) / 2
    ptCenter(1) = (ptMin(1) + ptMax(1)) / 2
    ptCenter(2) = 0
    Dim radius As Double
    radius = Sqr((ptMin(0) - ptMax(0)) ^ 2 + (ptMin(1) - ptMax(1)) ^ 2) / 2
   
    ' 创建圆
    Dim objCircle As AcadCircle
    Set objCircle = ThisDrawing.ModelSpace.AddCircle(ptCenter, radius)
End Sub

最后运行结果是弹出一个ＭＳＧＢＯＸ，提示＂类型不匹配"

efan2000

objText定义为AcadText，所以选择的只能是单行文字。检查一下是不是这儿出错了。

天龙八部

恩,说的是,昨天和你一起出书的同志已经帮我解决了问题,谢谢王老哥