|
|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
本帖最后由 woaishuijia 于 2011-5-13 04:56 编辑 + r& U* t0 D% ]( t. V
7 k$ s0 U6 T# y$ \4 W8 U% ?我要新建图层,并要设置图层线型,但是我在设置中心线的时候出现问题,提示未找到主键,程序如下:5 q; B$ A9 c9 S; \
' s- H% G: |* i' g- Dim layer As AcadLayer* u, ?7 l* ^; h/ Z3 o+ I
- Set layer = ThisDrawing.Layers.Add("ZXXC") '中心线层
% I$ _/ }- i, \* b6 G. [; F* Y! t - layer.Lineweight = acLnWt018, M& Z4 u: `( Y% @. d+ u# b
- layer.color = acBlue
( r' q3 w2 z/ F3 V+ m! E - layer.Linetype = "CENTER"
8 c; v& @ N3 L0 {7 T4 @ - ThisDrawing.ActiveLayer = layer
复制代码 ! J" Z9 r' o. ]
/ e' b. ?: U: p' ^2 s
出现问题的是:layer.Linetype = "CENTER"
$ j. W, _, n! ]2 b( O- ?3 ~提示如下:: S2 V; i o$ h- G$ b2 ?. _
7 L) r& X6 b T2 x% p* c2 w- }请帮助,谢谢。 |
|