偏移问题：
选中对象可以双向偏移，但不能重复使用
Set sset = ThisDrawing.SelectionSets.Add("SS6")
请问如何解决！！
Sub Ch4_AddToASelectionSet()
Dim sset As AcadSelectionSet
Dim OffsetValue As Double
OffsetValue = ThisDrawing.Utility.GetReal("请输入偏移距离：")
Set sset = ThisDrawing.SelectionSets.Add("SS6")
' 提示用户选择对象并将它们添加到选择集中。
' 要完成选择，按回车。
sset.SelectOnScreen
' 在选择集中循环并将每一对象偏移。
Dim Obj As AcadEntity
For Each Obj In sset
Obj.Offset OffsetValue
Obj.Offset -OffsetValue
Next Obj
Set sset = Nothing
End Sub
置顶卡
