ビューポートのグリッド間隔を取得します。
サポートされているプラットフォーム: Windows のみ
VBA:
object.GetGridSpacing XSpacing, YSpacing
戻り値はありません。
追加の注意はありません。
VBA:
Sub Example_GetGridSpacing() ' This example turns on the grid for the current viewport. ' It then finds the current grid spacing, and changes that spacing. ' Find the current active viewport Dim viewportObj As AcadViewport Set viewportObj = ThisDrawing.ActiveViewport ' Turn on the grid and reset the viewport to see it come on. viewportObj.GridOn = True ThisDrawing.ActiveViewport = viewportObj ' Find the current grid spacing Dim XSpacing As Double Dim YSpacing As Double viewportObj.GetGridSpacing XSpacing, YSpacing MsgBox "X =" & XSpacing & ", Y =" & YSpacing, , "GetGridSpacing Example" ' Change the grid spacing XSpacing = XSpacing * 0.5 YSpacing = YSpacing * 0.5 viewportObj.SetGridSpacing XSpacing, YSpacing ThisDrawing.ActiveViewport = viewportObj MsgBox "X =" & XSpacing & ", Y =" & YSpacing, , "GetGridSpacing Example" End Sub
Visual LISP:
(vl-load-com) (defun c:Example_GetGridSpacing() ;; This example turns on the grid for the current viewport. ;; It then finds the current grid spacing, and changes that spacing. (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; Find the current active viewport (setq viewportObj (vla-get-ActiveViewport doc)) ;; Turn on the grid and reset the viewport to see it come on. (vla-put-GridOn viewportObj :vlax-true) (vla-put-ActiveViewport doc viewportObj) ;; Find the current grid spacing (vla-GetGridSpacing viewportObj 'XSpacing 'YSpacing) (alert (strcat "X =" (rtos XSpacing 2) ", Y =" (rtos YSpacing 2))) ;; Change the grid spacing (vla-SetGridSpacing viewportObj (* XSpacing 0.5) (* YSpacing 0.5)) (vla-put-ActiveViewport doc viewportObj) (vla-GetGridSpacing viewportObj 'XSpacing 'YSpacing) (alert (strcat "X =" (rtos XSpacing 2) ", Y =" (rtos YSpacing 2))) )