Vla-renameprofile

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

構文: (vla-renameprofile vla-object origProfileName newProfileName)

機能: 指定されたプロファイルの名前を変更する。

引数

vla-object … PreferencesProfiles のVLAオブジェクト
ProfileName … 読み込まれるプロファイルの名前。
origProfileName … 現在のプロファイル名。
newProfileName … 新しいプロファイルの名。

戻り値: なし

サンプル

(vl-load-com)
(defun c:Example_RenameProfile()
    ;; プロファイル名をリネームするサンプル
    ;; リネームの確認は、オプションのプロファイルで確認できる
    ;;
    ;; * このサンプルは、"<<Unnamed Profile>>" があることを前提にしているので、
    ;; ない場合は、変更すること
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))

    ;; デフォルトのプロファイル名を変更
    (setq sourceProfile "<<Unnamed Profile>>"
          destinationProfile "NEW_PROFILE_NAME")
  
    (setq err (vl-catch-all-apply 'vla-RenameProfile (list (vla-get-Profiles preferences) sourceProfile destinationProfile)))

    (if (= (type err) 'VL-CATCH-ALL-APPLY-ERROR)
        (alert (strcat "デフォルトのプロファイル '" SourceProfile "' が無いのでムリ"))
        (alert (strcat "標準のプロファイル" SourceProfile " を " DestinationProfile "に変更しました。"))
    )
)