用VBA设定参数扩展AutoCAD设计功能

AutoCAD一共有9个属于选项的对象，每一对象描述了选项对话框中的一个选项卡。这些对象提供了访问选项对话框中的所有注册信息项。你可以通过使用在这些对象中的属性来自定义AutoCAD设置。这些对象为

　　PreferencesDisplay (显示参数)

　　PreferencesDrafting (草图参数)

　　PreferencesFiles (文件参数)

　　PreferencesOpenSave (打开和保存参数)

　　PreferencesOutput (输出参数)

　　PreferencesProfile (配置参数)

　　PreferencesSelection (选择参数)

　　PreferencesSystem (系统参数)

　　PreferencesUser (用户参数)

　　这些对象可通过Preferences(参数)对象来访问。至于对Preferences对象的访问可使用Application(应用程序)对象中的Preferences属性。示例如下：

　　访问Preferences(参数)对象

　　Dim acadPref as AcadPreferences

　　Set acadPref = ThisDrawing.Application.Preferences

　　然后你可以使用Display、Drafting、Files、OpenSave、Output、Profile、Selection、System和User属性。例如，你可通过CursorSize属性控制十字光标的大小。

　　设定十字光标为全屏

　　本例设定十字光标为全屏。

　　acadPref.Display.CursorSize = 100

　　你可以通过应用程序使AutoCAD界面的某些外观启用或禁用。

　　显示屏幕菜单和滚动条

　　本例用DisplayScreenMenu和DisplayScrollBars属性使屏幕菜单可见，使滚动条不可见。

　　acadPref.Display.DisplayScreenMenu = True

　　acadPref.Display.DisplayScrollBars = False

转载：感谢您对网站平台的认可，以及对我们原创作品以及文章的青睐，非常欢迎各位朋友分享到个人站长或者朋友圈，但转载请说明文章出处。