vba get type of dimension from drawing

Hi,

Try this:

Dim swApp As SldWorks.SldWorks

Dim Part As ModelDoc2

Dim swDraw As DrawingDoc

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Dim DispDim As DisplayDimension

Dim swDim As Dimension

Dim ArcVal1 As Long

Dim ArcVal2 As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Set swDraw = Part

Dim swAnn As Annotation

Dim arrAnnotation  As Variant

Dim swView As View

Set swView = swDraw.GetFirstView

Do While Not swView Is Nothing

    arrAnnotation = swView.GetDisplayDimensions

    If IsEmpty(arrAnnotation) = False Then

        For i = 0 To UBound(arrAnnotation)

            Set DispDim = arrAnnotation(i)

            Set swDim = DispDim.GetDimension

            Set swAnn = DispDim.GetAnnotation

            swAnn.Select False

           ArcVal1 = swDim.GetArcEndCondition(1) '>>First End Condition, Will return swArcEndCondition_e enum

           ArcVal2 = swDim.GetArcEndCondition(2) '>>Second End Condition, Will return swArcEndCondition_e enum

        Next i

    End If

    Set swView = swView.GetNextView

Loop

End Sub

This is old but mostly still relevant.

Tick Talk on EsoxRepublic.com » Shapeshifting Through SW Dimension API

I'm just wondering what's purpose of doing this (find out if the dim is center-center or min. dis)