dimension的TextOverride能返回替代文字数据
TextOverride从字面翻译是---不顾; 使...无效; 藐视; 拒绝制服; 凌驾; 压倒; 推翻(决议)
找了半天，在二次开发找到了其意义是指定标注的文字字符串。
在金山词霸中才找到有--取而代之--之意，瞎忙了半天。
以下程序将dimension的Ridial尺寸的所有属性基本列出。
Sub ReturnAcDbRadialDiamension()
'文本类
Dim DefineAcadMText As AcadMText 'AcDbMText
'尺寸类
Dim DefineAcadDimRotated As AcadDimRotated ' AcDbRotatedDimension
Dim DefineAcadDimRadial As AcadDimRadial'AcDbRadialDimension
Dim DefineAcadDimDiametric As AcadDimDiametric'AcDbDiametricDimension
Dim DefineAcadDimAligned As AcadDimAligned 'AcDbAlignedDimension
Dim DefineAcadDimAngular As AcadDimAngular'AcDb2LineAngularDimension
'平面线性类
Dim DefineLine As AcadLine, DefineLineArray() As Variant'AcDbLine
Dim DefineArc As AcadArc 'AcDbArc
Dim DefinePolyLine As AcadLWPolyline 'AcDbPolyline
Dim Ent As AcadEntity
'Dim DrawingZombieEntity As AcadAttributeReference'AcDbZombieEntity
Dim LineCount As Integer
''
LineCount = 1
For Each Ent In ThisDrawing.ModelSpace
Select Case Ent.ObjectName
Case "AcDbRadialDimension1"
Set DefineAcadDimRadial = Ent
With DefineAcadDimRadial
Debug.Print .AltRoundDistance
Debug.Print .AltSuppressLeadingZeros
Debug.Print .AltSuppressTrailingZeros
Debug.Print .AltSuppressZeroFeet
Debug.Print .AltSuppressZeroInches
Debug.Print .AltTextPrefix
Debug.Print .AltTextSuffix
Debug.Print .AltTolerancePrecision
Debug.Print .AltToleranceSuppressLeadingZeros
Debug.Print .AltToleranceSuppressTrailingZeros
Debug.Print .AltToleranceSuppressZeroFeet
Debug.Print .AltUnits
Debug.Print .AltUnitsFormat
Debug.Print .AltUnitsPrecision
Debug.Print .AltUnitsScale
Debug.Print .ArrowheadBlock
Debug.Print .ArrowheadSize
Debug.Print .ArrowheadType
Debug.Print .CenterMarkSize
Debug.Print .CenterType
Debug.Print .DimensionLineColor
Debug.Print .DimensionLineWeight
Debug.Print .DimLineSuppress
Debug.Print .Fit
Debug.Print .ForceLineInside
Debug.Print .FractionFormat
Debug.Print .Layer
'Debug.Print .LeaderLength
Debug.Print .LinearScaleFactor
Debug.Print .Measurement
Debug.Print .PrimaryUnitsPrecision
Debug.Print .RoundDistance
Debug.Print .SuppressZeroFeet
Debug.Print .SuppressZeroInches
Debug.Print .StyleName
'文字部分
Debug.Print .TextColor
Debug.Print .TextInside
Debug.Print .TextInsideAlign
Debug.Print .TextGap
Debug.Print .TextHeight
Debug.Print .TextMovement
Debug.Print .TextOutsideAlign
Debug.Print .TextOverride
Debug.Print .TextPosition(0), .TextPosition(1), .TextPosition(2)
Debug.Print .TextPrefix
Debug.Print .TextRotation
Debug.Print .TextStyle
Debug.Print .TextSuffix
Debug.Print .ToleranceSuppressZeroFeet
Debug.Print .ToleranceSuppressZeroInches
Debug.Print .UnitsFormat
End With
Case "AcDbMText"
Debug.Print Ent.ObjectName
Set DefineAcadMText = Ent
Debug.Print TypeName(DefineAcadMText)
Debug.Print DefineAcadMText.TextString
With DefineAcadMText
Debug.Print .ObjectID
Debug.Print .TextString
End With
End Select
Next Ent
'Debug.Print "", LineCount
End Sub
页:
[1]