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

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

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

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

x

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

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

Dim layer As AcadLayer
2 B6 y. z- Z8 f. B* J! H
Set layer = ThisDrawing.Layers.Add("ZXXC") '中心线层$ O* K Z7 G2 U
layer.Lineweight = acLnWt018; |+ Z2 B* y3 g( b8 v6 p" X8 M
layer.color = acBlue
3 o" u3 w- P+ R0 z; \( L8 ^
layer.Linetype = "CENTER"
+ k9 Y, k! c# m$ B2 |
ThisDrawing.ActiveLayer = layer

复制代码

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

请帮助，谢谢。

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

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

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

Dim layer As AcadLayer
/ @1 k- u8 M1 u0 [& C c+ J
Set layer = ThisDrawing.Layers.Add("ZXXC" ) '中心线层+ b3 u, j' x0 |1 q( r
layer.Lineweight = acLnWt018
& `' p$ x# f' D; u
layer.color = acBlue
8 h. Z, K( y0 K2 H& P
ThisDrawing.Linetypes.Load "center", "acadiso.lin"
; s! `0 L+ o& v
layer.Linetype = "CENTER"9 Y1 i6 o( ^6 {
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”线型，则加载) K! G$ c4 p6 v, n, b8 u
For Each element In ThisDrawing.Linetypes, X6 c$ a+ V3 B8 i
If element.Name = "CENTER" Then
# i; f, x5 @2 ~5 B( Z
ii = 1/ _9 F& o, H8 m; h( M& U' W* ~
Exit For
! M) \1 h4 {8 O5 B8 e8 E e
End If+ k4 ^/ `' x# Y6 K. E% E9 M+ D$ X
Next element7 S' \0 r6 c; R9 }) n
If ii = 0 Then
. d& P8 c) I, _/ W5 [2 h3 S) T$ I
ThisDrawing.Linetypes.Load "Center", "acadiso.lin"
: _" m+ x T2 n* l
End If: b- M7 |) S0 V( S$ g8 h7 O

复制代码

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

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

4# bingdianfeishui

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

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

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：- N  s$ O! d* n# e9 N
ii = 0                            '如果未加载“CENTER”线型，则加载
+ h& }% F& V9 S" RFor Each element In ThisDrawing.Linetypes
# z7 d7 @7 t% c" k& O0 | If element ...( l" I4 g. O5 F, z# N& J$ e  W
bingdianfeishui 发表于 2011-5-15 20:44 http://www.3dportal.cn/discuz/images/common/back.gif

还是谢谢

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

通知

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

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

评分

浏览过的版块