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

157787698 · 发表于 2011-5-12 10:42:06

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

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

x

本帖最后由 woaishuijia 于 2011-5-13 04:56 编辑

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

Dim layer As AcadLayer! q% K% g- A4 ^: E/ }6 O
Set layer = ThisDrawing.Layers.Add("ZXXC") '中心线层 j- V+ I' r. Y! h5 |
layer.Lineweight = acLnWt018# a% I; F. Q2 D
layer.color = acBlue7 a3 B/ G4 H+ I
layer.Linetype = "CENTER"
) u3 h% u" g9 `: N
ThisDrawing.ActiveLayer = layer

复制代码

出现问题的是：layer.Linetype = "CENTER"
提示如下：
未找到主键.JPG

请帮助，谢谢。

woaishuijia · 发表于 2011-5-13 05:04:32

本帖最后由 woaishuijia 于 2011-5-13 05:05 编辑

设置线型之前应保证线型已被加载

Dim layer As AcadLayer1 s# X/ g, d; j. u5 c/ d( U) D
Set layer = ThisDrawing.Layers.Add("ZXXC" ) '中心线层0 r" `7 t1 x' a" M' B0 c
layer.Lineweight = acLnWt018
: D) U: z& B1 w
layer.color = acBlue
) ~6 Z* g8 ?& S0 J- N% l
ThisDrawing.Linetypes.Load "center", "acadiso.lin". i( U5 N0 I% i: s7 y. P
layer.Linetype = "CENTER"8 q' g' M3 P* z; F! D$ p/ s
ThisDrawing.ActiveLayer = layer

复制代码

157787698 · 发表于 2011-5-13 09:14:21

谢谢，非常感谢

bingdianfeishui · 发表于 2011-5-15 20:44:43

本帖最后由 bingdianfeishui 于 2011-5-15 20:45 编辑

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：

ii = 0 '如果未加载“CENTER”线型，则加载- ~/ v0 j0 ~5 p; h& O; O6 M9 t& c
For Each element In ThisDrawing.Linetypes0 I% E6 n5 Q0 G
If element.Name = "CENTER" Then7 \! x6 I& ]4 p" Q
ii = 1
* P1 v' p P7 P
Exit For, I$ t: m8 ^" g, f- ~6 @
End If8 Y7 b. b: J& i5 j4 V
Next element) b k! W2 g+ Y% A, a
If ii = 0 Then ^% i: \+ v4 g& B
ThisDrawing.Linetypes.Load "Center", "acadiso.lin", J* H# X# Y( l6 v% `
End If- k8 B. w' T+ Z. G

复制代码

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

157787698 · 发表于 2011-5-16 14:51:13

4# bingdianfeishui

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

157787698 · 发表于 2011-6-9 17:24:48

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：) v/ o+ `9 L5 _0 |7 v$ ]1 v0 c
ii = 0 '如果未加载“CENTER”线型，则加载& i- g" ]. I% E; t
For Each element In ThisDrawing.Linetypes
) _8 T% r. @1 o1 H$ q If element ... ~( S9 K( L. W+ A
bingdianfeishui 发表于 2011-5-15 20:44 http://www.3dportal.cn/discuz/images/common/back.gif

还是谢谢

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

通知

[已答复] VBA:如何设置新建图层的线型？

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

评分