有关AddDimRotated的问题

cxzcs

请问如何添加一个测量y柱方向两点距离的标注呀。好像默认是绘制的水平方向的标注。

wyj7485

用ThisDrawing.ModelSpace.AddDimAligned代替

cxzcs

改变一种思路，的确得到了解决。谢谢

mccad

2. Sub Example_AddDimRotated()
3.     ' 明经通道VBA示例，http://www.mjtd.com
4.    
5.     ' 该示例在模型空间中创建水平和垂直标注。
6.         
7.     Dim dimObj As AcadDimRotated
8.     Dim LineObj As AcadLine
9.     Dim point1(0 To 2) As Double
10.     Dim point2(0 To 2) As Double
11.     Dim location(0 To 2) As Double
12.     Dim rotAngle As Double
13.    
14.     ' 定义标注
15.     point1(0) = 0#: point1(1) = 0#: point1(2) = 0#
16.     point2(0) = 5#: point2(1) = 5#: point2(2) = 0#
17.     location(0) = 0#: location(1) = 0#: location(2) = 0#
18.    
19.     '绘制直线
20.     Set LineObj = ThisDrawing.ModelSpace.AddLine(point1, point2)
21.     LineObj.color = acRed
22.    
23.     ' 在模型空间中创建水平标注
24.     rotAngle = 0
25.     rotAngle = rotAngle * 3.141592 / 180#       ' 转换为弧度
26.    
27.     Set dimObj = ThisDrawing.ModelSpace.AddDimRotated(point1, point2, location, rotAngle)
28.     dimObj.color = acGreen
29.    
30.     ' 在模型空间中创建垂直标注
31.     rotAngle = 90
32.     rotAngle = rotAngle * 3.141592 / 180#        ' 转换为弧度
33.    
34.     Set dimObj = ThisDrawing.ModelSpace.AddDimRotated(point1, point2, location, rotAngle)
35.     dimObj.color = acGreen
36.    
37.     ThisDrawing.Application.ZoomExtents
38. End Sub

Sub Example_AddDimRotated()     ' 明经通道VBA示例，http://www.mjtd.com         ' 该示例在模型空间中创建水平和垂直标注。              Dim dimObj As AcadDimRotated     Dim LineObj As AcadLine     Dim point1(0 To 2) As Double     Dim point2(0 To 2) As Double     Dim location(0 To 2) As Double     Dim rotAngle As Double         ' 定义标注     point1(0) = 0#: point1(1) = 0#: point1(2) = 0#     point2(0) = 5#: point2(1) = 5#: point2(2) = 0#     location(0) = 0#: location(1) = 0#: location(2) = 0#         '绘制直线     Set LineObj = ThisDrawing.ModelSpace.AddLine(point1, point2)     LineObj.color = acRed         ' 在模型空间中创建水平标注     rotAngle = 0     rotAngle = rotAngle * 3.141592 / 180#       ' 转换为弧度         Set dimObj = ThisDrawing.ModelSpace.AddDimRotated(point1, point2, location, rotAngle)     dimObj.color = acGreen         ' 在模型空间中创建垂直标注     rotAngle = 90     rotAngle = rotAngle * 3.141592 / 180#        ' 转换为弧度         Set dimObj = ThisDrawing.ModelSpace.AddDimRotated(point1, point2, location, rotAngle)     dimObj.color = acGreen         ThisDrawing.Application.ZoomExtents End Sub