|
|
发表于 2002-12-12 19:22:00
|
显示全部楼层
Private Sub Command1_Click()
Dim ssetobj As acadselectionset
' 这里应检测该名称的选择集是否存在，CAD不允许创建已经存在的选择集。
'Set ssetobj = acadapp.activedocument.selectionsets.Add("test")
on error resume next
Set ssetobj = acadapp.activedocument.selectionsets("test")
if err then set ssetobj=acadapp.activedocument.selectionsets.add("test")
on error goto 0
AppActivate acadapp.Caption
Dim ftype(0) As Integer
Dim fdata(0) As Variant
ftype(0) = 0
fdata(0) = "circle"
' 选择集的过滤机制是要求整型数组的类型和变体型数组的数据。因而下面的定义是画蛇添足，没必要。
'Dim filtertype As Variant
'Dim filterdata As Variant
'filtertype = ftype
'filterdata = fdata
' 这里选择对象时，最好先隐藏本身的窗体，即使窗体是非模态的。
'ssetobj.SelectOnScreen filtertype, filterdata
me.hide
ssetobj.SelectOnScreen ftype, fdata
AppActivate Form1.Caption
' 可以用ssetobj.count来判断选择集中的实体数目。
Dim pickedobjs As acadentity
For Each pickedobjs In ssetobj
pickedobjs.highlight (ture)
pickedobjs.Update
Next
ssetobj.Delete
'当一个过程结束时，要养成手动清除对象变量的习惯，以免各种原因引进内存泄露。
set ssetobj=nothing
end Sub |
|
置顶卡
