Vla-renameprofile

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年5月3日 (日) 18:38時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-renameprofile ''vla-object'' ''origProfileName'' ''newProfileName'') ; 機能 : 指定されたプロファイルの名前を変更する...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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 "に変更しました。"))
    )
)

関連事項