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

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

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

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

x

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

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

Dim layer As AcadLayer6 N! Y: Z {6 d; T
Set layer = ThisDrawing.Layers.Add("ZXXC") '中心线层9 d6 \2 S& E! d; L8 @6 h
layer.Lineweight = acLnWt018
4 v" A8 X, H7 G( m" t
layer.color = acBlue8 _- {9 x1 k2 ]4 ]3 B2 t- e+ P
layer.Linetype = "CENTER"" u6 F9 R( K% T1 B9 a9 r
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 ^5 e" R1 Y: T1 ^' K
Set layer = ThisDrawing.Layers.Add("ZXXC" ) '中心线层( r9 u1 |% m+ n5 {
layer.Lineweight = acLnWt018
8 Y7 v5 H; R' U b3 ?( B4 J
layer.color = acBlue
9 j7 P9 C) q( B; E( ]8 n
ThisDrawing.Linetypes.Load "center", "acadiso.lin"
! S" o* a' ]/ T$ F1 t3 e1 h
layer.Linetype = "CENTER": M9 I9 J# I- a2 R! _& c5 z
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”线型，则加载7 Z" n$ z4 z" S$ a' f
For Each element In ThisDrawing.Linetypes
7 W" [5 P* D- T
If element.Name = "CENTER" Then
) t3 @" R, n& T# X
ii = 1
' F) H- I* G) A7 t
Exit For
; W1 b8 L' q# O8 m1 r3 c: ^
End If
) A& ~* O3 q8 H! Q, f
Next element5 C. w- ~/ T( _0 X G7 {
If ii = 0 Then/ c( E d& L; Q. U5 \1 I* Q
ThisDrawing.Linetypes.Load "Center", "acadiso.lin"
, q' @* \0 f) d, M3 I# y, k
End If& Q5 |7 M O1 ]) p

复制代码

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

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

4# bingdianfeishui

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

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

如果已经加载了center线型，再加载的话会报错，所以最好做一个判断。如下：% t. g! Y6 N( I* x) C
ii = 0 '如果未加载“CENTER”线型，则加载8 V b$ L" c F! g' z D
For Each element In ThisDrawing.Linetypes1 s2 |- j! T* i
If element ...
* ~- W" M' o0 G. M* A( @( q- k: Vbingdianfeishui 发表于 2011-5-15 20:44 http://www.3dportal.cn/discuz/images/common/back.gif

还是谢谢

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

通知

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

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

评分

浏览过的版块