Vla-deleteconfiguration

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

構文: (vla-deleteconfiguration vla-object Name )

機能: ビューポート設定を削除する。

引数

vla-object … Viewports のVLAオブジェクト
Name … 削除するビューポート設定の名前。

戻り値: nil

MEMO：ビューポート設定は、Split メソッドによって分割された単一のビューポートから成っている。ビューポートが分割されると、分割されたそれぞれのビューポートは一つのビューポート設定とみなされる。設定内のすべてのビューポートは、分割前の元のビューポートと同じ名前を持つ。

サンプル

(vl-load-com)
(defun c:Example_DeleteConfiguration()
    ;; 4分割ビューポートを作成してから削除するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    (setq oldViewport (vla-Add (vla-get-Viewports doc) "CurrentViewport"))
       
    ;; 新しい viewport を作成してアクティブに
    (setq newViewport (vla-Add (vla-get-Viewports doc) "NewViewport"))
    (vla-put-ActiveViewport doc newViewport)
    
    ;; 4分割
    (vla-Split newViewport acViewport4)
    
    ;; 新しいビューポートをアクティブに
    (vla-put-ActiveViewport doc newViewport)
    (alert "4 分割のビューポートを作ったよ。")

    ;; 消す
    (vla-put-ActiveViewport doc oldViewport)
    (vla-DeleteConfiguration (vla-get-Viewports doc) "NewViewport")
    (vla-DeleteConfiguration (vla-get-Viewports doc) "CurrentViewport")
    (vla-Regen doc acAllViewports)
    (alert "4 分割のビューポートを消したよ")
)