|
|
AutoCAD一共有9个属于选项的对象，每一对象描述了选项对话框中的一个选项卡。这些对象提供了访问选项对话框中的所有注册信息项。你可以通过使用在这些对象中的属性来自定义AutoCAD设置。这些对象为 " Q% c& u: e; e' r) G
! i# @, P7 M2 ?0 ~1 }: d" }7 H; \" t' T4 j. y+ L
. k1 M4 `6 n; B' r. M
PreferencesDisplay (显示参数) + G, V# K$ N3 p2 j) ?
5 ?- v/ A6 {( B. d0 j) i) M
PreferencesDrafting (草图参数)
. {* u! n8 R2 f$ C$ S4 p3 F: `4 J9 e
PreferencesFiles (文件参数) ( N/ f+ o" P: A2 n' Z+ W
3 z' c- n$ H( d6 ~( i9 K, S Q
PreferencesOpenSave (打开和保存参数)
: L. m/ A- Z* I' y) u" u x- q
+ ?# I; K( b) Y, i: d V0 jPreferencesOutput (输出参数) : Y8 c; Q& |$ ~" q! z
$ m8 S& R/ V" d1 b
PreferencesProfile (配置参数) 3 Q* }9 x5 n' L5 U* n4 C
- |2 H- q9 t, `2 X. D* Y
PreferencesSelection (选择参数)
; ~/ y) ^, f9 g; Q( s, z( [' [/ N- C* b& p) Y8 b- x" ]% v$ Z
PreferencesSystem (系统参数) 9 c0 z6 M% _' O; i1 p7 g
4 D9 y, A4 l: Z, r1 I" [4 y$ t" MPreferencesUser (用户参数) ! {: x z- K$ |3 L
. s1 H# w. g j: u' u3 t w7 u. B2 E+ m
$ ~1 R" i$ r+ p" P/ n f
8 L' {6 Z' a+ w+ W7 b' k这些对象可通过Preferences(参数)对象来访问。至于对Preferences对象的访问可使用Application(应用程序)对象中的Preferences属性。示例如下：
4 C6 n6 W% m8 Y9 o5 q; u9 n! U
7 b* U" U$ Z b6 }/ o5 q+ S2 q# j7 \1 Y
访问Preferences(参数)对象
& h7 K0 G% u; f( u, ]. C5 t& \) |9 x( v; c" u
9 H4 u0 @* G, F' d4 Z; E4 ^! {Dim acadPref as AcadPreferences & i" M. a+ r; {, ?5 k# j- `
: N, g0 F& o/ l; G: o0 v
Set acadPref = ThisDrawing.Application.Preferences
" k( q$ D6 f$ }- t; h. h( V; W9 k& P0 G: O, D
8 o p1 g9 g& _' N
然后你可以使用Display、Drafting、Files、OpenSave、Output、Profile、Selection、System和User属性。例如，你可通过CursorSize属性控制十字光标的大小。 ' ]- J ]' r6 L3 d) m
, ]2 N& l8 l# w% m5 l( O/ C v
设定十字光标为全屏
. D+ w d% N+ m
/ q% N5 Z' F, Z/ j8 J
" J' b6 C. p- {: \/ r4 {" w$ d本例设定十字光标为全屏。 8 L/ t6 |, u( Q, H) L/ {
7 v& C& u& R c! q! g* {& x9 ]) y: C4 _
acadPref.Display.CursorSize = 100 2 s" X: y8 Y- L( M+ P
, ~% q) i- x$ w( \# W" \6 T
! p0 N9 E6 B2 S你可以通过应用程序使AutoCAD界面的某些外观启用或禁用。 $ n! L8 f) R0 M( t- i8 O: o+ v
0 k" R- U+ d; l( R. e7 T* m% h
: o) ]4 i+ v7 K显示屏幕菜单和滚动条 & G: ^1 n, S7 W" K2 I8 ~& m
* a6 `- u: H' v: T/ s7 _本例用DisplayScreenMenu和DisplayScrollBars属性使屏幕菜单可见，使滚动条不可见。 # p! Y+ F3 p% e) f/ U8 w& [
$ T# l' |. P; I5 ?! D4 h
# k- h8 S9 U) J4 PacadPref.Display.DisplayScreenMenu = True
2 D! I1 h5 y$ u7 i& V
9 h' O/ @5 X" k1 P7 J' gacadPref.Display.DisplayScrollBars = False |
|
发表于 2006-5-7 21:51