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

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

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

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

x

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

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

Dim layer As AcadLayer
6 b& ^! \/ `5 [5 t! k4 l
Set layer = ThisDrawing.Layers.Add("ZXXC") '中心线层( t. t. p2 L% h4 R
layer.Lineweight = acLnWt018
& W+ |3 ]7 H Z) Y$ e
layer.color = acBlue' f1 B' J# N, _* |/ R0 Z9 K
layer.Linetype = "CENTER"9 ~( {. k4 g2 N) t C
ThisDrawing.ActiveLayer = layer

复制代码

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

请帮助，谢谢。

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

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

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

Dim layer As AcadLayer! Y+ p$ E' i9 ]. c* p! o. w
Set layer = ThisDrawing.Layers.Add("ZXXC" ) '中心线层
5 D8 R+ H) C1 b* G( c
layer.Lineweight = acLnWt018
/ I4 l1 R# z& ~
layer.color = acBlue
& R; ]. \/ O8 @; d* L
ThisDrawing.Linetypes.Load "center", "acadiso.lin"
( R7 U4 Y& U# g
layer.Linetype = "CENTER"
1 u. c5 p1 R5 M; v4 ?- 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”线型，则加载
1 x9 X: K/ X: |- d( u1 y. x
For Each element In ThisDrawing.Linetypes
* K9 a$ W _( k
If element.Name = "CENTER" Then
/ z+ I+ y. \% I/ u+ p; R
ii = 1
* r) i5 v2 _9 H8 ]
Exit For# g1 y f) ?8 I
End If
. [% S. g& T( q$ s* w
Next element
* G" @# y. `5 m
If ii = 0 Then' X" k8 B) l. T2 G8 H
ThisDrawing.Linetypes.Load "Center", "acadiso.lin"
+ o N3 l8 {8 i Q- p1 w
End If
# G4 j* Z2 j4 U: U) u7 }

复制代码

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

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

4# bingdianfeishui

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

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

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：+ ?) o+ Q/ z+ R% Y
ii = 0 '如果未加载“CENTER”线型，则加载
" p( g6 i' a% \; _. U5 \9 tFor Each element In ThisDrawing.Linetypes
2 n! t3 z: I {+ y/ Q If element ...
( v, v! x5 l6 y' S3 V' o% [: kbingdianfeishui 发表于 2011-5-15 20:44 http://www.3dportal.cn/discuz/images/common/back.gif

还是谢谢

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

通知

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

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

评分

浏览过的版块