关于CAD VBA的问题

imwey

请问怎样在VBA代码中设置活动的图层，比如当前的活动图层为“层1”，怎样在代码中使活动图层变为“层2”。
前一段时间我问了个堆叠的问题，有两位的回答非常好，在此再次表示感谢！！

还有，能不能预设置MTEXT的对齐方法，比如：先预设Mtext的对齐方法为MC，然后所有的Mtext对象的默认对齐都是居中方式。（在代码中预设）

" S  v" w5 l' ^1 k[ 本帖最后由 imwey 于 2008-10-17 19:55 编辑 ]

sealive_leafage

楼主的问题acad的帮助中就有例程：
Sub Example_ActiveLayer()   
' This example returns the current layer   
4 E) Z  f: h+ j! S7 ~' and then adds a new layer.   
' Finally, it returns the layer to the previous setting.   
8 N% l7 o  g; wDim currLayer As AcadLayer   
5 \0 [: U/ L& Y2 |. Z( y( aDim newLayer As AcadLayer        ' Return the current layer of the active document   
" ^, i5 b6 I4 J6 p3 Y8 |Set currLayer = ThisDrawing.ActiveLayer   
& f$ r7 A# k7 Z. {9 m6 C! d( DMsgBox "The current layer is " & currLayer.name, vbInformation, "ActiveLayer Example"        
- f, [: b  B$ _4 e% o1 T7 M6 h5 N2 H' Create a Layer and make it the active layer   
% V# u2 b5 d- g! ESet newLayer = ThisDrawing.Layers.Add("TestLayer")   
, t2 ~% t: C1 [- }" n+ FThisDrawing.ActiveLayer = newLayer   
MsgBox "The new layer is " & newLayer.name, vbInformation, "ActiveLayer Example"   
' Reset the layer to its previous setting   
! E" r# K' [+ g- [6 GThisDrawing.ActiveLayer = currLayer   
MsgBox "The active layer is reset to " & currLayer.name, vbInformation, "ActiveLayer Example"
, c- ?( D% L$ a) g, {8 H2 hEnd Sub
第二个问题建议使用acadText对象，而不是mtext对象，具体参考alignment属性；
9 V+ I) K- s4 S7 H2 u( ^
" u1 H& q$ \! D[ 本帖最后由 sealive_leafage 于 2008-10-17 20:14 编辑 ]

imwey

谢谢楼上的回答，上次我提的问提也是你回答的吧，谢谢。
1，层的问题，你上面的代码新建一个“TextLayer”，再把它设为活动层。我的本意是问怎么样把一个已存在的层设置问活动，不过我试着把Set newLayer = ThisDrawing.Layers.Add("TestLayer")    中的 testlayer 改为已存在的层的名称，就可以了。这是不是正确的用法？如果不是，应该怎样做？
# @' z- x  c7 \+ ]. T2，因为我要在不同的地方显示文字，而且都要用中间对齐方式，因为mtext和text的默认对齐不是中间，所以我想一次性给设置好，不用每个文字对象都分别设置，嫌麻烦啊。另外，TEXT里面能显示公差吗，因为我要显示公差所以才想起用MTEXT的。
: W* G4 G9 S% U
5 k. S4 s! f! b  z8 ]+ |" m* T我是前些天看CAD的开发人员帮助才学的ACAD VBA，所以很菜的，问了这么些菜问题，还请包涵。

woaishuijia

一.错误. 2楼的例程中设置活动图层是这行

1. ThisDrawing.ActiveLayer = newLayer
   5 H) U# t4 b" D$ f

复制代码

在此之前,在

1. Set newLayer = ThisDrawing.Layers.Add("TestLayer" )

复制代码

这一行(新建"TestLayer"图层)已经将该图层赋值给变量newLayer,所以newLayer就代表"TestLayer"图层对象,所以ThisDrawing.ActiveLayer = newLayer就使"TestLayer"图层成为了活动图层.
把已存在的图层设为活动图层应该这样:
: j- B  Q& W$ g$ N$ a4 }; r% v

1. ThisDrawing.ActiveLayer = ThisDrawing.Layers.Item(图层名称字符串)
   , G; C" O( i3 v# @$ n: o

复制代码

当然,如果该图层已经被赋予某个变量,也可以像前面用变量设置活动图层.比如,原有一个名为"实线"的图层:

1. Set 图层1 = ThisDrawing.Layers.Item("实线" )
   6 w6 g, i  G  A- _  z
2. ThisDrawing.ActiveLayer = 图层1
   ( a/ Y- x+ r6 `

复制代码

二.不能
3 q7 S1 o6 Y, A( O4 G* J" p& ~属性是从属于对象的,必须分别给每一个mtext或text对象设置属性--如果需要的话
: ~1 X6 u( U8 J6 Z. e
) x3 r7 E4 p6 [* ]6 p/ S[ 本帖最后由 woaishuijia 于 2008-10-19 11:29 编辑 ]

imwey

ThisDrawing.ActiveLayer = ThisDrawing.Layers.Item(图层名称字符串) 正是我想要的，哈哈。
* V( C7 p: q" X) k  A( x" Y假设层“实线”已存在，那么
Set 图层1 = ThisDrawing.Layers.Add("实线" )
4 N3 j" f  e/ c% Z: y5 I和
Set 图层1 = ThisDrawing.Layers.Item("实线" )
的效果是不是一样的呢，“图层1”是不是都是指向“实线”？
) r: t& F' M7 X1 h" L/ s
2 e& L* ~: Z/ t可惜mtext和text的默认对齐不是中间对齐，一个一个设置对齐麻烦啊，真的没办法也就只能一个一个设置了。

woaishuijia

一、结果是一样的，但前者的写法不规范。图层是命名对象，使用命名对象时不要重名，以避免不必要的错误。
8 Z! _2 {( }4 P+ a& A6 K3 R( m! _1 w) b二、如果你的文字都是中间对齐，可以在最后用循环遍历的方法统一设置它们的对齐属性，这样能减少编程量。比如下面的代码就可以把所有现有的多行文字对象的对正方式设为正中：

1. Dim SS As AcadSelectionSet, FT(0) As Integer, FD(0) As Variant, MT As AcadMText
   : S) G, c& h/ C4 T3 q
2. Set SS = ThisDrawing.SelectionSets.Add("AAAAAA") '新建选择集
   
3. FT(0) = 0 '定义过滤器为多行文字
   
4. FD(0) = "mtext"
   
5. SS.Select acSelectionSetAll, , , FT, FD '选择屏幕上全部多行文字对象
   $ l/ C: p9 j" m8 @
6. For Each MT In SS '遍历多行文字对象
   7 x9 g# [  L' |7 H- g, L0 I
7.     MT.AttachmentPoint = acAttachmentPointMiddleCenter '正中对齐
   
8. Next
   # h0 _4 }# L3 s1 Z
9. SS.Delete '及时删除用过的选择集

复制代码

imwey

谢谢 我爱谁家 和 sealive ，我是现用现学，说不定今后还会有什么问题请教.