[求助]：如何通过VBA实现图层管理

rose0415292 · 发表于 2006-3-18 18:03:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

各位，我是刚开始学习VBA的菜鸟，有j几个问题想请教：

1。我想实现自动将我所选择到的对象所在的图层关闭
但是在编程过程中我遇到了一个问题：
如何获取各个对象所在图层的名称
（因为我想通过设置layeron属性来实现该功能）

2。如何可以实现选择到多个对象
GetEntity()方法一次好像只能选择到一个对象

谢谢各位了！！

雪山飞狐(lzh) · 发表于 2006-3-18 19:10:29

1、Object.Layer
2、用选择集

rose0415292 · 发表于 2006-3-19 15:47:34

选择集？？
你是说用循环语句吗？？
其实我是想找到一个语句可以让我能够框选来选择对象，然后将他们放到一个选择集里面，再将他们所在的图层关闭
请问斑竹，你有好的办法吗？？
请多赐教！！

雪山飞狐(lzh) · 发表于 2006-3-19 21:24:49

Sub test123()
On Error Resume Next
Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("Test").Delete
Set ss = ThisDrawing.SelectionSets.Add("Test")
ss.SelectOnScreen
End Sub

macula55 · 发表于 2006-3-20 11:37:40

1、AcadEntity.layer 得到CAD对象所在图层的名子

2、使用AcadSelectionSet对象

账号		自动登录	找回密码
密码			立即注册

[求助]：如何通过VBA实现图层管理

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子