如何应用VBA设定AutoCAD参数

summerfly2008

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



9 P. k3 }/ u2 m$ `! L* T( H% }PreferencesDisplay (显示参数)

8 H5 f' r( o9 Z& }) @! Z/ ]PreferencesDrafting (草图参数)

PreferencesFiles (文件参数)

PreferencesOpenSave (打开和保存参数)
9 r9 w9 T8 N, t5 f
3 b& z" }7 k6 G" b8 iPreferencesOutput (输出参数)

PreferencesProfile (配置参数)
# {; V! G4 d3 ~
PreferencesSelection (选择参数)
( E& I8 B: W1 @, y( Y7 f7 D( Y- K
# |2 b7 F% C. fPreferencesSystem (系统参数)

PreferencesUser (用户参数)
6 A6 Y6 ]6 N& ~, g6 r* X8 g5 N0 U+ L
6 k8 |+ P1 r" p2 |- {: R4 j% m
% j% N( M3 Q" j
& h& f! O% n  R这些对象可通过Preferences(参数)对象来访问。至于对Preferences对象的访问可使用Application(应用程序)对象中的Preferences属性。示例如下：


访问Preferences(参数)对象

, i& E- W! [+ n" |- t1 h
Dim acadPref as AcadPreferences

$ h. w' o8 n  Z* ]8 s1 ]! RSet acadPref = ThisDrawing.Application.Preferences


然后你可以使用Display、Drafting、Files、OpenSave、Output、Profile、Selection、System和User属性。例如，你可通过CursorSize属性控制十字光标的大小。
; W$ j9 r6 i" |) H9 \) Q9 Z. ~
  P. f1 w- i5 ~
& ]6 a. b2 S1 v* \% d! j  Z设定十字光标为全屏
! K9 c: [2 @3 B/ X
$ |# `+ d2 @$ X2 I; f
& O4 ~% i, g; G' L3 U3 c0 A; A0 l本例设定十字光标为全屏。
3 H  F9 T. w' m
/ L) L4 b2 X5 {& h
acadPref.Display.CursorSize = 100
- R. I; @3 {% G7 n& u& a# X7 O
% J3 T4 O# W6 d8 f/ y) Q& ^1 E
你可以通过应用程序使AutoCAD界面的某些外观启用或禁用。
" ]( C$ _5 M0 i: T. e
6 M0 T# `) R$ ^/ P" Z! A
显示屏幕菜单和滚动条
  Q$ R( c* U0 p. {" W3 Y
本例用DisplayScreenMenu和DisplayScrollBars属性使屏幕菜单可见，使滚动条不可见。

$ y) p1 J; o0 l% R1 S
# [& M1 U5 J" Z  \7 PacadPref.Display.DisplayScreenMenu = True

( Y9 \6 @0 o5 f; f0 q4 g" TacadPref.Display.DisplayScrollBars = False

wyb001122

学了,谢..............................谢