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

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

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

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

x

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

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

Dim layer As AcadLayer4 | i, O5 }: W; z7 U# y
Set layer = ThisDrawing.Layers.Add("ZXXC") '中心线层
O8 q3 h$ D' l8 d8 O/ U N
layer.Lineweight = acLnWt018
0 S: e0 I& X: n; u$ ~
layer.color = acBlue& |# _( c$ D7 y% t; g9 Y9 n
layer.Linetype = "CENTER"! P$ Y# M6 q. w* j. W3 K
ThisDrawing.ActiveLayer = layer

复制代码

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

请帮助，谢谢。

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

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

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

Dim layer As AcadLayer
+ N1 I: P5 e- `4 |5 @, d# e
Set layer = ThisDrawing.Layers.Add("ZXXC" ) '中心线层
$ V( s: \$ v/ P4 g( b5 T- e6 W
layer.Lineweight = acLnWt018
5 t8 {2 Y& Z% V/ G% X4 O8 s
layer.color = acBlue
2 u& j* H* h0 Z. R. q' n5 S: P
ThisDrawing.Linetypes.Load "center", "acadiso.lin"
3 S0 V% E$ E& m
layer.Linetype = "CENTER"4 h2 M: @1 |8 K' I Y* Q* A
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”线型，则加载6 L* ~ y9 P, t
For Each element In ThisDrawing.Linetypes" j" m+ w. u$ a( H Q. K
If element.Name = "CENTER" Then
( {. E4 Q, ~& ?* {) b- B; ^7 J
ii = 1
7 H/ I: u/ x, s' t
Exit For0 ^0 N0 r1 c, r& t
End If
8 _2 Q! H1 G3 k, Z) T% L
Next element
4 Q8 V+ q9 V6 j& x0 k
If ii = 0 Then
' A5 j) L' V4 l5 m# O% {$ n
ThisDrawing.Linetypes.Load "Center", "acadiso.lin"- H" F/ z- {0 u2 e8 w
End If" ?6 T' k7 C$ h* w: v

复制代码

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

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

4# bingdianfeishui

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

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

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：" c7 k6 K8 n. W" E
ii = 0 '如果未加载“CENTER”线型，则加载! y o+ X; W4 D
For Each element In ThisDrawing.Linetypes6 y5 x8 C( r+ y2 b
If element ...
( ]; b, g% y+ G! r! X& h3 Zbingdianfeishui 发表于 2011-5-15 20:44 http://www.3dportal.cn/discuz/images/common/back.gif

还是谢谢

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

通知

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

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

评分

浏览过的版块