Vla-renameのソースを表示

{{AutoLISP}}
; 構文
: (vla-rename ''vla-object'' ''oldname '' ''newname '')


; 機能
: ディクショナリ内の項目や保存された画層設定の名前を変更する。


; 引数
;選択セットの場合
:* vla-object … Dictionary、LayerStateManager の VLA オブジェクト
:* oldname … ディクショナリ内のオブジェクトの現在の名前(キーワード)または、保存された画層設定セットの名前。 
:* newname … ディクショナリ内のオブジェクトの新しい名前(キーワード)または、保存された画層設定の新しい名前。 


; 戻り値
: なし



; サンプル
<pre class="brush:autolisp;">
(vl-load-com)
(defun c:Example_Rename()
    ;; ディクショナリにカスタムオブジェクトを作成して
    ;; リネームするサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq dictionaries (vla-get-Dictionaries doc))
  
    (setq dictObj (vla-Add dictionaries "TEST_DICTIONARY"))
    
    ;; カスタムオブジェクトが定義された ObjectARX アプリを読み込む
    ;; ノート : ここで読み込むアプリケーションが存在しないと実行時エラーになるので、 ObjectARX アプリケーション名とパスは適宜変更すること。

    (vla-LoadArx acadObj "MyARXApp.dll")
    
    ;; ディクショナリにカスタムオブジェクトを追加
    (setq keyName "OBJ1")
    (setq className "MyAPPDictObject")
    
    (setq customObj (vla-AddObject dictObj keyName className))
    
    ;; オブジェクトをリネーム
    (vla-Rename dictObj keyName "NewKeyName")
)

(defun c:Example_RenameLayerSettings()
    ;; 画層設定を作成して"ColorLinetype" から 
    ;; "OldColorLinetype" にリネームするサンプル
    (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))

    ;; 画層設定をリネームして保存
    (vla-Rename oLSM "ColorLinetype" "OldColorLinetype")
)
</pre>

-----
関連事項
* [[vlax-get-acad-object]]
* [[vla-get-activedocument]]
* [[vla-getinterfaceobject]]
* [[vla-setdatabase]]
* [[vla-save]]

[[Category:AutoLISP]]