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

evcad

比如有两个图层： 方法1 Sub DrawAuto()
Dim LayerObj As AcadLayer
Dim LinObj As AcadLWPolyline
LinObj.Layer = "图层2" '指定图层2
End Sub 方法2 Sub DrawAuto()
Dim LayerObj As AcadLayer
Dim LinObj As AcadLWPolyline
ThisDrawing.Activelayer = "图层2" '切换到图层2
End Sub 这两种方法是书上摘下来的，但都切换不了图层2，还希望哪位大哥能帮小弟指点一二，谢谢！！！
饭后再见了。

evcad

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

zhuxuhong

你确定图形中是否存在"图层2"?

对于方法1是先要生成实体，再改变实体的图层

对于方法2

zhuxuhong

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

evcad

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

subtlation

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

evcad

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


而且这件事还让我知道了独立专研的重要！！！