|
|
AutoCAD一共有9个属于选项的对象，每一对象描述了选项对话框中的一个选项卡。这些对象提供了访问选项对话框中的所有注册信息项。你可以通过使用在这些对象中的属性来自定义AutoCAD设置。这些对象为
9 o% d0 _) n% J& y, ~5 e3 s+ x' f( u Y2 i
) b& {" |' B: s3 `5 g
1 V1 A8 M% R4 i q
PreferencesDisplay (显示参数) - s, z# V3 {9 ~( @& S
L1 x' d! J# `% V- dPreferencesDrafting (草图参数)
( @ d, _ N8 h/ H% t1 E+ X$ I+ t+ W# I( [$ G5 P
PreferencesFiles (文件参数)
. R4 R- E4 F! V# R+ r9 W" k, F% w: ~# @7 Q- c
PreferencesOpenSave (打开和保存参数)
5 t# E: i7 A! |) \ T4 C; n& X O4 s0 ?1 A
PreferencesOutput (输出参数)
3 S, G# X; Y, @9 C0 O1 \8 B
, o7 A, Q% n8 B4 B6 k0 HPreferencesProfile (配置参数)
0 S' d# `& Y' C1 f$ c& o4 b' n7 M" F2 H1 d- }1 S& }
PreferencesSelection (选择参数)
1 J/ t7 W# l! O/ p7 K% J
% @+ L- m0 _3 X a; u f$ pPreferencesSystem (系统参数)
# I% u/ Q( {1 {; }( Q! ^6 _
& [& {1 M1 I) ]; uPreferencesUser (用户参数)
5 @+ A8 o9 i9 b. s" F y1 S( L
! a* f5 o Q0 c$ T$ o9 K0 d6 B2 N9 l/ D
' [- Q. h" O" ?1 q. Y: h: }这些对象可通过Preferences(参数)对象来访问。至于对Preferences对象的访问可使用Application(应用程序)对象中的Preferences属性。示例如下： ! X# \ R0 \; z. B( m# u# R- i
* t7 E6 J5 v7 I1 G" W5 h4 x! P* H/ @+ O% _8 z) `, i
访问Preferences(参数)对象
$ M# h: G) F3 U5 M8 [5 i g2 _9 D4 D3 a8 \1 o [% b* ]
: @" @/ P" ^' x# t* |2 f$ U7 zDim acadPref as AcadPreferences
2 m" ]5 @$ j- Y" j0 \ W. w
) H7 O/ Z5 }2 A% n, m! d) pSet acadPref = ThisDrawing.Application.Preferences
' t1 r8 H- y- ~3 n- G3 N) h U
$ ?# { x! X, I( I) Q# W+ B
, y0 F/ |: c. x0 N然后你可以使用Display、Drafting、Files、OpenSave、Output、Profile、Selection、System和User属性。例如，你可通过CursorSize属性控制十字光标的大小。 $ e) ], ^4 r+ A1 i) c2 _
- _. O0 K& t) a+ n S4 h u, e# K. p
- l! v# b* n3 [2 F* ^( E设定十字光标为全屏
( U" G5 w M. X/ I% U1 D8 ~' C8 O! V7 c) S
. W- Y9 D1 Y$ X本例设定十字光标为全屏。
# \$ c0 d* ]; f2 d- L x) b
9 n4 `/ ~3 S4 m% a( p7 R) j1 K) B" D0 s9 m8 S
acadPref.Display.CursorSize = 100 / \0 }8 m/ B2 n0 t7 I
4 V" p9 O, z% r; Y0 m/ w" K
& _- {9 W; n3 J9 R7 ]! X" o% w+ C你可以通过应用程序使AutoCAD界面的某些外观启用或禁用。
0 ?$ _9 t2 B7 |6 m3 J( C8 R& r( | S! p; t1 Y/ Q f
/ K; V6 f/ M; k3 j, q
显示屏幕菜单和滚动条
- _( d& O3 F1 o$ y% H* c
. ?0 s% f. _- z { g本例用DisplayScreenMenu和DisplayScrollBars属性使屏幕菜单可见，使滚动条不可见。
. [% R( ?0 i0 E7 k" f% j2 A. x8 x2 T( _. h* R7 |2 d! D! p! ~6 r
- a+ z+ f5 G9 J5 K m; c, N" ?* ~acadPref.Display.DisplayScreenMenu = True ! N+ h4 f* s$ O# P' a5 C% b
8 M) b, t% M7 y' m0 u* IacadPref.Display.DisplayScrollBars = False |
|
发表于 2006-5-7 21:51