|
|
最近，在编程的过程中遇到一个难题。程序的主要目的是读出不同布局中的相同属性块的属性。所以编了以下程序：
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程序就可以选中，不知为什么，请高手解决！如果有更好的方法来选择到不同布局中的相同属性块，请指教，不胜感激！ |
|
置顶卡
