新手紧急求教4 ！！！！！！！！！！！！！

wensent

由于某种原因，我要在VBA中达到以下的效果。请问该怎样作？？？？？


对某两点的距离标注尺寸，然后修改尺寸值为我想达到的另一数值（和真实的尺寸值不相等！！！）。


请问大家该怎样达到这种效果？？？？？？？？

mccad

2. Sub AddAndChgDim()
3.        Dim pnt1, pnt2, pnt3
4.        Dim d As AcadDimRotated
5.        Dim txt As String
6.        pnt1 = ThisDrawing.Utility.GetPoint(, vbCr & "第一点：")
7.        pnt2 = ThisDrawing.Utility.GetPoint(pnt1, vbCr & "第二点：")
8.        pnt3 = ThisDrawing.Utility.GetPoint(, vbCr & "文字位置：")
9.        Set d = ThisDrawing.ModelSpace.AddDimRotated(pnt1, pnt2, pnt3, 0)
10.        txt = ThisDrawing.Utility.GetString(0, vbCr & "替换的文字：")
11.        d.TextOverride = txt
12. End Sub

Sub AddAndChgDim()        Dim pnt1, pnt2, pnt3        Dim d As AcadDimRotated        Dim txt As String        pnt1 = ThisDrawing.Utility.GetPoint(, vbCr & "第一点：")        pnt2 = ThisDrawing.Utility.GetPoint(pnt1, vbCr & "第二点：")        pnt3 = ThisDrawing.Utility.GetPoint(, vbCr & "文字位置：")        Set d = ThisDrawing.ModelSpace.AddDimRotated(pnt1, pnt2, pnt3, 0)        txt = ThisDrawing.Utility.GetString(0, vbCr & "替换的文字：")        d.TextOverride = txt End Sub

wensent

谢谢兄弟，十分感谢！！！！！！！！！