Vla-deleteconfiguration

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年2月3日 (水) 14:32時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-deleteconfiguration ''vla-object'' ''Name'' ) ; 機能 : ビューポート設定を削除する。 ; 引数 :* vla-object … Viewports...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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 分割のビューポートを消したよ")
)

関連事項