图中的两条红线的标注尺寸怎么获得呢？

fmfm

<SUB>横的红线没有直接标注，但是我想要通过其他的标注得到他的标注尺寸，该怎么做呢？</SUB>



<SUB>还有就是那条竖线，尺寸没有直接标注的他的上面？？好无奈哦，请指点啦！！！谢谢</SUB>

fmfm

横的红线没有直接标注，但是我想要通过其他的标注得到他的标注尺寸，该怎么做呢？
还有就是那条竖线，尺寸没有直接标注的他的上面？？好无奈哦，请指点啦！！！谢谢

fmfm

谢谢各位啦


       

mccad

你得到其标注是想来做什么？
标注的尺寸值(也就是线的长度)本身可以通过对象本身的属性来获得。
按你图中的标注位置，可以通过位置来得以其标注，但你的其它图是不是也这样标注，我就不清楚了。所以关键是找到规律，如果没有规律，也就没有办法。

雪山飞狐_lzh

2. 可以通过XY轴判断
3. Function GetDimByX(ByVal X)
4. '获取一标注点的横坐标为X的所有标注
5.        Dim FilterType(6) As Integer
6.        Dim FilterData(6) As Variant
7.        Dim pDims() As AcadObject
8.        Dim ss As AcadSelectionSet
9.        Dim pnt(2) As Double
10.        pnt(0) = X
11.        FilterType(0) = 0
12.        FilterData(0) = "Dim*"
13.        FilterType(1) = -4
14.        FilterData(1) = "<or"
15.        FilterType(2) = -4
16.        FilterData(2) = "=,*,*"
17.        FilterType(3) = 13
18.        FilterData(3) = pnt
19.        FilterType(4) = -4
20.        FilterData(4) = "=,*,*"
21.        FilterType(5) = 14
22.        FilterData(5) = pnt
23.        FilterType(6) = -4
24.        FilterData(6) = "or>"
25.        Set ss = ThisDrawing.ActiveSelectionSet
26.        ss.Clear
27.        ss.Select acSelectionSetAll, , , FilterType, FilterData
28.        ReDim pDims(ss.Count - 1)
29.        For i = 0 To ss.Count - 1
30.                Set pDims(i) = ss(i)
31.        Next i
32.        GetDimByX = pDims
33. End FunctionFunction GetDimByY(ByVal Y)
34. '获取一标注点的纵坐标为Y的所有标注
35.        Dim FilterType(6) As Integer
36.        Dim FilterData(6) As Variant
37.        Dim pDims() As AcadObject
38.        Dim ss As AcadSelectionSet
39.        Dim pnt(2) As Double
40.        pnt(1) = Y
41.        FilterType(0) = 0
42.        FilterData(0) = "Dim*"
43.        FilterType(1) = -4
44.        FilterData(1) = "<or"
45.        FilterType(2) = -4
46.        FilterData(2) = "*,=,*"
47.        FilterType(3) = 13
48.        FilterData(3) = pnt
49.        FilterType(4) = -4
50.        FilterData(4) = "*,=,*"
51.        FilterType(5) = 14
52.        FilterData(5) = pnt
53.        FilterType(6) = -4
54.        FilterData(6) = "or>"
55.        Set ss = ThisDrawing.ActiveSelectionSet
56.        ss.Clear
57.        ss.Select acSelectionSetAll, , , FilterType, FilterData
58.        ReDim pDims(ss.Count - 1)
59.        For i = 0 To ss.Count - 1
60.                Set pDims(i) = ss(i)
61.        Next i
62.        GetDimByY = pDims
63. End FunctionSub Test2()
64. Dim obj As AcadLine
65. ThisDrawing.Utility.GetEntity obj, pnt
66. Dim a As Double
67. a = obj.StartPoint(0)
68. For Each i In GetDimByX(a)
69. MsgBox i.ObjectName
70. Next i
71. End Sub

可以通过XY轴判断 Function GetDimByX(ByVal X) '获取一标注点的横坐标为X的所有标注        Dim FilterType(6) As Integer        Dim FilterData(6) As Variant        Dim pDims() As AcadObject        Dim ss As AcadSelectionSet        Dim pnt(2) As Double        pnt(0) = X        FilterType(0) = 0        FilterData(0) = "Dim*"        FilterType(1) = -4        FilterData(1) = "<or"        FilterType(2) = -4        FilterData(2) = "=,*,*"        FilterType(3) = 13        FilterData(3) = pnt        FilterType(4) = -4        FilterData(4) = "=,*,*"        FilterType(5) = 14        FilterData(5) = pnt        FilterType(6) = -4        FilterData(6) = "or>"        Set ss = ThisDrawing.ActiveSelectionSet        ss.Clear        ss.Select acSelectionSetAll, , , FilterType, FilterData        ReDim pDims(ss.Count - 1)        For i = 0 To ss.Count - 1                Set pDims(i) = ss(i)        Next i        GetDimByX = pDims End FunctionFunction GetDimByY(ByVal Y) '获取一标注点的纵坐标为Y的所有标注        Dim FilterType(6) As Integer        Dim FilterData(6) As Variant        Dim pDims() As AcadObject        Dim ss As AcadSelectionSet        Dim pnt(2) As Double        pnt(1) = Y        FilterType(0) = 0        FilterData(0) = "Dim*"        FilterType(1) = -4        FilterData(1) = "<or"        FilterType(2) = -4        FilterData(2) = "*,=,*"        FilterType(3) = 13        FilterData(3) = pnt        FilterType(4) = -4        FilterData(4) = "*,=,*"        FilterType(5) = 14        FilterData(5) = pnt        FilterType(6) = -4        FilterData(6) = "or>"        Set ss = ThisDrawing.ActiveSelectionSet        ss.Clear        ss.Select acSelectionSetAll, , , FilterType, FilterData        ReDim pDims(ss.Count - 1)        For i = 0 To ss.Count - 1                Set pDims(i) = ss(i)        Next i        GetDimByY = pDims End FunctionSub Test2() Dim obj As AcadLine ThisDrawing.Utility.GetEntity obj, pnt Dim a As Double a = obj.StartPoint(0) For Each i In GetDimByX(a) MsgBox i.ObjectName Next i End Sub