Sub Example_GridOn()
    ' Этот пример переключает установку GridOn.
    
    Dim viewportObj As AcadViewport
    
    ' Установите переменную viewportObj на активную область просмотра
    Set viewportObj = ThisDrawing.ActiveViewport

TOGGLEGRID:
    If MsgBox("Переключить сетку?", vbOKCancel, "GridOn Пример") = vbOK Then
        viewportObj.GridOn = Not (viewportObj.GridOn)
    Else
        Exit Sub
    End If
    
    ' Сбросьте активную область просмотра, чтобы видеть изменение
    ThisDrawing.ActiveViewport = viewportObj
    
    GoTo TOGGLEGRID
    
End Sub

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