我的选择集这样写，对吗？请高手指教~~

myfreemind

dim Ftype(2) as integer
dim Fdata(2) as Variant
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("newsset")
Ftype(0)=8:Fdata(0)="NEWLAYER"
Ftype(1)=62:Fdata(1)=5
Ftype(2)=0:Fdata(2)="TEXT"
sset.Select acSelectionSetAll, , , Ftype, Fdata

我想选择在NEWLAYER图层中的红色文字，上面的程序能做吗？好象Ftype和Fdata无法设置成单维三元素数组？

mccad

VBA中的选择集函数：
http://www.mjtd.com/function/index.asp?nclassid=3&ordertype=bysort&orderkey=33

BuildFilter  用数组方式填充一对变量以用作为选择集过滤器使用的函数：
http://www.mjtd.com/function/list.asp?id=288&ordertype=bysort&orderkey=33

qiush1234

mccad 发表于 2003-3-11 19:24
VBA中的选择集函数：
http://www.mjtd.com/function/index.asp?nclassid=3&ordertype=bysort&orderkey=33
...

链接无效啊！~