|
|
AutoCAD一共有9个属于选项的对象，每一对象描述了选项对话框中的一个选项卡。这些对象提供了访问选项对话框中的所有注册信息项。你可以通过使用在这些对象中的属性来自定义AutoCAD设置。这些对象为 0 k6 K' V' q" w. f/ V4 @
" r+ D* B/ B* I1 l! D) R5 j1 r9 t' L. |( a1 O q+ {' i: |
6 j2 B6 k9 ~& B# }3 M) `! b8 `PreferencesDisplay (显示参数) 6 w! p/ g2 f! L: x1 H
0 i3 w' e4 X7 Q* b; }' o* H% M: J
PreferencesDrafting (草图参数)
b# N. C& e3 {+ a4 w8 ^8 X' w
8 z8 r9 R. b% ~! |PreferencesFiles (文件参数) 3 E. x y/ h: Y# Z8 E
" m4 C) I' M8 m
PreferencesOpenSave (打开和保存参数)
$ {( d$ |3 g' U, P1 _( Q7 P- z" w7 b& R% ]3 b* [( k
PreferencesOutput (输出参数) & O) f# a* t/ g& l X1 U
8 K) t0 e) k) Y; d! {7 O. w
PreferencesProfile (配置参数)
$ ^ S0 E+ A$ @: n- C
" f: o4 z9 d' d' X" uPreferencesSelection (选择参数)
# j9 V2 P8 B0 e/ l' W" d* l
; k0 n, r" Y7 p( Q" J$ m/ XPreferencesSystem (系统参数)
$ [# a+ }$ A0 n6 s& D; B$ ^ ?6 i
0 C5 F" {$ E, v2 }PreferencesUser (用户参数)
$ k& n, {& {% A: [6 v5 F7 k/ P' |7 t% v( R
6 T# T# w* @5 p$ P. ]: h2 e+ o5 c0 @! }8 e/ ?6 [3 j
这些对象可通过Preferences(参数)对象来访问。至于对Preferences对象的访问可使用Application(应用程序)对象中的Preferences属性。示例如下： / ]. ?: K* I( m9 h o4 M
& @' h# r$ Z8 K$ t4 P. d. ^
, \$ B( u% f( U7 ^访问Preferences(参数)对象 ) Y( w1 ?0 x F$ L7 a
, u- k- L# |3 q" x
% Z" s6 S$ o" g7 F6 V" }, Q! \7 d8 {4 }Dim acadPref as AcadPreferences , t3 ~, h7 l) T9 ?" t& l/ T, |; _* @/ V
$ v( A0 T) {. R! T# J" o- z; n
Set acadPref = ThisDrawing.Application.Preferences
1 `9 S+ ~0 K. R- k, Y' ]2 q0 @+ k. x/ H$ i, R: W$ O! m: z
, P# l" ~& ^5 c$ e7 L# F然后你可以使用Display、Drafting、Files、OpenSave、Output、Profile、Selection、System和User属性。例如，你可通过CursorSize属性控制十字光标的大小。
: L8 F! U- L+ {5 ]9 ]% \- T- K7 W/ O4 y5 o, I; _( H5 B
3 N `5 R' r1 A& m, F7 k
设定十字光标为全屏
8 c: @! ]3 f- C" K9 J% J& @5 J- v$ R) @5 y4 C
& G3 L2 D: M, p+ s( {4 | D本例设定十字光标为全屏。
4 v* m6 p: N3 o9 E" r5 V3 R C+ H4 W6 H' J
M: ^! A/ k0 A% F2 d2 g+ u
acadPref.Display.CursorSize = 100
5 ~6 ?# W1 l% x. ^6 q+ }) }0 p1 d& L) F8 N$ H0 Z
) h- I1 t0 f7 n4 G你可以通过应用程序使AutoCAD界面的某些外观启用或禁用。 / p$ A( @# r' N3 ]3 }
' q& ^" d+ p8 `+ `$ n2 }
+ f0 J0 ?4 g* W* O2 o- W显示屏幕菜单和滚动条
8 K. c1 @6 d3 y; Y1 s/ A
. N7 }1 M: k: _; s本例用DisplayScreenMenu和DisplayScrollBars属性使屏幕菜单可见，使滚动条不可见。
: d8 M0 z3 I k+ {2 e# G* @; e( _$ m
9 y9 b w' o# N# K/ ^* b0 i
acadPref.Display.DisplayScreenMenu = True
9 e" R. y% w) w3 Y
: w; t' u: Q/ N9 l( VacadPref.Display.DisplayScrollBars = False |
|
发表于 2006-5-7 21:51