Vla-setview

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-setview vla-object View )

機能: ビューポート内のビューを、Views コレクションオブジェクトに保存されているビューに設定する。

引数

vla-object … ViewPort の VLAオブジェクト
View … View の VLAオブジェクト

戻り値: nil

サンプル

(vl-load-com)
(defun c:Example_SetView()
    ;; 新しいビューを作成するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    ;; 新しいビューを作成
    (setq viewObj (vla-Add (vla-get-Views doc) "TESTVIEW"))
    
    ;; 表示特性を設定
    (setq centerPoint (vlax-make-safearray vlax-vbDouble '(0 . 1)))
    (vlax-safearray-fill centerPoint '(374 313))
    (vla-put-Center viewObj centerPoint)
    (vla-put-Width viewObj 450)
    (vla-put-height viewObj 354)
    
    ; アクティブなビューポートを取得
    (setq viewportObj (vla-get-ActiveViewport doc))
    (alert "ビューの変更を保存。")
       
    ;; ビューポートにビューを設定
    (vla-SetView viewportObj viewObj)
    (vla-put-ActiveViewport doc viewportObj)
        
    (vla-Regen doc :vlax-true)
)