CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2021 开发者帮助 › 查看内容

AutoCAD 2021 开发者帮助

GridOn 属性（ActiveX）

2024-5-18 18:33| 发布者: admin| 查看: 296| 评论: 0|原作者: admin|来自: AutoCAD

GridOn 属性（ActiveX）

指定视口网格的状态。

支持的平台：仅限 Windows

签名

VBA：

object.GridOn

对象

类型：PViewport、视口

此属性应用于的对象。

属性值

只读：不

类型：布尔

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

可视化 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.")  
)