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

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

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

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

x

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

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

Dim layer As AcadLayer* u, ?7 l* ^; h/ Z3 o+ I
Set layer = ThisDrawing.Layers.Add("ZXXC") '中心线层
% I$ _/ }- i, \* b6 G. [; F* Y! t
layer.Lineweight = acLnWt018, M& Z4 u: `( Y% @. d+ u# b
layer.color = acBlue
( r' q3 w2 z/ F3 V+ m! E
layer.Linetype = "CENTER"
8 c; v& @ N3 L0 {7 T4 @
ThisDrawing.ActiveLayer = layer

复制代码

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

请帮助，谢谢。

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

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

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

Dim layer As AcadLayer+ H W- z) q4 ]! |
Set layer = ThisDrawing.Layers.Add("ZXXC" ) '中心线层
' }3 s, n; `3 |% Q, p5 d
layer.Lineweight = acLnWt0187 z# {+ s. E+ z( b- L3 B, }% P- c
layer.color = acBlue& X! }* q! v1 o. y
ThisDrawing.Linetypes.Load "center", "acadiso.lin"' l e" E) y8 |) n o9 h/ ?& n# J
layer.Linetype = "CENTER"8 J9 h( D/ B$ u
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”线型，则加载
( ]" D! b! O2 j8 g% K# G, v
For Each element In ThisDrawing.Linetypes
9 B6 f3 Q- q# K1 ~+ v
If element.Name = "CENTER" Then
* R7 j. ^( \1 d8 T
ii = 1
9 m& s3 @2 Q+ s9 Q4 ^" \7 n, w
Exit For
# I. I. b/ t2 ?& a2 R5 d6 H
End If
{5 S5 G1 I" G. n+ c' s" m$ f
Next element
9 b7 ~" X7 l5 P2 t* c
If ii = 0 Then
) v3 i. x/ n* Z% w6 T9 m" l
ThisDrawing.Linetypes.Load "Center", "acadiso.lin"4 `0 s4 x2 G$ V
End If" E; U! `7 \' w% {

复制代码

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

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

4# bingdianfeishui

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

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

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：4 C% _/ M9 g) a9 T& s( H
ii = 0 '如果未加载“CENTER”线型，则加载- P6 m# q% |& k
For Each element In ThisDrawing.Linetypes3 z- S1 a c9 U5 ^2 W) o7 Q0 ?$ q
If element ...6 f3 W: X3 ?# I* B0 O. k
bingdianfeishui 发表于 2011-5-15 20:44 http://www.3dportal.cn/discuz/images/common/back.gif

还是谢谢

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

通知

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

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

评分

浏览过的版块