关于选择集的问题

weixin7944

最近，在编程的过程中遇到一个难题。程序的主要目的是读出不同布局中的相同属性块的属性。所以编了以下程序：

 Dim ftype As Integer
    Dim fdata As Variant
    ftype = 2: fdata = "$title-cn"
        Dim ftype(0 To 1) As Integer
    Dim fdata(0 To 1) As Variant
    ftype(0) = 2: fdata(0) = "$title-cn"
    ftype(1) = 410: fdata(1) = "1"
    sset.Select acSelectionSetAll, , , ftype, fdata
   Set acadBlkTitleRef = sset.Item(0)

程序前半部分设立了过滤器，包括图块名称和布局名称。在CAD中运行（ENTGET (CAR (ENTSEL))）后选择此属性块时，410就表示的是布局名称。但是，运行此程序后，却选不到此属性块，选择集为空。同样的过滤器，在CAD中运用AUTOLISP程序就可以选中，不知为什么，请高手解决！如果有更好的方法来选择到不同布局中的相同属性块，请指教，不胜感激！