|
|
AutoCAD一共有9个属于选项的对象，每一对象描述了选项对话框中的一个选项卡。这些对象提供了访问选项对话框中的所有注册信息项。你可以通过使用在这些对象中的属性来自定义AutoCAD设置。这些对象为 ! I0 R [% q5 V5 n4 T, Y: o
* T# e Y9 \' o, k6 i/ @/ b: T
1 ~& p% X, Q2 Z; ~, z& q/ d* I. i ~2 V) ^5 T e9 i# B
PreferencesDisplay (显示参数) " Q$ ?; ~" s8 z; ~/ V: L1 a; S! |* ?
; P& I0 Y) a/ Y
PreferencesDrafting (草图参数) 2 b1 y9 p- d$ R
% a, P: ~0 }) L& {( gPreferencesFiles (文件参数) ' `- N$ r- V e
. h8 X! q" a3 } v! p. b. }
PreferencesOpenSave (打开和保存参数)
! o1 ?8 Q' } z& A
' H8 L/ z1 t8 l# B, c! V! JPreferencesOutput (输出参数)
! H7 @! X4 u8 T
9 c' ?9 X s0 W2 T% P' KPreferencesProfile (配置参数) 9 p i% }8 s" I2 J6 B7 L
; p, k! [/ e$ v0 F
PreferencesSelection (选择参数) 9 ~3 }; [ ~0 S3 _) D" s4 t
( |2 R& A- X* M& H# o
PreferencesSystem (系统参数)
* P; K S6 r3 I Y; E: y' O# ?
9 d2 Q! h9 ` B. B7 N1 gPreferencesUser (用户参数)
7 w! q0 k6 N# Q' x- I6 K8 f* L5 T/ U9 }: t
* O, R- @3 I% } c0 l
( n) V& J0 m' v( N j+ c- c这些对象可通过Preferences(参数)对象来访问。至于对Preferences对象的访问可使用Application(应用程序)对象中的Preferences属性。示例如下： , P4 a3 s/ U0 U- _* A, _
4 ]2 ^, ]- g& s T
5 y8 s4 G( Y: b! i访问Preferences(参数)对象 9 O0 p% e) f! d+ [0 V- C M
$ L- M# h F8 K- @4 R. e8 Q5 r0 I' A) O" r4 O
Dim acadPref as AcadPreferences
/ N9 H' v# @+ C& V; o1 v+ r/ r3 U" ^6 M8 U8 f+ F' E; v0 Z; ]
Set acadPref = ThisDrawing.Application.Preferences 2 G' M/ [; ?" e% p4 v
% [$ }* I }$ }$ P6 V/ ^) V2 A( ~3 Z& K. K0 Y8 g0 |. A! B
然后你可以使用Display、Drafting、Files、OpenSave、Output、Profile、Selection、System和User属性。例如，你可通过CursorSize属性控制十字光标的大小。
1 x; B) J) |- |) Y. j
* \' ?' C2 V) s1 u; \: @: t( F. `* n
设定十字光标为全屏 - o$ A1 [% b" x$ ~) P1 r
/ @, S& N% x: |
b: V, r+ n0 u# a
本例设定十字光标为全屏。
4 H& B) v+ q% U+ d+ h. b1 j2 J' g; ?% o6 D: D
1 d2 }4 @) u, E
acadPref.Display.CursorSize = 100 , E; Y% L- z$ G( D: b/ q7 }
! G3 v; \- f' z+ o3 j% C
/ _5 J3 f M2 p你可以通过应用程序使AutoCAD界面的某些外观启用或禁用。 8 V! X" C+ K+ f v
# D% Y$ p- L3 I8 P2 `3 ]
4 f. J$ Z7 ~. E! C: a/ r+ `显示屏幕菜单和滚动条
; m/ G% H2 i7 i& k& @# j5 k- d( _1 {- S e) L1 \9 A
本例用DisplayScreenMenu和DisplayScrollBars属性使屏幕菜单可见，使滚动条不可见。
7 t/ K) K, k6 S/ k# x, j( ]6 ]. {6 I# l9 U5 G& `: k" r& z) ~
$ j8 t" s, T! y2 K) }+ j$ y+ PacadPref.Display.DisplayScreenMenu = True : e& b3 q0 x7 k0 o! M" K+ q% W
4 G4 A' _1 q* U" ~acadPref.Display.DisplayScrollBars = False |
|
发表于 2006-5-7 21:51