Sub Example_TextInside()
   'Этот пример создает выровненное измерение в пространстве модели и 
   'позволяет пользователю переключать, вызывая текст измерения между 
   'добавочными линиями, используя свойство TextInside

    Dim dimObj As AcadDimAligned
    Dim point1(0 To 2) As Double, point2(0 To 2) As Double
    Dim location(0 To 2) As Double
    Dim CurrentValue As String
    
    'Определите измерение
    point1(0) = 5: point1(1) = 5: point1(2) = 0
    point2(0) = 5.5: point2(1) = 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, чтобы переключить принуждение текста измерения в добавочных линиях", vbOKCancel)
        Case vbOK
            'Переключите принуждение текста измерения в добавочных линиях
            dimObj.TextInside = Not (dimObj.TextInside)
            ThisDrawing.Regen acAllViewports
            
            'Читайте и показывайте новое значение TextInside измерения
            CurrentValue = IIf(dimObj.TextInside, "is now", "is not")
            MsgBox "Текст измерения " & CurrentValue & " принудительный в добавочных линиях"
        
        Case vbCancel
            Exit Sub
    End Select
    
    GoTo Toggle
    
End Sub

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