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

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

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

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

x

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

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

Dim layer As AcadLayer) Y* {/ H5 K- g' e- n3 ~( Z
Set layer = ThisDrawing.Layers.Add("ZXXC") '中心线层
/ T/ g8 j& E6 |0 }
layer.Lineweight = acLnWt0189 |) x, i) v& n) _- ~+ j m F
layer.color = acBlue
0 i: D3 o+ D8 F3 C8 T
layer.Linetype = "CENTER"
# [5 e3 G7 X. V& ^6 e6 J8 ?1 Y1 s
ThisDrawing.ActiveLayer = layer

复制代码

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

请帮助，谢谢。

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

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

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

Dim layer As AcadLayer) D( C+ M3 ?+ i0 {
Set layer = ThisDrawing.Layers.Add("ZXXC" ) '中心线层( }9 n9 C9 Z8 K1 R" V
layer.Lineweight = acLnWt018, T' W: K; z& ~8 x0 L2 Z8 P
layer.color = acBlue
/ D) p" X" C/ {1 | g! C/ |
ThisDrawing.Linetypes.Load "center", "acadiso.lin"
0 u9 X0 c7 l3 u
layer.Linetype = "CENTER" M5 T6 C( Q8 T; h, ^
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”线型，则加载
4 H) D# s# a% W9 B) A0 m/ c
For Each element In ThisDrawing.Linetypes
, m. k+ {) u/ n8 i) r2 ~! M
If element.Name = "CENTER" Then: Q, r+ H/ @. |' p9 Z
ii = 1
0 c& L$ c; C( ]& C I6 H: C' F
Exit For( L; n7 ^ n$ ~" ~# l( B4 P
End If
) B. @" U( Q. L9 ~" \
Next element% A! K7 s7 R$ M# s2 L
If ii = 0 Then
0 ? ]( y; |; D n2 G8 v2 o
ThisDrawing.Linetypes.Load "Center", "acadiso.lin"9 e& m: h, a$ `
End If% I2 T% K" T. w# y4 h* b% A

复制代码

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

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

4# bingdianfeishui

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

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

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：) w' x4 S4 _+ @) z/ J9 J z% i) A& l
ii = 0 '如果未加载“CENTER”线型，则加载4 p( j" F- D# |6 O. k# m
For Each element In ThisDrawing.Linetypes
" H1 L/ s3 G8 s$ D9 y If element ...
6 W! V4 ~1 ^: S4 H( D6 p2 lbingdianfeishui 发表于 2011-5-15 20:44 http://www.3dportal.cn/discuz/images/common/back.gif

还是谢谢

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

通知

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

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

评分

浏览过的版块