subtlation 发表于 2003-11-27 13:53:00

[求助]谁帮我看看有关选择集的代码

'如何让选择集ssetobj中块名为"钢筋编号"的块形成另一个集合sset1
Dim sset1 As AcadSelectionSet
Set sset1 = ssetObj
Dim FType(0) As Integer
Dim FData(0) As Variant
FType(0) = 2
FData(0) ="钢筋编号"
Dim FilterType As Variant
Dim FilterData As Variant
FilterType = FType
FilterData = FData
'选择集sset1中只留下名字为"钢筋编号"的块
sset1.Select acSelectionSetPrevious, FilterType, FilterData'这一步出错

If sset1.Count = 0 Then Exit Sub

efan2000 发表于 2003-11-27 13:59:00

选择集之间的操作要使用AddItems来进行，即遍历ssetObj，查出名为"钢筋编号"的块赋给一个对象数组，然后在sset1使用AddItems添加。

subtlation 发表于 2003-11-27 14:06:00

谢谢，要重写一下代码了。
页: [1]
查看完整版本: [求助]谁帮我看看有关选择集的代码