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

157787698

* R' r/ F- ?9 `3 R/ [我要新建图层，并要设置图层线型，但是我在设置中心线的时候出现问题，提示未找到主键，程序如下：

" A- m5 [! Z# b/ |+ {

1.     Dim layer As AcadLayer
   
2.     Set layer = ThisDrawing.Layers.Add("ZXXC")        '中心线层
   5 t# P. k& q: Y% N  ~
3.         layer.Lineweight = acLnWt018
   5 p7 D) H3 W3 D
4.         layer.color = acBlue
   
5.         layer.Linetype = "CENTER"
   % b9 M1 U, ]+ C" L4 }( C5 |
6.         ThisDrawing.ActiveLayer = layer

复制代码

出现问题的是：layer.Linetype = "CENTER"
) h. Q! X4 ~+ O8 G' \2 y) _0 F提示如下：

4 ]3 E' s; d* t- ~0 e9 y) s, I请帮助，谢谢。

woaishuijia

  }- {! @# g# k- @
设置线型之前应保证线型已被加载

1.     Dim layer As AcadLayer
   ' J0 S$ T& z! {" \# d% _
2.     Set layer = ThisDrawing.Layers.Add("ZXXC"  )      '中心线层
   . P! Y% B$ M3 L2 l' x) d7 J5 R
3.     layer.Lineweight = acLnWt018
   
4.     layer.color = acBlue
   
5.     ThisDrawing.Linetypes.Load "center", "acadiso.lin"
   
6.     layer.Linetype = "CENTER"
   4 O" B& \' m* d# K
7.     ThisDrawing.ActiveLayer = layer

复制代码

157787698

谢谢，非常感谢

bingdianfeishui

" S8 ^+ n! P% d0 F如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：
# \6 R9 a' b( K' L8 X. ]8 S, E

1. ii = 0                              '如果未加载“CENTER”线型，则加载
   
2. For Each element In ThisDrawing.Linetypes
   ! E6 j3 a  \' |
3.     If element.Name = "CENTER" Then
   ; o& L& k: f7 ^3 q4 ?% D$ v
4.         ii = 1
   0 w# x: j) }4 H: i% L5 ?
5.         Exit For
   
6.     End If
   
7. Next element
   
8. If ii = 0 Then
   
9.     ThisDrawing.Linetypes.Load "Center", "acadiso.lin"
   
10. End If
    

复制代码

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

157787698

4# bingdianfeishui

; m9 Z6 @. z+ d% j: E直接使用on error resume next效果更好

157787698

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：
' t0 r  J( M4 yii = 0                              '如果未加载“CENTER”线型，则加载
+ @% c  O# l+ z* F+ o! q$ @For Each element In ThisDrawing.Linetypes
4 s' F5 C+ [; q0 ?  @4 E    If element ...
6 K& A! i6 C6 |) Q8 Ybingdianfeishui 发表于 2011-5-15 20:44 http://www.3dportal.cn/discuz/images/common/back.gif

$ @( _/ J$ L/ `/ }4 h- @% Z% P
: y" W6 F$ v0 U" o, @, O还是谢谢