Vla-get-categorynameのソースを表示

{{AutoLISP}}
; 構文
: (vla-get-categoryname ''vla-object'')


; 機能
:  ビューの分類名を指定する。 


; 引数
:* vla-object …  View の VLAオブジェクト
:* name… ビューの分類名。 


; 戻り値
: nil


; サンプル
<pre class="brush:autolisp;">
(vl-load-com)
(defun c:Example_LayerState()
    ;; カテゴリ名、レイアウトID、画層状態と
    ;; ビューポート関連付けのデモ
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

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

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

    (vla-Save oLSM "ColorLinetype" (+ acLsColor acLsLineType))
    
    ;; "New_View" という名前でビューを作成して
    ;; views コレクションに追加
    (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" (itoa (vla-get-LayoutId viewObj)) " は Layout ID."
                   "\n" (vla-get-LayerState viewObj) " は画層状態。"))
  
    (if (= (vla-get-HasVpAssociation viewObj) :vlax-true)
        (alert "ビューはペーパー空間ビューポートです")
        (alert "ビューはペーパー空間ビューポートではないです。")
    )

    (vlax-release-object oLSM)
)
</pre>

-----
関連事項
* [[vlax-get-acad-object]]
* [[vla-get-activedocument]]
* [[vla-get-layerstate]]
* [[vla-put-layerstate]]
* [[vla-get-layoutid]]
* [[vla-put-layoutid]]
* [[vla-get-Layouts]]
* [[vla-put-Layouts]]
* [[vla-get-categoryname]]
* [[vla-put-categoryname]]
* [[vla-get-hasvpassociation]]
* [[vla-put-hasvpassociation]]

[[Category:AutoLISP]]