xh_ldh 发表于 2002-10-23 01:21:00

[讨论][求助]

偏移问题：
选中对象可以双向偏移，但不能重复使用
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 发表于 2002-10-23 21:38:00

使用以下的函数解决

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

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

xh_ldh 发表于 2002-10-24 00:34:00

感谢！

mccad
   你好！
   确实解决了问题
   非常感谢！！！！
页: [1]
查看完整版本: [讨论][求助]