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

157787698

4 E8 o0 l6 t* F+ K
我要新建图层，并要设置图层线型，但是我在设置中心线的时候出现问题，提示未找到主键，程序如下：

5 {" h1 V! g0 i$ A6 B- G

1.     Dim layer As AcadLayer
   
2.     Set layer = ThisDrawing.Layers.Add("ZXXC")        '中心线层
   
3.         layer.Lineweight = acLnWt018
   
4.         layer.color = acBlue
   * r3 E0 q3 h4 ?1 A$ n" h, J. t6 y+ T
5.         layer.Linetype = "CENTER"
   
6.         ThisDrawing.ActiveLayer = layer

复制代码

出现问题的是：layer.Linetype = "CENTER"
3 C+ F0 x0 m5 j提示如下：

请帮助，谢谢。

woaishuijia

" n) c0 [& }2 e6 ^
" g3 o$ Z) L+ ^$ b) n设置线型之前应保证线型已被加载

1.     Dim layer As AcadLayer
   
2.     Set layer = ThisDrawing.Layers.Add("ZXXC"  )      '中心线层
   & u1 y# {7 I% h9 F: V/ ~) _
3.     layer.Lineweight = acLnWt018
   
4.     layer.color = acBlue
   
5.     ThisDrawing.Linetypes.Load "center", "acadiso.lin"
   
6.     layer.Linetype = "CENTER"
   ( o+ n" I; e8 s/ r4 T
7.     ThisDrawing.ActiveLayer = layer

复制代码

157787698

谢谢，非常感谢

bingdianfeishui

) b. D6 o) E* `6 R, |$ h$ P$ A0 e如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：
! P$ f$ \: C& F8 S( u

1. ii = 0                              '如果未加载“CENTER”线型，则加载
   
2. For Each element In ThisDrawing.Linetypes
   6 f) A, Y. u$ l
3.     If element.Name = "CENTER" Then
   2 m5 i" N: M$ ]: j# y
4.         ii = 1
   * b; V) m6 ^5 Y# ?4 ?. d1 i5 L
5.         Exit For
   % ?. ~) ?; L# P, D6 g, }! X
6.     End If
   1 ]5 ^- v0 F1 n: _) w5 `
7. Next element
   / q7 m* i0 l, w" B# u* P0 u
8. If ii = 0 Then
   : ?$ O- J( {* o) V, c
9.     ThisDrawing.Linetypes.Load "Center", "acadiso.lin"
   : o7 T# z! t; P3 z7 C
10. End If
    0 F' X& h1 k, B# k

复制代码

0 e6 D3 u- U  e# |+ d  S图层、选择集这些最好也这样做一下判断

157787698

4# bingdianfeishui

直接使用on error resume next效果更好

157787698

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：
$ M. \: v+ F' w) Iii = 0                              '如果未加载“CENTER”线型，则加载
3 f& H+ _6 }. `1 I- nFor Each element In ThisDrawing.Linetypes
6 f+ c9 A7 \6 D1 f% c0 t    If element ...
bingdianfeishui 发表于 2011-5-15 20:44 http://www.3dportal.cn/discuz/images/common/back.gif

* z, G% V  H* ~/ ?4 k5 I( K
! r5 R; S+ D& w还是谢谢