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

myfreemind 发表于 2003-3-10 23:40:00

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 发表于 2003-3-11 19:24:00

你还是用实用函数中的函数吧

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 发表于 2015-10-12 15:08:51

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

链接无效啊！~

页: [1]

明经CAD社区's Archiver

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

你还是用实用函数中的函数吧