VB使用选择集问题??

dchlmz

    Set acadApp = New AutoCAD.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时又是正常的

还请各位指点,谢谢

dchlmz

乍没有人回呀,

dchlmz

只能自己顶一下了

dchlmz

这么久，没有人回复，在顶一下...

烟雨.江南

 Set SetObj = CreateSelectionSet

这一句， CreateSelectionSet 是你自己定义的一个函数吧？你调试一下，看看该语句之后，SetObj这个变量是否被赋值了。

dchlmz

多谢谢 烟雨.江南 提醒，是我疏忽了