乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 104|回复： 6

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

[复制链接]
evcad

1

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
8
发表于 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

1

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
8
发表于 2005-6-14 20:49:00 | 显示全部楼层
希望大家多停留我这CAD第一贴
回复

使用道具 举报

zhuxuhong

20

主题

115

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
195
发表于 2005-6-14 21:06:00 | 显示全部楼层
你确定图形中是否存在"图层2"?
对于方法1是先要生成实体，再改变实体的图层
对于方法2
回复

使用道具 举报

zhuxuhong

20

主题

115

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
195
发表于 2005-6-14 21:07:00 | 显示全部楼层
对于方法2 是先设置当前层，这时生成的实体就自动位于该图层了
回复

使用道具 举报

evcad

1

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
8
发表于 2005-6-14 22:17:00 | 显示全部楼层
我是在用VBA前就手动定义好了图层1（由白色）、图层2（由绿色），因为设计时要用VBA调用图层2，以便画出绿色线，可两种方法不知为何都不行
有什么好方法吗？？？
谢谢
回复

使用道具 举报

subtlation

26

主题

177

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
281
发表于 2005-6-14 23:08:00 | 显示全部楼层
把程序放上来，放几行句子，很难知道为什么不行的
回复

使用道具 举报

evcad

1

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
8
发表于 2005-6-14 23:40:00 | 显示全部楼层
谢谢大家一直的提示和鼓励
而且这件事还让我知道了独立专研的重要！！！
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-4 01:42 , Processed in 0.569670 second(s), 67 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表