evcad 发表于 2005-6-14 11:33:00

[讨论]切换图层的几种方法

比如有两个图层：


方法1


Sub DrawAuto()<BR>Dim LayerObj As AcadLayer<BR>Dim LinObj As AcadLWPolyline<BR>LinObj.Layer = "图层2"                                                                                                                                                                                                                                                                               '指定图层2<BR>End Sub


方法2


Sub DrawAuto()<BR>Dim LayerObj As AcadLayer<BR>Dim LinObj As AcadLWPolyline<BR>ThisDrawing.Activelayer        = "图层2"                                                                                                                                       '切换到图层2<BR>End Sub


这两种方法是书上摘下来的，但都切换不了图层2，还希望哪位大哥能帮小弟指点一二，谢谢！！！<BR>饭后再见了。

evcad 发表于 2005-6-14 20:49:00

自己顶一下

希望大家多停留我这CAD第一贴

zhuxuhong 发表于 2005-6-14 21:06:00

<DIV>你确定图形中是否存在"图层2"?</DIV>
<DIV>对于方法1是先要生成实体，再改变实体的图层</DIV>
<DIV>对于方法2 </DIV>

zhuxuhong 发表于 2005-6-14 21:07:00

<DIV>对于方法2 是先设置当前层，这时生成的实体就自动位于该图层了</DIV>
<DIV>        </DIV>
<DIV>        </DIV>

evcad 发表于 2005-6-14 22:17:00

确实有图层2

我是在用VBA前就手动定义好了图层1（由白色）、图层2（由绿色），因为设计时要用VBA调用图层2，以便画出绿色线，可两种方法不知为何都不行


<BR>有什么好方法吗？？？<BR>谢谢

subtlation 发表于 2005-6-14 23:08:00

把程序放上来，放几行句子，很难知道为什么不行的

evcad 发表于 2005-6-14 23:40:00

我想我已经解决了

谢谢大家一直的提示和鼓励


而且这件事还让我知道了独立专研的重要！！！
页: [1]
查看完整版本: [讨论]切换图层的几种方法