|
|
AutoCAD一共有9个属于选项的对象，每一对象描述了选项对话框中的一个选项卡。这些对象提供了访问选项对话框中的所有注册信息项。你可以通过使用在这些对象中的属性来自定义AutoCAD设置。这些对象为
$ \- I8 z( ]2 j/ x4 `
5 q+ g9 g. A# }, s
& W# P9 \, f( Q; I w i8 Z$ N. \, ] E8 _% O
PreferencesDisplay (显示参数) " r( \2 v- l* m0 Z9 n" C8 p' O# |3 X
2 n: k0 p% t8 |5 q8 `PreferencesDrafting (草图参数)
6 N8 f! c3 j" @* m0 [
9 t: u% \! Q1 s2 dPreferencesFiles (文件参数) " r/ X C6 p. B3 Q2 a
+ y3 z; u- y% [( d! T8 q+ KPreferencesOpenSave (打开和保存参数) % f+ P3 t# N! H4 r: \1 K( h+ ? j1 i# h
9 b9 C3 Y2 k+ R6 j0 y1 d- B
PreferencesOutput (输出参数) 5 n: R% l$ j1 A8 J. {6 a+ M
/ l$ K- h9 r# G2 h$ J9 j6 M
PreferencesProfile (配置参数) a4 o c+ A* [8 j
8 H: }5 _8 c+ H- Y5 L
PreferencesSelection (选择参数)
) {) ^( E. x, H5 D+ }' \+ ~; c$ M1 }) t! O
PreferencesSystem (系统参数)
; r1 X4 P* i3 ]2 W3 \8 M+ S9 S3 B9 D) W
PreferencesUser (用户参数) 4 W( d# c2 `8 r; Y( }
* w* G, V0 E% X+ M8 W. J
. I) Y% ]" y7 J0 ^& {+ l+ E% t$ l/ [/ ~
这些对象可通过Preferences(参数)对象来访问。至于对Preferences对象的访问可使用Application(应用程序)对象中的Preferences属性。示例如下：
$ l# m' w7 [& |/ I; \
9 R( I0 B2 u' Z$ ~6 x
m; f6 B, _+ a+ V访问Preferences(参数)对象
9 J, j! x- `" A4 p" y; H- O* }/ `& x- i2 X% D( v6 h S9 x
8 j+ B- Y, e. s- `/ C0 UDim acadPref as AcadPreferences
* M; m2 \6 t% n* E! m! v8 X, ~# B1 e, D& }1 e
Set acadPref = ThisDrawing.Application.Preferences
* R0 B5 p9 [5 v9 o2 L
" S* \. {7 U( v- ~; Q& J% g: d) `$ _* `+ J1 X/ `2 G* B3 c
然后你可以使用Display、Drafting、Files、OpenSave、Output、Profile、Selection、System和User属性。例如，你可通过CursorSize属性控制十字光标的大小。 , w) o& U+ G5 J( X" |' l
$ x" p; o! o, e8 n1 _ x8 i
7 y. \* \0 n) D4 ?. L5 L设定十字光标为全屏
3 s5 |8 K8 k N. _% `2 R. ^) u' e8 l, C0 H- t" \: h; v( X9 g
% n) K; S) s+ }- y
本例设定十字光标为全屏。 * F9 C a- {, ~7 L
/ @! r) h6 L+ a' Z) I
/ }2 E7 V, ]; o# y- _acadPref.Display.CursorSize = 100
( V6 m; F7 v$ @
' l, |1 N2 [5 N) s+ |# O8 `4 W& e+ n0 A" l, F3 {6 W9 B
你可以通过应用程序使AutoCAD界面的某些外观启用或禁用。 " V" C( s1 D) C$ K
( M/ D1 S8 q) u- }8 I' W5 A
7 y+ C+ P. k5 m/ w0 n, V显示屏幕菜单和滚动条 : X d4 E9 s6 e' ^
$ p/ E5 |, u- g9 U( J/ H
本例用DisplayScreenMenu和DisplayScrollBars属性使屏幕菜单可见，使滚动条不可见。
# X, T( w! c3 Q$ }2 ?2 |
7 I: p0 v) U$ g. b, p* s
4 b8 \# K$ J+ x* s' k+ {acadPref.Display.DisplayScreenMenu = True , [" e0 D" Z/ n: X M d- p
M! y' {/ |+ \* H9 H1 z
acadPref.Display.DisplayScrollBars = False |
|
发表于 2006-5-7 21:51