CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 4019|回复: 1

[开发] 如何应用VBA设定AutoCAD参数

[复制链接]
发表于 2006-5-7 21:51 | 显示全部楼层 |阅读模式
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
发表于 2009-7-17 08:14 | 显示全部楼层
学了,谢..............................谢
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-2-19 06:57

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表