「Vla-getextensiondictionary」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
編集の要約なし
編集の要約なし
 
9行目: 9行目:


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





2014年4月13日 (日) 21:51時点における最新版

構文
(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 



関連事項