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

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

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

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

x

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

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

Dim layer As AcadLayer
3 K; A$ V9 W; E9 O; A8 a. K) X3 n
Set layer = ThisDrawing.Layers.Add("ZXXC") '中心线层
& F* A7 f. t6 ]: P' G% X
layer.Lineweight = acLnWt0187 P R+ ^- D2 n: k5 E; e
layer.color = acBlue
0 F1 o6 c0 A t1 K1 W' L
layer.Linetype = "CENTER"
5 r3 f- }4 {9 }, y, X' l% w
ThisDrawing.ActiveLayer = layer

复制代码

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

请帮助，谢谢。

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

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

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

Dim layer As AcadLayer
/ z2 D( _, N* W; j: m. @' u0 r
Set layer = ThisDrawing.Layers.Add("ZXXC" ) '中心线层
2 [+ i8 V {6 J4 e8 o c
layer.Lineweight = acLnWt0184 M$ n3 ?3 \. ?
layer.color = acBlue" _" W- P) h2 p$ e* O2 x
ThisDrawing.Linetypes.Load "center", "acadiso.lin": o4 @3 I |4 d/ m0 n- W$ w
layer.Linetype = "CENTER"; E! h8 v: @- {- Q0 m/ j
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”线型，则加载
4 A) ?/ w' W% {( X! p
For Each element In ThisDrawing.Linetypes0 x4 u$ g# X* I0 r ]
If element.Name = "CENTER" Then: ^" J1 Q2 ?4 N+ P
ii = 1
0 q9 o# T' E& {
Exit For
+ `2 X( m) O0 O# M
End If
6 [) q2 L- ~: s) y1 O; |
Next element
1 l$ x' \6 u) A8 w2 \
If ii = 0 Then, F" ?9 w1 w" C; I$ l
ThisDrawing.Linetypes.Load "Center", "acadiso.lin"3 O7 i$ d) b5 l6 {
End If
, s) ^0 ]8 v( k4 m( ^) f. Q

复制代码

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

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

4# bingdianfeishui

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

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

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：1 k% {( H* R' X5 L2 _: X; N4 Z- m0 r
ii = 0 '如果未加载“CENTER”线型，则加载( G1 p" S8 _- L# x f! @* ~) @/ V
For Each element In ThisDrawing.Linetypes
, [4 Z4 \1 u) F. ~; s7 |* b If element ...
/ u6 \$ }, f _2 g: f, y& Wbingdianfeishui 发表于 2011-5-15 20:44 http://www.3dportal.cn/discuz/images/common/back.gif

还是谢谢

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

通知

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

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

评分

浏览过的版块