关于选择集的问题
<p>最近，在编程的过程中遇到一个难题。程序的主要目的是读出不同布局中的相同属性块的属性。所以编了以下程序：</p><p> Dim ftype As Integer<br/> Dim fdata As Variant<br/> ftype = 2: fdata = "$title-cn"<br/> Dim ftype(0 To 1) As Integer<br/> Dim fdata(0 To 1) As Variant<br/> ftype(0) = 2: fdata(0) = "$title-cn"<br/> ftype(1) = 410: fdata(1) = "1"<br/> sset.Select acSelectionSetAll, , , ftype, fdata<br/> Set acadBlkTitleRef = sset.Item(0)</p><p>程序前半部分设立了过滤器，包括图块名称和布局名称。在CAD中运行（ENTGET (CAR (ENTSEL))）后选择此属性块时，410就表示的是布局名称。但是，运行此程序后，却选不到此属性块，选择集为空。同样的过滤器，在CAD中运用AUTOLISP程序就可以选中，不知为什么，请高手解决！如果有更好的方法来选择到不同布局中的相同属性块，请指教，不胜感激！</p>
页:
[1]