{求助}下面这段程序提示选择集已存在，在命令执行前用过sendcommand boundary

bkb · 发表于 2016-5-3 23:50:00


Private Sub Command3_Click()
sum = 0
Dim sSetObj As AcadSelectionSet
Set sSetObj = ThisDrawing.SelectionSets.Add("test1")
AppActivate acadapp.Caption
sSetObj.SelectOnScreen
AppActivate Form1.Caption
Dim pickedobjs As AcadEntity
For Each pickedobjs In sSetObj
text = pickedobjs.Area
sum = sum + text
Next
sSetObj.Delete