|
请问我在进行调用AddDimRotated时,
Dim rDim As AcadDimRotated
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
Dim location(0 To 2) As Double
Dim angle As Double
point1(0) = 10: point1(1) = 3: point1(2) = 0
point2(0) = 10: point2(1) = 30: point2(2) = 0
location(0) = 25: location(1) = 17: location(2) = 0
Set rDim = doc.ModelSpace.AddDimRotated(point1, point2, location, 90 * 3.141592 / 180)
angle = rDim.Rotation
为什么angle=0呀。看来想要获得旋转角度不能使用Rotation属性。如果需要得到RotationAngle的值,需要取AcadDimRotated类的什么属性呀?
|
|