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

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

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

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

x

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

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

Dim layer As AcadLayer" m6 y( R$ a% O4 {7 c- }6 ~
Set layer = ThisDrawing.Layers.Add("ZXXC") '中心线层
+ u) J) B# ?1 x+ ~; d: j
layer.Lineweight = acLnWt0189 U4 n* c9 D8 n
layer.color = acBlue0 O! b$ g3 n' y4 a, f
layer.Linetype = "CENTER"
0 G- y& T7 r8 b+ ]
ThisDrawing.ActiveLayer = layer

复制代码

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

请帮助，谢谢。

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

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

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

Dim layer As AcadLayer
9 X! J7 q3 |4 v( z' u' W
Set layer = ThisDrawing.Layers.Add("ZXXC" ) '中心线层- |$ X' }- P2 {$ U0 T; ?
layer.Lineweight = acLnWt018, z2 V1 \) U, ^0 ]
layer.color = acBlue
+ N7 I' d% k5 I
ThisDrawing.Linetypes.Load "center", "acadiso.lin"
+ Q. x+ D, J) i! Z+ t7 U% j2 j$ V+ F
layer.Linetype = "CENTER"
4 l$ r3 `$ R. N* Q, L) L) W
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”线型，则加载( X3 Y6 K/ g& W; [- ]) g9 `/ A
For Each element In ThisDrawing.Linetypes( i# k0 ]0 H# B6 o5 s3 h
If element.Name = "CENTER" Then
/ Z2 D V& T. ^+ m! x
ii = 1* O+ Q6 b9 y: m# f/ t5 ^3 a. k J; D
Exit For/ D! D4 y. [4 C6 q: g
End If
2 u2 U: a' ]( h6 X# g& Q" k
Next element
7 K/ w- G8 X6 K4 V# b
If ii = 0 Then3 {7 n- Q3 x8 A9 o. r- h: d: B: l
ThisDrawing.Linetypes.Load "Center", "acadiso.lin" ]1 Q2 n5 a: A, C* G. L! P% |4 ]
End If
9 W+ p. x$ K/ ?; c3 f3 u5 Q

复制代码

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

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

4# bingdianfeishui

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

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

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：
6 i) z4 a% x) K% b3 Yii = 0 '如果未加载“CENTER”线型，则加载$ ~! {& l; ^( D1 n
For Each element In ThisDrawing.Linetypes9 L4 g* m) [" q# a0 B6 B* }
If element ...7 t' H9 y' A0 M# M) V
bingdianfeishui 发表于 2011-5-15 20:44 http://www.3dportal.cn/discuz/images/common/back.gif

还是谢谢

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

通知

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

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

评分

浏览过的版块