AutoCAD VBA 通过选择集 删除图层上所有对象和图层
2009-10-29 11:05
405 查看
AutoCAD VBA 通过选择集 删除图层上所有对象和图层
'删除图层上所有对象
Function DelAllInLayer(ByVal LName As String)
'On Error Resume Next
Dim SSet As AcadSelectionSet
Set SSet = CreateSelectionSet("XXX")
Dim Ft(0) As Integer, Fd(0)
Ft(0) = 8: Fd(0) = LName
SSet.Select acSelectionSetAll, , , Ft, Fd
Dim E As AcadEntity
MsgBox SSet.Count
For Each E In SSet
E.Delete
Next
End Function
'删除图层上所有对象
Function DelAllInLayer(ByVal LName As String)
'On Error Resume Next
Dim SSet As AcadSelectionSet
Set SSet = CreateSelectionSet("XXX")
Dim Ft(0) As Integer, Fd(0)
Ft(0) = 8: Fd(0) = LName
SSet.Select acSelectionSetAll, , , Ft, Fd
Dim E As AcadEntity
MsgBox SSet.Count
For Each E In SSet
E.Delete
Next
End Function
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- AUTOCAD二次开发-----删除一个图层里面的所有对象
- AUTOCAD二次开发-----删除一个图层里面的所有对象
- jquery选择对象同辈所有元素
- DB2删除schema和该模式下所有对象
- MapXtreme删除图层中某个对象
- python中快速删除实例对象中的所有属性
- 支持所有浏览器，通过JS为 Table表增加、删除一行
- Oracle中删除用户下所有对象的多种方法
- 如何判断一个C++对象是否在堆上（通过GetProcessHeaps取得所有堆，然后与对象地址比较即可），附许多精彩评论
- 删除用户及所有对象,创建用户
- ol4实现针对选定图层的选择和删除功能
- jquery 通过属性选择器获取input不为disabled的对象
- ARX的方法如何实现删除一个选择集中所有实体
- 通过java反射机制，获取对象的属性和值（包括所有继承的父类）
- ORACLE删除某用户下所有对象
- Yii CGridView 复选框、选择所有、批量删除、批量处理
- 使用选择集选择最后一个对象并删除
- Java循环一个对象的所有属性，并通过反射给这些属性赋值/取值
- 删除某用户下的所有对象或者某类对象
- oracle 导入导出数据库、删除用户以及该用户所有的对象