Sub Example_TextOutsideAlign()
   'Этот пример создает выровненное измерение в пространстве модели и позволяет 
   'пользователю переключать значение TextOutsideAlign для измерения

    Dim dimObj As AcadDimAligned
    Dim point1(0 To 2) As Double, point2(0 To 2) As Double
    Dim location(0 To 2) As Double
    
    'Определите измерение
    point1(0) = 5: point1(1) = 5: point1(2) = 0
    point2(0) = 5.5: point2(1) = 5.5: point2(2) = 0
    location(0) = 5: location(1) = 7: location(2) = 0
    
    'Создайте выровненный объект измерения в пространстве модели
    Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
    
    ThisDrawing.Application.ZoomAll

Toggle:
    Select Case MsgBox("Нажмите OK, чтобы переключить значение TextOutsideAlign для этого измерения", vbOKCancel)
        Case vbOK
            'Переключите значение TextOutsideAlign для этого измерения
            dimObj.TextOutsideAlign = Not (dimObj.TextOutsideAlign)
            dimObj.Update
            ThisDrawing.Regen acActiveViewport
            
            'Читайте и показывайте новое значение TextOutsideAlign измерения
            MsgBox "TextOutsideAlign: " & dimObj.TextOutsideAlign
            
        Case vbCancel
            Exit Sub
    End Select
    
    GoTo Toggle
   
End Sub

Сайт управляется системой uCoz