Vla-put-hasvpassociation

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

構文: (vla-get-hasvpassociation vla-object bool)

機能: ビューがペーパー空間ビューポートに関連付けられているかどうかを取得する。

引数

vla-object … View の VLAオブジェクト
Bool … ブール値

:vlax-True: ビューは、ペーパー空間ビューポートに関連付けられている。
:vlax-False: ビューは、ペーパー空間ビューポートに関連付けられていない。

戻り値: nil

サンプル

(vl-load-com)
(defun c:Example_HasVpAssociation()
    ;; Viewオブジェクトの区分名、LayoutId、LayerState、およびHasVpAssociation 特性を示すサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    ;; LayerStateManager オブジェクトにアクセス
    (setq oLSM (vla-GetInterfaceObject acadObj "AutoCAD.AcadLayerStateManager.23"))

    ;; LayerStateManager 現在の図面データベースの関連付け
    (vla-SetDatabase oLSM (vla-get-Database doc))

    (vla-Save oLSM "ColorLinetype" (+ acLsColor acLsLineType))
    
    ;; ビューコレクションにビューを追加し、現在の図面に「New_View」という名前のビューを作成。
    (setq viewObj (vla-Add (vla-get-Views doc) "New_View"))
    (alert (strcat (vla-get-Name viewObj) " を追加。"
                   "\n高さ : " (rtos (vla-get-Height viewObj) 2)
                   "\n幅 : " (rtos (vla-get-Width viewObj) 2)))
    
    (vla-put-CategoryName viewObj "My View Category")
    (vla-put-LayerState viewObj "ColorLinetype")
    
    (vla-put-LayoutId viewObj (vla-get-ObjectID (vla-Item (vla-get-Layouts doc) 1)))

    (alert (strcat "カテゴリ名は、"(vla-get-CategoryName viewObj) 
                   "\nレイアウト IDは、" (itoa (vla-get-LayoutId viewObj)) 
                   "\n画層状態は、" (vla-get-LayerState viewObj) ))
  
    (if (= (vla-get-HasVpAssociation viewObj) :vlax-true)
        (alert "ビューは、ペーパー空間のビューポートに関連付けられている。")
        (alert "ビューは、ペーパー空間のビューポートに関連付けられてない。")
    )

    (vlax-release-object oLSM)
)