Vla-put-gridon
- 構文
- (vla-put-gridon vla-object value)
- 機能
- ビューポートのグリッドの状態を指定する。
- 引数
-
- vla-object … VLAオブジェクト(PViewport, Viewport)
- value … ブーリアン :vlax-true = グリッドON、:vlax-false = グリッドオフ
- 戻り値
- nil
- Memo:
- GRIDMODEシステム変数と一緒なのでアクティブビューポートを変更するなら setvar 使ったほうが楽かもね。
- サンプル
(vl-load-com) (defun c:Example_GridOn() ;; グリッドの ON/OFFトグルサンプル (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) ;; アクティブビューポートを取得 (setq viewportObj (vla-get-ActiveViewport doc)) (vla-put-GridOn viewportObj (if (= (vla-get-GridOn viewportObj) :vlax-true) :vlax-false :vlax-true)) ;; 変更を反映 (vla-put-ActiveViewport doc viewportObj) (vla-Regen doc acAllViewports) (princ "\nグリッド表示切り替え") ) ; setvar で同じ事を。 (setvar "GRIDMODE" (if (= 1 (getvar "gridmode")) '0 '1)) (princ "\nグリッド表示切り替え")
関連事項