[讨论][求助]

xh_ldh

偏移问题：
选中对象可以双向偏移，但不能重复使用
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

mccad

因为同名的选择集只有建一次，不然就会出错。
所以先要将同名的选择集删除

http://www.mjtd.com/function/vba/008.htm

xh_ldh

mccad
   你好！
   确实解决了问题
   非常感谢！！！！