wensent 发表于 2004-6-9 20:40:00

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

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


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


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

mccad 发表于 2004-6-9 21:29:00

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 发表于 2004-6-9 23:29:00

谢谢兄弟，十分感谢！！！！！！！！！
页: [1]
查看完整版本: 新手紧急求教4 ！！！！！！！！！！！！！