Vla-getextensiondictionary

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

構文: (Vla-getextensiondictionary vla-object)

機能: オブジェクトに関連付けられた拡張ディクショナリを取得する。

引数

vla-object … 次のタイプのVLA オブジェクト。すべての図形オブジェクト、AttributeReference、Dictionary、DimStyle、Group、Layer、Linetype、RegisteredApplication、TextStyle、UCS、View、Viewport、 XRecord このプロパティが適用されるオブジェクト。

戻り値: 拡張ディクショナリのVLAオブジェクト

Memo: オブジェクトが拡張ディクショナリを持たない場合、メソッドはオブジェクトに対して新しい拡張ディクショナリを作成して戻り値に返す。; vla-get-hasextensiondictionary プロパティを使用して、拡張ディクショナリを持っているかどうかを調べることができる。

サンプル

(defun DeleteLayerStates  ()
 ; 画層状態を削除してみたり
 (setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))

 (vl-Catch-All-Apply
  '(lambda ()
    (vla-Remove (vla-GetExtensionDictionary (vla-Get-Layers *ActDoc*))
                "ACAD_LAYERSTATES")))
 (princ)
)

; ダンプ
(vlax-dump-object (vla-GetExtensionDictionary (vla-Get-Layers *ActDoc*)))
#<vlax-vbObject IGcadDictionary 1394c058> 
;PROPERT:
; _NewEnum (RO) = #<variant 13 > 
; Application (RO) = #<vlax-vbObject IGcadApplication 10f92ffc> 
; Count (RO) = 1 
; Database (RO) = #<vlax-vbObject IGcadDatabase 1394bea8> 
; Document (RO) = #<vlax-vbObject IGcadDocument 11124854> 
; Handle (RO) = "1BF" 
; HasExtensionDictionary (RO) = vlax-false 
; Name = "" 
; ObjectID (RO) = 328515472 
; ObjectName (RO) = "AcDbDictionary" 
; OwnerID (RO) = 286400488