[原创][分享]创建出同dli命令创建的一样的标注

wylong

2. Sub AddDimRotated()
3.     Dim dimObj As AcadDimRotated
4.     Dim point1 As Variant
5.     Dim point2 As Variant
6.     Dim location As Variant
7.     Dim rotAngle As Double
8.     Dim rotAngleNunmer As Integer
9.      
10.     rotAngleNunmer = 1
11.      
12.     With ThisDrawing.Utility
13.         point1 = (.GetPoint(, "请指定标注起始点(按Esc或Enter或左健退出):"))
14.         If IsEmpty(point1) Then Exit Sub
15.     End With
16.      
17.     With ThisDrawing.Utility
18.         point2 = (.GetPoint(, "请指定标注结束点(按Esc或Enter或左健退出):"))
19.         If IsEmpty(point2) Then Exit Sub
20.     End With
21.      
22.     With ThisDrawing.Utility
23.         location = (.GetPoint(, "请指定标注基准点(按Esc或Enter或左健退出):"))
24.         If IsEmpty(location) Then Exit Sub
25.     End With
26.      
27.     On Error Resume Next
28.     rotAngleNunmer = ThisDrawing.Utility.GetInteger(vbCrLf & "输入标注位置 [上(1)/下(2)/左(3)/右(4)]: <" & rotAngleNunmer & ">:")
29.      
30.     Select Case rotAngleNunmer
31.         Case 1, 2
32.             rotAngle = 0
33.         Case 3, 4
34.             rotAngle = 90
35.     End Select
36.      
37.     rotAngle = rotAngle * 3.141592 / 180#       ' covert to Radians
38.      
39.     Set dimObj = ThisDrawing.ModelSpace.AddDimRotated(point1, point2, location, rotAngle)
40. End Sub

Sub AddDimRotated()     Dim dimObj As AcadDimRotated     Dim point1 As Variant     Dim point2 As Variant     Dim location As Variant     Dim rotAngle As Double     Dim rotAngleNunmer As Integer           rotAngleNunmer = 1           With ThisDrawing.Utility         point1 = (.GetPoint(, "请指定标注起始点(按Esc或Enter或左健退出):"))         If IsEmpty(point1) Then Exit Sub     End With           With ThisDrawing.Utility         point2 = (.GetPoint(, "请指定标注结束点(按Esc或Enter或左健退出):"))         If IsEmpty(point2) Then Exit Sub     End With           With ThisDrawing.Utility         location = (.GetPoint(, "请指定标注基准点(按Esc或Enter或左健退出):"))         If IsEmpty(location) Then Exit Sub     End With           On Error Resume Next     rotAngleNunmer = ThisDrawing.Utility.GetInteger(vbCrLf & "输入标注位置 [上(1)/下(2)/左(3)/右(4)]: <" & rotAngleNunmer & ">:")           Select Case rotAngleNunmer         Case 1, 2             rotAngle = 0         Case 3, 4             rotAngle = 90     End Select           rotAngle = rotAngle * 3.141592 / 180#       ' covert to Radians           Set dimObj = ThisDrawing.ModelSpace.AddDimRotated(point1, point2, location, rotAngle) End Sub