UseModelExtents Example

UseModelExtents Example

Sub Example_UseModelExtents()

'This example determines if the height and lower
'extension are set automatically using model extents

    Dim object As Object
    Dim clip As AecClipVol
    Dim count As Integer
    
    'initalize
    count = 0
    
    For Each object In ThisDrawing.ModelSpace
    
        If TypeOf object Is AecClipVol Then
            count = count + 1
            Set clip = object
            MsgBox "ClipVol " & count & " Use Model Extents?: " & clip.UseModelExtents, vbInformation, "UseModelExtents Example"
        End If
        
    Next
    
    If count = 0 Then
        MsgBox "No ClipVol Present in Drawing", vbInformation, "UseModelExtents Example"
    End If

End Sub