ExportProfile メソッド(ActiveX)

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

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

object.ExportProfile Profile, RegFile

object

タイプ: PreferencesProfiles

このメソッドが適用されるオブジェクト。

Profile

アクセス: 入力のみ

タイプ: 文字列

書き出されるプロファイルの名前。

RegFile

アクセス: 入力のみ

タイプ: 文字列

プロファイルの書き出し先ファイルの名前。ファイルの拡張子は .arg でなければなりません。

戻り値(RetVal)

戻り値はありません。

注意

追加の注意はありません。

例

VBA:

Sub Example_ExportProfile()
    ' This example exports the active profile to a new name.
    
    Dim preferences As AcadPreferences
    Dim currActiveProfile As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Retrieve the current ActiveProfile value
    currActiveProfile = preferences.Profiles.ActiveProfile
    MsgBox "The current ActiveProfile is: " & preferences.Profiles.ActiveProfile, , "ExportProfile Example"
    
    ' Export the active profile
    preferences.Profiles.ExportProfile currActiveProfile, "TestProfile.arg"
    MsgBox "The ActiveProfile has been exported to: TestProfile.arg", , "ExportProfile Example"
    
End Sub

Visual LISP:

(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))
  
    ;; Retrieve the current ActiveProfile value
    (setq currActiveProfile (vla-get-ActiveProfile (vla-get-Profiles preferences)))
    (alert (strcat "The current ActiveProfile is: " currActiveProfile))
    
    ;; Export the active profile
    (vla-ExportProfile (vla-get-Profiles preferences) currActiveProfile "c:\\Temp\\TestProfile.arg")
    (alert "The ActiveProfile has been exported to: TestProfile.arg")
)