VBA:如何设置新建图层的线型？

157787698

+ U" |& T$ J, x$ O/ J. {
我要新建图层，并要设置图层线型，但是我在设置中心线的时候出现问题，提示未找到主键，程序如下：

4 u5 n2 ~4 {+ `

1.     Dim layer As AcadLayer
   
2.     Set layer = ThisDrawing.Layers.Add("ZXXC")        '中心线层
   5 `' t2 a  R$ N/ y; X
3.         layer.Lineweight = acLnWt018
   
4.         layer.color = acBlue
   
5.         layer.Linetype = "CENTER"
   
6.         ThisDrawing.ActiveLayer = layer

复制代码

) {% `- q+ c) n9 V* l
. }$ r. X$ z& k9 L! J4 k出现问题的是：layer.Linetype = "CENTER"
2 d9 P; K+ `0 D- s6 N  `* k提示如下：
2 {; Z" x  h5 [
  m) d7 ?& m) M& a3 h% o% C% I* A请帮助，谢谢。

woaishuijia

  ]7 s. E. \0 h
" V9 l. \6 `4 L0 R8 m% S9 O0 h设置线型之前应保证线型已被加载

1.     Dim layer As AcadLayer
   ( a1 A3 k( x" A
2.     Set layer = ThisDrawing.Layers.Add("ZXXC"  )      '中心线层
   : F) D) @# g! {2 V5 }3 e
3.     layer.Lineweight = acLnWt018
   4 W  q8 |2 d* d2 y2 g
4.     layer.color = acBlue
   
5.     ThisDrawing.Linetypes.Load "center", "acadiso.lin"
   
6.     layer.Linetype = "CENTER"
   , y+ ?4 X+ ?  O
7.     ThisDrawing.ActiveLayer = layer

复制代码

157787698

谢谢，非常感谢

bingdianfeishui

7 x/ V$ P5 E. l, |# Y
5 a: A  b, L! F, T% I如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：

1. ii = 0                              '如果未加载“CENTER”线型，则加载
   
2. For Each element In ThisDrawing.Linetypes
   
3.     If element.Name = "CENTER" Then
   6 K9 V' E# ]* K7 o" |6 K, D
4.         ii = 1
   
5.         Exit For
   1 ]8 m; p8 a) d# M- J# }6 [
6.     End If
   % C4 q2 J  x# I% z6 w
7. Next element
   
8. If ii = 0 Then
   
9.     ThisDrawing.Linetypes.Load "Center", "acadiso.lin"
   ( @6 d5 m" R8 V' E' r, A  B
10. End If
    

复制代码

图层、选择集这些最好也这样做一下判断

157787698

4# bingdianfeishui

  N% J7 |+ m6 O, h$ o  r. [4 _- C直接使用on error resume next效果更好

157787698

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：
) }1 m8 G4 L1 i( I, ^+ V; sii = 0                              '如果未加载“CENTER”线型，则加载
# j8 w3 z6 F* W- w+ |/ X# ?+ N  ~For Each element In ThisDrawing.Linetypes
    If element ...
3 C, z! b6 W: x- P2 Obingdianfeishui 发表于 2011-5-15 20:44 http://www.3dportal.cn/discuz/images/common/back.gif

; I1 c5 o) I) z) V( T* k
还是谢谢