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

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

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

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

x

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

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

Dim layer As AcadLayer
' a+ n6 n: ]5 d# [
Set layer = ThisDrawing.Layers.Add("ZXXC") '中心线层$ t: I; W3 k- I0 O- d+ e) E
layer.Lineweight = acLnWt018
; }" S+ a j. W) d$ |5 J6 }5 M0 [
layer.color = acBlue- y0 s5 W: V6 g. L
layer.Linetype = "CENTER"
$ n3 E6 p4 {" F! I9 z& r$ L
ThisDrawing.ActiveLayer = layer

复制代码

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

请帮助，谢谢。

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

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

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

Dim layer As AcadLayer
! N; i- V8 m" ^3 n0 L
Set layer = ThisDrawing.Layers.Add("ZXXC" ) '中心线层
V! s5 @8 c8 k4 ?+ j
layer.Lineweight = acLnWt018
- d& j7 y$ |9 o! {0 j
layer.color = acBlue* r/ e6 m& K- @2 P" C
ThisDrawing.Linetypes.Load "center", "acadiso.lin"
" O4 r9 s7 k5 L4 o5 j) A! {
layer.Linetype = "CENTER"
1 z3 J; G6 x' ?+ 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”线型，则加载9 N6 G; G' `" e- p- L. j
For Each element In ThisDrawing.Linetypes4 q! {# p3 ^& g
If element.Name = "CENTER" Then
d2 f7 L' n* o" s1 |& A2 P+ {
ii = 10 w$ ]. v J2 N" t1 ^
Exit For* c, A: t! n- u7 h( K9 M% `
End If
" C- f2 D$ p2 Y: ?
Next element
& e, _' n: d$ ^2 Z% d+ t9 N! E
If ii = 0 Then2 _- X1 o M% R- ?7 h5 ?. i8 D2 }
ThisDrawing.Linetypes.Load "Center", "acadiso.lin"
. p- J |6 S2 e/ `6 F
End If
2 o4 V, {1 h4 b, @5 o

复制代码

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

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

4# bingdianfeishui

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

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

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：! `+ c# r( C: i; I5 t- S
ii = 0 '如果未加载“CENTER”线型，则加载
$ W- s5 {+ f( ?2 E- C5 C2 AFor Each element In ThisDrawing.Linetypes
/ H( k; Y6 _7 q6 y% ^! O3 ~ If element ...
% R, m% y; i6 {' T' Kbingdianfeishui 发表于 2011-5-15 20:44 http://www.3dportal.cn/discuz/images/common/back.gif

还是谢谢

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

通知

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

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

评分

浏览过的版块