dimension的几种形式
Sub lmlm()Dim ttt As AcadDimension
Dim Ent As AcadEntity
Select Case tt.ObjectName
Case "AcDb2LineAngularDimension"
Case "AcDbAlignedDimension"
Case "AcDbDiametricDimension"
Case "AcDbRadialDimension"
Case "AcDbRotatedDimension"
End Select
End Sub
页:
[1]