社区 › VB › VB使用选择集问题??

dchlmz 发表于 2007-9-3 09:12:00

VB使用选择集问题??

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时又是正常的
还请各位指点,谢谢

dchlmz 发表于 2007-9-5 06:44:00

乍没有人回呀,

dchlmz 发表于 2007-9-7 10:56:00

只能自己顶一下了

dchlmz 发表于 2007-9-28 09:15:00

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

烟雨.江南 发表于 2007-9-28 09:50:00

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

dchlmz 发表于 2007-10-10 09:10:00

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

查看完整版本: VB使用选择集问题??