|
|
就是填写上下偏差 然后标注在图上，代码如下
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 & "第一点") 这一行
请问这是怎么一回事啊？
|
|
置顶卡
