「Vla-exportprofile」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-exportprofile ''vla-object'' ''ProfileName'' ''RegFile'') ; 機能 : 他のユーザと共有するためアクティブなプロファイ...」)
 
編集の要約なし
 
10行目: 10行目:
; 引数
; 引数
:* vla-object … PreferencesProfiles のVLAオブジェクト
:* vla-object … PreferencesProfiles のVLAオブジェクト
:* ProfileName … 削除するプロファイルの名前。
:* ProfileName … 書きだされるプロファイルの名前。
:* RegFile … プロファイルの書き出し先ファイルの名前。ファイルの拡張子は .arg でなければならない。
:* RegFile … プロファイルの書き出し先ファイルの名前。ファイルの拡張子は .arg でなければならない。



2015年5月3日 (日) 18:23時点における最新版

構文
(vla-exportprofile vla-object ProfileName RegFile)


機能
他のユーザと共有するためアクティブなプロファイルを書き出す。


引数
  • vla-object … PreferencesProfiles のVLAオブジェクト
  • ProfileName … 書きだされるプロファイルの名前。
  • RegFile … プロファイルの書き出し先ファイルの名前。ファイルの拡張子は .arg でなければならない。


戻り値
なし
サンプル
(vl-load-com)
(defun c:Example_ExportProfile()
    ;; This example exports the active profile to a new name.
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
  
    ;; アクティブプロファイルの取得
    (setq currActiveProfile (vla-get-ActiveProfile (vla-get-Profiles preferences)))
    (alert (strcat "現在アクティブなプロファイルは: " currActiveProfile))
    
    ;; アクティブプロファイルの書き出し
    (vla-ExportProfile (vla-get-Profiles preferences) currActiveProfile "c:\\Temp\\TestProfile.arg")
    (alert "アクティブプロファイルを書き出し: TestProfile.arg")
)

関連事項