概要 - AutoCAD の基本設定を設定する(VBA/ActiveX)

オプションに関係するオブジェクトは 9 つあり、それぞれが [オプション]ダイアログボックスのタブと対応しています。

これらのオブジェクトで、レジストリに保存されている[オプション]ダイアログボックス内のすべてのオプションにアクセスすることができます。これらのオブジェクトにあるプロパティを使用して、AutoCAD のさまざまな設定をカスタマイズできます。オブジェクトは、次のとおりです。

PreferencesDisplay
PreferencesDrafting
PreferencesFiles
PreferencesOpenSave
PreferencesOutput
PreferencesProfiles
PreferencesSelection
PreferencesSystem
PreferencesUser

これらのオブジェクトには、Preferences オブジェクトを使用してアクセスできます。Preferences オブジェクトにアクセスするには、次のように、Application オブジェクトの Preferences プロパティを使用します。

Dim acadPref as AcadPreferences
Set acadPref = ThisDrawing.Application.Preferences

この後、Display、Drafting、Files、OpenSave、Output、Profile、Selection、System、User プロパティを使用して、それぞれの Preferences オブジェクトにアクセスできます。

クロスヘアカーソルをフルスクリーンに設定する

Sub Ch2_PrefsSetCursor()
  ' This example sets the crosshairs of the AutoCAD drawing cursor
  ' to full screen.

  ' Access the Preferences object
  Dim acadPref As AcadPreferences
  Set acadPref = ThisDrawing.Application.Preferences

  ' Use the CursorSize property to set the size of the crosshairs
  acadPref.Display.CursorSize = 100
End Sub

スクリーンメニューとスクロールバーを表示する

Sub Ch2_PrefsSetDisplay()
  ' This example disables the scroll
  ' bars with the DisplayScrollBars
  ' properties.

  ' Access the Preferences object
  Dim acadPref As AcadPreferences
  Set acadPref = ThisDrawing.Application.Preferences

  ' Display the and disable scroll bars
  acadPref.Display.DisplayScrollBars = False
End Sub