Vla-rename

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

構文: (vla-rename vla-object oldname newname )

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

引数

選択セットの場合

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

戻り値: なし

サンプル

(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")
)