Vla-setviewのソースを表示

{{AutoLISP}}
; 構文
: (vla-setview ''vla-object''  ''View''  )


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


; 引数
:* vla-object … ViewPort の VLAオブジェクト
:* View … View の VLAオブジェクト



; 戻り値
: nil


; サンプル
<pre class="brush:autolisp;">
(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)
)
</pre>

-----
関連事項
* [[vlax-get-acad-object]]
* [[vla-get-activedocument]]
* [[vla-setview]]
* [[vla-get-views]]
* [[vla-get-activeviewport]]
* [[vla-put-activeviewport]]


[[Category:AutoLISP]]