ActiveProfile プロパティ(ActiveX)

AutoCAD セッションのアクティブなプロファイルを指定します。

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

構文と要素

VBA:

object.ActiveProfile

object

タイプ: PreferencesProfiles

このプロパティが適用されるオブジェクト。

プロパティの値

読み込み専用: いいえ

タイプ: 文字列

アクティブなプロファイルの名前。

注意

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

例

VBA:

Sub Example_ActiveProfile()
    ' This example returns the current setting of
    ' ActiveProfile.
    
    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 value for ActiveProfile is " & currActiveProfile, vbInformation, "ActiveProfile Example"
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_ActiveProfile()
    ;; This example returns the current setting of
    ;; ActiveProfile.
    (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 value for ActiveProfile is " currActiveProfile))
)