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

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

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

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

x

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

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

Dim layer As AcadLayer7 `" c( e2 h8 Q- `3 z( X9 }% q- h. v& }
Set layer = ThisDrawing.Layers.Add("ZXXC") '中心线层( C: O+ W2 _6 r- D9 n: J
layer.Lineweight = acLnWt018
( W, ]% o5 l' L: A. {& ~
layer.color = acBlue
$ ?$ N* m$ b" {* K
layer.Linetype = "CENTER" p c( m7 i; ^
ThisDrawing.ActiveLayer = layer

复制代码

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

请帮助，谢谢。

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

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

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

Dim layer As AcadLayer8 `, F) Q) K! I, a+ I u; S
Set layer = ThisDrawing.Layers.Add("ZXXC" ) '中心线层5 @/ ~9 h" N, g$ l* P$ k5 O0 s. a
layer.Lineweight = acLnWt018
8 j% J# f( y4 a# j _ C. |1 Q* h
layer.color = acBlue1 t: _1 T* G$ N- Z3 g( g0 G: {
ThisDrawing.Linetypes.Load "center", "acadiso.lin"( ^2 _+ S/ d$ x( ^# w
layer.Linetype = "CENTER"5 r+ s2 r. R1 E9 m# G* I
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”线型，则加载5 E5 t, q0 |4 f q* m
For Each element In ThisDrawing.Linetypes. H0 `1 p/ z2 {% Y; \5 @* y
If element.Name = "CENTER" Then
+ Z" H- y Z' h' S) @9 _
ii = 1
8 n* h t: {5 f
Exit For
3 K- x2 Z5 N8 _" c$ |
End If
. K8 D2 o8 q6 {. g
Next element D5 u# v, o) \/ S2 E( k3 t. `
If ii = 0 Then" J U+ k% ?4 u! N
ThisDrawing.Linetypes.Load "Center", "acadiso.lin"
- N6 u( _; z; O. s- L
End If

复制代码

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

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

4# bingdianfeishui

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

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

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：
+ [3 ]. J% r: a6 x- Xii = 0 '如果未加载“CENTER”线型，则加载+ {$ I( J4 [+ {6 m8 d
For Each element In ThisDrawing.Linetypes
) ?8 C- b; b+ I1 u If element ...
L1 F. l' b/ J3 qbingdianfeishui 发表于 2011-5-15 20:44 http://www.3dportal.cn/discuz/images/common/back.gif

还是谢谢

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

通知

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

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

评分

浏览过的版块