问下使用VB的AutoCAD尺寸标注问题

godspeedm9

就是填写上下偏差 然后标注在图上，代码如下

Private Sub Command1_Click()
Dim dimobj As AcadDimAligned
Dim zcad As AcadApplication
Dim point1 As Variant
Dim point2 As Variant
 point1 = ThisDrawing.Utility.GetPoint(, vbCr & "第一点")
 point2 = ThisDrawing.Utility.GetPoint(, vbCr & "第二点")
 Set dimobj = acadApp.ActiveDocument.ModelSpace.AddDimAligned(point1, point2, location)
 dimobj.DecimalSeparator = "."
 dimobj.ToleranceDisplay = acTolSymmetrical
 dimobj.ToleranceHeightScale = 0.5
 dimobj.ToleranceLowerLimit = Text1.Text
 dimobj.ToleranceUpperLimit = Text2.Text
End Sub

出现 实时错误 424 在point1 = ThisDrawing.Utility.GetPoint(, vbCr & "第一点") 这一行

请问这是怎么一回事啊？

mccad

ThisDrawing有没有定义并赋值

godspeedm9

没有耶