|
|
AutoCAD一共有9个属于选项的对象，每一对象描述了选项对话框中的一个选项卡。这些对象提供了访问选项对话框中的所有注册信息项。你可以通过使用在这些对象中的属性来自定义AutoCAD设置。这些对象为 , d. t0 ~7 v6 r/ e
3 x8 A7 @# O/ |! {5 |- ^" J4 H. ~9 j$ I7 Y0 q6 I' p2 [3 R+ s
6 ~, B% n4 K& {1 UPreferencesDisplay (显示参数) ' W! C9 g: @9 P2 N
6 \5 `1 a1 N/ D3 f! IPreferencesDrafting (草图参数) 7 ?1 ~2 _* S" b1 _
. h+ c$ w; h) b( b8 Z7 `# g
PreferencesFiles (文件参数)
) U$ |; b! L. O' J( \% n
7 @. z" L/ p, ~2 x* Q$ APreferencesOpenSave (打开和保存参数)
% x9 u% ]5 t$ ~2 A* h! {- B) x5 I* C6 `
PreferencesOutput (输出参数)
; o7 f& n& D3 n, [& u6 d# J' X* p E" V
PreferencesProfile (配置参数)
# s, z4 x$ N. q K7 i* t' T; k
7 i3 w" w( a5 s) v% @( H6 dPreferencesSelection (选择参数)
3 p) [1 {+ `1 `% A" Q5 G" Y8 m. J) I
PreferencesSystem (系统参数) 8 `. T0 k* K" g p
|- R3 x3 ?: \- n! g- p) V
PreferencesUser (用户参数)
0 N6 S) q% J0 j% y* E) z3 h* @" N- N
3 C( @5 f! U2 Y, v: I
) H' F$ q3 x" P3 k9 u+ v+ K2 }这些对象可通过Preferences(参数)对象来访问。至于对Preferences对象的访问可使用Application(应用程序)对象中的Preferences属性。示例如下： 3 J. n* j9 V7 ?; ]' A* j2 T
1 o: s: M3 v: g8 R$ e
7 A9 k: k B" z$ r$ v& W* A% ]) I访问Preferences(参数)对象
) w2 @$ o6 P$ o0 D6 \
& b, l5 K3 x7 ?
7 ]4 E8 c/ J, z5 m( X5 |1 f1 YDim acadPref as AcadPreferences 3 p* S5 ~7 G) k
; `: n+ _3 P( G- n a# Z
Set acadPref = ThisDrawing.Application.Preferences
4 q0 `. |7 D. `7 M/ h8 U2 Z% H7 @
9 b9 w/ ~& y2 j5 M8 u( H1 s7 ^1 j! S7 v
然后你可以使用Display、Drafting、Files、OpenSave、Output、Profile、Selection、System和User属性。例如，你可通过CursorSize属性控制十字光标的大小。 " a! e1 Q; Z+ h# U5 ]" e
2 ~4 x# N0 G- o4 _
/ i* w+ X! t0 ]- ?- {: \设定十字光标为全屏 6 z: @8 ~" W6 ^' H5 J
7 T5 V; y% d: G# `( R/ S
3 P& z& H9 y# _# s本例设定十字光标为全屏。
5 \8 E6 ?% ^# ]$ D) h
+ a. a: e- {$ t/ [
2 c3 g. `" O2 q* p1 h. q; ?1 t& r1 W' lacadPref.Display.CursorSize = 100
4 z. Z$ T2 ?* U& \% }+ Q/ T* {( e/ D+ @
# S" q9 O: ~0 M, g
你可以通过应用程序使AutoCAD界面的某些外观启用或禁用。
6 U! @, f4 K+ |" s! z8 x1 M" I& Z+ w: J8 N/ }
- w4 L) I2 r2 w9 ^显示屏幕菜单和滚动条 7 d2 d2 W/ r# r+ I
9 g; @1 a; O" U3 S2 N' S; W" P
本例用DisplayScreenMenu和DisplayScrollBars属性使屏幕菜单可见，使滚动条不可见。
9 k( N7 `0 K9 L
% n$ M) c$ v4 A' t% w# T* q* j9 c" H
acadPref.Display.DisplayScreenMenu = True % ?% `, i8 N4 I) d9 U
8 P% Q+ W, o( ^4 L$ F# |acadPref.Display.DisplayScrollBars = False |
|
发表于 2006-5-7 21:51