请问怎么访问DimAligned ?

fmfm

这样到 For Each dimobj In ThisDrawing.ModelSpace 提示 type mismatch
Dim dimobj as Acaddimention
For Each dimobj In ThisDrawing.ModelSpace
If TypeOf dimobj Is AcadDimAligned Then
MsgBox "ok"
End If
Next
这样什么反映都没有 Dim dimobj As AcadEntity
For Each dimobj In ThisDrawing.ModelSpace
If TypeOf dimobj Is AcadDimAligned Then
MsgBox "ok"
End If
Next

雪山飞狐_lzh

AcadDimAligned 是对齐标注 AcadDimRotated 是线性标注 你要的是AcadDimRotated 吧 你用 Dim dimobj As AcadEntity
For Each dimobj In ThisDrawing.ModelSpace
If TypeOf dimobj Is AcadDimRotated Then
MsgBox dimobj.ObjectName
End If
Next
试试 用选择集＋过滤器选择所有的标注 Dim FilterType(6) As Integer
Dim FilterData(6) As Variant
Dim ss As AcadSelectionSet
Dim a(2) As Double
a(0) = 100
FilterType(0) = 0
FilterData(0) = "Dim*"
FilterType(1) = -4
FilterData(1) = "<or"
FilterType(2) = -4
FilterData(2) = "=,*,*"
FilterType(3) = 13
FilterData(3) = a
FilterType(4) = -4
FilterData(4) = "=,*,*"
FilterType(5) = 14
FilterData(5) = a
FilterType(6) = -4
FilterData(6) = "or>"
Set ss = ThisDrawing.ActiveSelectionSet
ss.Clear
ThisDrawing.ActiveSelectionSet.Select acSelectionSetAll, , , FilterType, FilterData
MsgBox ss.Count
选择所有横坐标为100的标注