|
|
AutoCAD一共有9个属于选项的对象，每一对象描述了选项对话框中的一个选项卡。这些对象提供了访问选项对话框中的所有注册信息项。你可以通过使用在这些对象中的属性来自定义AutoCAD设置。这些对象为
* V l- l4 Y0 Z, A5 U7 [( a+ H2 v) p8 l+ E7 m7 w" H0 g* s
0 A; Z" M i# A
D4 a5 I; H$ O' F2 X1 ~
PreferencesDisplay (显示参数) ' t5 [& `, u+ K) N. v7 u3 P
" Y( H# m2 g; i6 k" |
PreferencesDrafting (草图参数)
/ j! c4 x @6 y% M
5 u" K. y. E8 v( }: L( }! k% RPreferencesFiles (文件参数)
. |- `- A4 {7 X$ Z
$ z# e! Z# s1 } c/ q- ~PreferencesOpenSave (打开和保存参数)
( C. v& r7 `+ g! o- ~9 m' p- P+ k4 }1 X8 ?" z8 n
PreferencesOutput (输出参数)
9 x3 y2 P$ n) j: N/ H/ i0 q' i; k: i4 O' ^% m
PreferencesProfile (配置参数)
6 P: R2 x1 x8 ~! c! s2 k
1 m N" `/ m y5 Y1 `% S% N8 nPreferencesSelection (选择参数)
; u5 C( W; W4 _" H2 K2 c
0 R' e. g9 w# }7 U2 f7 d, j7 w/ GPreferencesSystem (系统参数)
9 U5 e- i7 x; o& D
: G6 i) T7 J- G: J4 C6 w! \3 wPreferencesUser (用户参数) s/ H) y( D# N
# }$ N5 y) L2 ]3 Q$ Z9 Q8 h8 Q" M7 V5 @
+ I* j3 S& {2 N8 }) e }' l这些对象可通过Preferences(参数)对象来访问。至于对Preferences对象的访问可使用Application(应用程序)对象中的Preferences属性。示例如下： ( V" ]1 M- u* D: V# n6 j9 P1 f& M% o
& M& ] e+ `* {. G% D; p
# i" S) Z# H! Y& f访问Preferences(参数)对象
" q$ a1 u( S( g; N
" \. [. g4 V0 e1 d
* _' U7 ]# \" O( g' _Dim acadPref as AcadPreferences # ~1 ?4 o% U) i$ X. z
9 \0 g) G* ]+ S& ?
Set acadPref = ThisDrawing.Application.Preferences
1 y4 V, y, o2 A' c7 r& V' `% E( t& ^$ }# i+ i: m
" d, c" W& }5 d1 @! M2 N
然后你可以使用Display、Drafting、Files、OpenSave、Output、Profile、Selection、System和User属性。例如，你可通过CursorSize属性控制十字光标的大小。
$ Y2 \/ x4 @& N' k6 U, {" ~7 k8 w3 O' [- `3 J/ @9 {# c
+ T: R. n+ c# d# l3 n
设定十字光标为全屏
. \, ]6 C( ]& D' z1 G/ B
3 e' l" ^8 [5 P8 x$ L" u$ c; W' ^; X7 W( n7 b! |& i! C4 o1 f
本例设定十字光标为全屏。
0 c3 g/ d: M# q U' Q, I
7 ^3 {. ?$ N, H1 t
( Z# u4 ?0 d8 z H4 XacadPref.Display.CursorSize = 100
6 L! B" C4 B3 E* l4 L$ Z9 o8 |0 A, g5 `' I# E+ X
" ^6 Z' Y/ x1 _$ L! }5 i
你可以通过应用程序使AutoCAD界面的某些外观启用或禁用。
* H$ A, C+ ]# I5 U0 H, u. u2 T5 \+ h( j6 C9 g f
% f/ c# v0 Y, s3 j1 ?
显示屏幕菜单和滚动条 1 R. W: n3 J* {5 O; V
5 K3 Y( {# c( P% j! ]& Z本例用DisplayScreenMenu和DisplayScrollBars属性使屏幕菜单可见，使滚动条不可见。
( M# C, V* U! G( I1 f4 K
9 L! \) p( Q W/ `0 f
: _- d) d" i; p* BacadPref.Display.DisplayScreenMenu = True " e' |) z; a- v6 @$ w( b
8 B# U2 l7 v" T r
acadPref.Display.DisplayScrollBars = False |
|
发表于 2006-5-7 21:51