|
|
Set acadApp = New .AcadApplication
'acadApp.Visible = False
acadApp.Visible = True
acadApp.Application.Documents.Open FileName
acadApp.Application.ActiveDocument.PurgeAll
acadApp.Application.ZoomExtents
acadApp.Application.Update
'创建空白选择集
Dim SetObj As AcadSelectionSet
Set SetObj = CreateSelectionSet
'建立选择集过滤器
Dim TypeArray(1) As Integer
Dim DateArray(1) As Variant
BuildFilter TypeArray, DateArray, 8, "TK", 0, "LWPOLYLINE"
'过滤出所要选择的图元
SetObj.Select acSelectionSetAll, , , TypeArray, DateArray
'显示选定的图块名称及数量
MsgBox "数量为" & SetObj.Count
利用上面方法SetObj.Count总是为空的(调试时SetObj.Count显示为对象变量或WITH块变量未设置,),不知道为什么??可是用VBA时又是正常的
还请各位指点,谢谢
|
|
置顶卡
