Vla-copyprofile

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

構文: (vla-copyprofile vla-object oldProfileName newProfileName)

機能: 指定されたプロファイルをコピーする。

引数

vla-object … PreferencesProfiles のVLAオブジェクト
oldProfileName … コピーされるプロファイルの名前。
newProfileName … 新しく作成されるプロファイルの名前。

戻り値: なし

サンプル

(vl-load-com)
(defun c:Example_CopyProfile()
  ;; 既存のプロファイルをコピーするサンプル。
  ;; オプションのプロファイルで新しいプロファイルを確認できる
  ;; * 注: この例は、デフォルト プロファイル"<<Unnamed Profile>>"に
   ;;  依存するので、ない場合は適時変更
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
  
    ;; PreferencesProfiles オブジェクトを使用
    (setq xCADPref (vla-get-Profiles preferences))
    
    (setq SourceProfile "<<Unnamed Profile>>"
          DestinationProfile "NEW_PROFILE")
    
    (vla-CopyProfile xCADPref SourceProfile DestinationProfile)
    
    (alert (strcat "プロファイル" SourceProfile " を " DestinationProfile "にコピーします"))
)