标签:
杂谈 |
分类: 应用 |
在CASS下根据所选择的实体编码、图层进行闭合操作把代码copy到代码窗口中即可。
代码如下:
PublicSub ClosedByCode()
'根据实体编码闭合实体
'创建空白选择集
Dim SelSet As AcadSelectionSet
Set SelSet = CreateSelectionSet
'建立选择集过滤器
Dim TypeArray As Variant
Dim DateArray As Variant
BuildFilter TypeArray, DateArray, 0, "LWPOLYLINE", 8, "jmd", 70, "128"
'0 实体类型
'8 实体所在图层
'过滤出所要选择的图块
SelSet.Select acSelectionSetAll, , , TypeArray, DateArray
Dim LwPObj As AcadLWPolyline
Dim I As Integer
For I = 0 To SelSet.Count - 1
Set LwPObj = SelSet.Item(I)
Dim xDataOut As Variant
Dim xTypeOut As Variant
LwPObj.GetXData "", xTypeOut, xDataOut
Select Case xDataOut(1)
Case "141101", "141111", "141121", "141131", "141141", "141151", "141161", "141103", "141200", "141300", "141400", "141500", "141600", "141700"
'**************************************************************
' Co de 名称
' 141101 一般房屋
代码如下:
Public
'根据实体编码闭合实体