GridOn プロパティ(ActiveX)

ビューポート グリッドの状態を指定します。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

object.GridOn

object

タイプ: PViewport、Viewport

このプロパティが適用されるオブジェクト。

プロパティの値

読み込み専用: いいえ

タイプ: ブール型

• True: グリッドはオンです。
• False: グリッドをオフです。

注意

グリッドの目的は、見やすくすることだけです。印刷はされず、図面の一部でもありません。グリッドの基点は SnapBasePoint メソッドで設定します。

グリッドをオンにすると、現在のグリッド間隔に合わせて表示されます。グリッド間隔を変更するには、SetGridSpacing メソッドを使用します。

ビューポートでグリッドをオンまたはオフにする場合、そのビューポートをアクティブにするまでグリッドの表示状態は変更されません。アクティブなビューポートでの、グリッドを切り替える場合、ビューポートがアクティブなビューポートに再設定されるまでグリッドの表示状態は変わりません。ビューポートをアクティブなビューポートに設定(または再設定)するには、更新されたビューポート オブジェクトと ActiveViewport プロパティを使用します。

注: このプロパティの値は、システム変数 GRIDMODE に格納されます。アクティブなビューポートのグリッド モードを更新するために SetVariable メソッドを使用する場合、変更を反映させるためにビューポートをアクティブなビューポートに再設定しないでください。

例

VBA:

Sub Example_GridOn()
    ' This example toggles the setting of GridOn.
    
    Dim viewportObj As AcadViewport
    
    ' Set the viewportObj variable to the activeviewport
    Set viewportObj = ThisDrawing.ActiveViewport

TOGGLEGRID:
    If MsgBox("Toggle the grid?", vbOKCancel, "GridOn Example") = vbOK Then
        viewportObj.GridOn = Not (viewportObj.GridOn)
    Else
        Exit Sub
    End If
    
    ' Reset the active viewport to see the change
    ThisDrawing.ActiveViewport = viewportObj
    
    GoTo TOGGLEGRID
    
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_GridOn()
    ;; This example toggles the setting of GridOn.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))    
    
    ;; Set the viewportObj variable to the activeviewport
    (setq viewportObj (vla-get-ActiveViewport doc))

    (vla-put-GridOn viewportObj (if (= (vla-get-GridOn viewportObj) :vlax-true) :vlax-false :vlax-true))

    ;; Reset the active viewport to see the change
    (vla-put-ActiveViewport doc viewportObj)
    (vla-Regen doc acAllViewports)
  
    (alert "Toggled the display of the grid.")  
)