Vla-get-hasvpassociation

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年1月31日 (土) 22:55時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-hasvpassociation ''vla-object'') ; 機能 : ビューがペーパー空間ビューポートに関連付けられているかどうか...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-get-hasvpassociation vla-object)


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


引数
  • vla-object … View の VLAオブジェクト


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


サンプル
(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)
)

関連事項