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