mycad 发表于 2006-1-12 18:48:00

奉献一选择集程序(vba)

...............................................
On Error Resume Next
' Delete the Selection Set if it Exists
If Not IsNull(ThisDrawing.SelectionSets.Item("xxx")) Then
    Set sset = ThisDrawing.SelectionSets.Item("xxx")
    sset.Delete
End If
   
    Set sset = ThisDrawing.SelectionSets.Add("xxx")
..................................................................................

songzhi 发表于 2006-1-12 21:03:00

抄的吧？

mccad 发表于 2006-1-12 21:40:00

这是乐筑天下原创，三行搞掂：
页: [1]
查看完整版本: 奉献一选择集程序(vba)