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

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

比如有两个图层：
方法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 发表于 2005-6-14 20:49:00

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

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

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

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

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

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

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

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

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

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

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