[VBA]VBA新建标注子样式后对齐方式不更新！！！！！

bingdianfeishui · 发表于 2011-5-18 23:16:37

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

编了个函数新建标注样式，和直径、半径、角度子样式。各子样式只是修改了文字对齐方式

在标注样式设置对话框里能看见子样式已经新建成功了，如图所示。

但是对齐方式已经显示为ISO了，但半径标注依然显示的是尺寸线外也与尺寸线对其。需要再单击一下“ISO标准”，标注文字才会横过来。在新建标注子样式后用了Regen方法也不行。

附上源码，求高手解答。

, n+ D5 q) h/ \' i
Public Function myDimStyleGB()
3 q8 d" v4 m5 T' @. S
On Error Resume Next
8 t5 \6 V/ P- d q
Call AddHZ% ?+ g3 Z' u" o, w. N
Dim dimStyle As AcadDimStyle8 l6 ?' Q8 m$ {2 r h( w* V
Dim DimRa As AcadDimStyle0 s1 M: D; J8 n! Y" c
Dim DimAn As AcadDimStyle
5 |; {) Y9 O `
Dim DimDi As AcadDimStyle( w8 b8 l5 d+ `
1 r4 [3 f" L% D
Set dimStyle = ThisDrawing.DimStyles.Add("myDimStyle"); w7 ?5 V: `& f3 o
Set DimRa = ThisDrawing.DimStyles.Add("myDimStyle$4")
" s7 @3 I. i8 ]8 S# G
Set DimAn = ThisDrawing.DimStyles.Add("myDimStyle$2")/ v' D4 ^1 ?4 P, `* ^$ L
Set DimDi = ThisDrawing.DimStyles.Add("myDimStyle$3")/ |& B3 G% C# u+ T0 x
4 x, S2 S1 I2 |7 ^! o C' ^
ThisDrawing.ActiveDimStyle = dimStyle '激活该标注样式) I/ g" P y1 @5 W
Dim dDimLFac As Double: dDimLFac = 1
9 G& s. K$ x$ F$ _2 Z
' dDimLFac = ThisDrawing.Utility.GetReal("请输入标注比例:<" & dDimLFac & ">")- P5 m) ]9 b, l5 {: [. t7 S
With ThisDrawing* o! j8 U) @; J- Q3 y, N
'第一组定义全局和线性比例因子5 k) S* ~' U: l: B ]) ^/ j
.SetVariable "DimScale", 1 '设置全局比例因子
- P# y7 V" g3 R2 T! H4 p* l
.SetVariable "DimLFac", dDimLFac '线性比例因子. '1'=1:1, '2'=2:1,'.5'=1:2等 G- w0 ^( Z. F: d% y, K) s- H
'定义典型的标注特性& V% W, l m p0 z
.SetVariable "DimADec", 0 '控制角度标注的显示精确位数
K5 ?9 b9 l, C7 O1 s
.SetVariable "DimAssoc", 2 '控制标注对象的关联性2 B. T/ f/ [ r' p7 H
'实际上该系统变量由图形控制
" t" D* b5 ]4 r- s; D5 Z) v) ^
.SetVariable "DimASz", 2.5 '控制尺寸线、引线箭头的大小。并控制钩线的大小
3 J# ^: T1 Z2 d5 Q6 f
.SetVariable "DimAtFit", 3 '当尺寸界线的空间不足以同时放下标注文字和箭头时,确定这两者的排列方式
; Z0 a- Q6 C; p# b1 R# g4 t
'0 将文字和箭头均放置于尺寸界线之外7 ]9 V/ [- A+ j7 t: D( b A. T: K6 t
'1 先移动箭头，然后移动文字
& X1 D. J; L8 q3 {. I9 ^9 E
'2 先移动文字，然后移动箭头7 K @$ h9 S3 m2 w. S+ |# X7 z) {/ i
'3 移动文字和箭头中较合适的一个; b/ G7 D/ `! Z7 B
.SetVariable "DimAUnit", 0 '设置角度标注的单位格式
4 M7 ^; G6 Z- G" d
'0 十进制度数
: g( P; F0 D/ @: T- {" `
.SetVariable "DimAZin", 0 '对角度标注作消零处理. X$ E: H, M( D7 A# p1 {" W9 W
'0 显示所有前导零和后续零
3 ]+ a8 @( t; o4 O# Y6 ~
.SetVariable "DimBlk", "" '设置尺寸线或引线末端显示的箭头块
1 e3 {7 F) l/ ?8 q
'"" 实心闭合
+ ~) A' w' ] D& e7 ]( g$ C
.SetVariable "DimBlk1", "" '当 DIMSAH 系统变量打开时，设置尺寸线第一个端点的箭头
! j' r5 X# e7 i( p! X
.SetVariable "DimBlk2", "" '当 DIMSAH 系统变量打开时，设置尺寸线第二个端点的箭头- F% c/ G$ S6 h& |
.SetVariable "DimClrD", acByLayer '为尺寸线、箭头和标注引线指定颜色# }, q+ g" j3 i3 Q( x
.SetVariable "DimClrE", acByLayer '为尺寸界线指定颜色。此颜色可以是任意有效的颜色编号
* q8 \# G& _7 X; g5 ]
.SetVariable "DimClrT", acGreen '为标注文字指定颜色3 S7 Z% E$ ?( Z! X* p3 W
.SetVariable "DimDec", 2 '设置标注主单位显示的小数位位数
' t: Y9 N! Q F3 }: B4 j2 @/ T4 S
.SetVariable "DimExe", 1.25 '指定尺寸界线超出尺寸线的距离
, T5 A6 @0 B6 x: o% T: j5 K; w& f) K
.SetVariable "DimExO", 2 '指定尺寸界线偏移原点的距离
# \/ g* G- e% ]% n
.SetVariable "DimFrac", 0 '在 DIMLUNIT 系统变量设置为 4（建筑）或 5（分数）时设置分数格式. R* Y# U) V E( `' a8 X6 e% V
.SetVariable "DimGap", 0.625 '当尺寸线分成段以在两段之间放置标注文字时，设置标注文字周围的距离
% j5 W2 q9 F' X* v' i3 t7 }
.SetVariable "DimJust", 0 '控制标注文字的水平位置
) | Z0 }+ I. q( E
'0 将文字置于尺寸线之上，并在尺寸界线之间置中对正
, B4 z& n3 X8 m! Y1 q% ~ {
'1 紧邻第一条尺寸界线放置标注文字$ L3 `1 N' P! h
'2 紧邻第二条尺寸界线放置标注文字. N; d9 s. v8 e2 a/ X
'3 将标注文字放在第一条尺寸界线以上，并与之对齐 E9 t# Z( r2 i N3 [& h% C Z
'4 将标注文字放在第二条尺寸界线以上，并与之对齐
/ d2 C9 J* i3 K. v8 d0 X. c
.SetVariable "DimLwd", acLnWtByLayer '指定尺寸线的线宽
3 m7 E3 U3 G4 s
.SetVariable "DimLwe", acLnWtByLayer '指定尺寸界线的线宽1 e/ r! \" i- n7 j+ ]. y) Z
.SetVariable "DimPost", "" '指定标注测量值的文字前缀或后缀（或者两者都指定）
+ U. N. |3 `0 n2 B4 f. V( r E, T
.SetVariable "DimRnd", 0 '将所有标注距离舍入到指定值
7 x1 ?9 e6 f" c& J9 I, h& W: b1 f
.SetVariable "DimSAh", 0 '控制尺寸线箭头块的显示+ O F* \" G6 q/ z& w+ @
.SetVariable "DimSD1", 0 '控制是否禁止显示第一条尺寸线: u8 q6 `3 f+ f# K$ Z5 C I
.SetVariable "DimSD2", 0 '控制是否禁止显示第二条尺寸线
8 `, o/ ?- ?1 E- ~& Z2 E" P
.SetVariable "DimSE1", 0 '控制是否禁止显示第一条尺寸界线
: y- V4 \9 L; E5 N
.SetVariable "DimSE2", 0 '控制是否禁止显示第二条尺寸界线* J0 d* c/ c4 n$ K- l& ]/ u
.SetVariable "DimSOXD", 0 '控制是否允许尺寸线绘制到尺寸界线之外9 w" ?, ?+ v9 I0 H0 p& ^ l* M2 W
.SetVariable "DimTAD", 1 '控制文字相对尺寸线的垂直位置% C0 r8 x& r( C& T0 k4 g2 F3 s" y
'0 标注文字在尺寸界线之间居中放置, W2 C; }: F' k. x
'1 除非尺寸线不是水平放置的或者尺寸界线内的文字被强制为水平放置& W" u/ b' k3 P; m/ p
'(DIMTIH = 1)，否则就将标注文字放置在尺寸线的上方。标注文字最底部
$ `" q C. L2 r4 a% `
'基线到尺寸线的距离值就是系统变量DIMGAP 的当前值。8 M* u' w3 p) t2 q, @# B( G7 y
' .SetVariable "DimTIH", 0 '控制所有标注类型（坐标标注除外）的标注文字在尺寸界线内水平对齐 h' y7 v7 Y! R, t
'0 或关将文字与尺寸线对齐" c/ E3 _/ E& Z- ^* U5 f8 ?) B
'1 或开将文字水平放置/ ?- p! _. n! Q9 t6 a5 y
.SetVariable "DimTIX", 0 '在尺寸界线之间绘制文字 x5 a3 L3 r! y) G& @6 w
'0 或关结果随标注类型的不同而不同。对于线性和角度标注，AutoCAD
2 C( r1 a; N2 k/ c
'将文字放置到尺寸界线之间（如果有足够的空间）。对于不适于放入圆
2 p0 m U' m$ ]0 I
'或圆弧中的半径标注和直径标注，DIMTIX 无效并总是强制将文字放到圆或圆弧之外
' ]- L' c" E4 f/ o: b
'1 或开将标注文字绘制在尺寸界线之间，即使 AutoCAD 通常将这些文字放置于尺寸界线之外。+ |3 n" W4 Q9 J. X
.SetVariable "DimTMOVE", 0 '设置标注文字的移动规则2 ?/ O' `' [% D+ ^- c
'0 尺寸线和标注文字一起移动
% I. ?6 \8 @0 \- V6 k' S
'1 在移动标注文字时添加一条引线
3 }. s. r/ Z6 O# A0 Q
'2 允许标注文字自由移动而不用添加引线! v u! V- @- k) P. e% A) J
.SetVariable "DimTOFL", 1 '控制是否将尺寸线绘制在尺寸界线之间（即使文字放置在尺寸界线之外）
1 n, O. ]7 q& d/ r4 }5 V! r/ g" U
' .SetVariable "DimTOH", 0 '控制标注文字在尺寸界线外水平对齐 _2 a; @" X6 Q/ C* a
.SetVariable "DimTSz", 0 '指定线性标注、半径标注以及直径标注中替代箭头的小斜线尺寸
8 h0 Z9 ?6 m: c, C' a
.SetVariable "DimTVP", 0 '控制尺寸线上方或下方标注文字的垂直位置! \4 O: _2 l e8 ^( l
.SetVariable "DimTxSty", "HZ" '指定标注的文字样式
) C% V' J2 d$ t4 ]7 j' U5 C7 t% y
.SetVariable "DimTxt", 3.5 '指定标注文字的高度，除非当前文字样式具有固定的高度: M- ~! w4 l) P5 d
.SetVariable "DimUPT", 0 '控制用户定位文字的选项; [4 q4 x9 l$ H
.SetVariable "DimZIn", 8 '控制是否对主单位值作消零处理
, b- u+ T% L1 [! h3 |
'
$ K' ^. M. |: N1 l. E) w( S2 T
'定义换算单位的特性9 `6 ^& l9 R$ T) _
.SetVariable "DimAlt", 0 '控制标注中换算单位的显示
' Q- o: Y: A" T4 w
.SetVariable "DimAltD", 4 '控制换算单位中小数位的位数! c+ x q! G0 h1 l5 u" ^) l
.SetVariable "DimAltF", 25.4 '控制换算单位乘数0 o' X% o/ _6 R0 y: }) t
.SetVariable "DimAltRnd", 0 '舍入换算标注单位
5 V/ s8 f, v! S
.SetVariable "DimAltTD", 4 '设置标注换算单位公差值小数位的位数) R# y+ F0 Q1 N$ i* R7 W' B
.SetVariable "DimAltTZ", 8 '控制是否对公差值作消零处理
' i6 N8 ^! s7 u- e& y
.SetVariable "DimAltU", 2 '为所有标注样式族（角度标注除外）换算单位设置单位格式
: v9 B: E% H) B5 E, d2 {* z# B# X
.SetVariable "DimAltZ", 0 '控制是否对换算单位标注值作消零处理
. `- i, \* C' K. X6 v3 L
.SetVariable "DimAPost", "" '为所有标注类型（角度标注除外）的换算标注测量值指定文字前缀或后缀（或两者都指定）
$ y3 O+ h. l$ L& T b% C
End With; r) t2 ^9 G* }7 J! |( Q
'标注样式的特性从图形已有样式中获得. c. k% S9 K8 q. W( D2 |4 V1 c
'ThisDrawing.Regen acAllViewports; a& L, W3 W: u; E
With ThisDrawing '设置默认为与尺寸线对齐
; e# I% U( |/ {4 @: l
.SetVariable "DIMTOH", 0
6 p0 n5 i+ ^; c. }" x; R
.SetVariable "DIMTIH", 0
2 E3 s) {9 t8 B! r# M w
End With* Q5 `3 N1 n5 N }# U* h
dimStyle.CopyFrom ThisDrawing. t) |! u% ~& ?+ B
With ThisDrawing '设置角度文字对齐方式为水平方式) Z5 D4 t# ?$ F# A# ?8 Y7 g
.SetVariable "DIMTOH", 1
. m0 [" F& d% g0 f7 D
.SetVariable "DIMTIH", 1
# x1 @' Y1 C! n* q+ ? U
End With
6 M E! [* q2 O( \
'ThisDrawing.Regen acAllViewports
* {5 q8 I) p) V4 U+ G' Y3 N/ `
DimAn.CopyFrom ThisDrawing* y' b( L1 c0 r8 a
With ThisDrawing '设置半径、直径文字对齐方式为ISO方式：尺寸线内与尺寸线对齐，尺寸线外水平对齐。% ?0 q" y( R+ T p
.SetVariable "DIMTOH", 0
$ j) y3 _6 |$ Q0 {
.SetVariable "DIMTIH", 10 j7 i; ^$ U+ C* n2 K
End With
* D% m7 h& x$ C8 `
'ThisDrawing.Regen acAllViewports. U1 D# g/ J3 C" v# R
DimRa.CopyFrom ThisDrawing
0 \, w7 G/ Y2 B2 _, u
DimDi.CopyFrom ThisDrawing
2 ?: R3 n) s7 ^2 y$ ^' K( @
ThisDrawing.Regen acAllViewports
# H0 f+ V* x& s% g# w% j
End Function
2 `0 c! Q& Z9 d. l- F0 \6 O4 `, ^
( A8 u: e, `& U" F( {0 C( N: h; a

复制代码

bingdianfeishui · 发表于 2011-5-18 23:48:51

晕……直接复制粘贴上边的两行代码再修改，把直径和半径的TIH、TOH设置反了…………

157787698 · 发表于 2011-5-20 15:47:10

代码太长了，天天看，天天写，头都大了

		自动登录	找回密码
密码			注册

通知

[已解决] [VBA]VBA新建标注子样式后对齐方式不更新！！！！！

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块