奉献一选择集程序(vba)

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

...............................................
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

这是乐筑天下原创，三行搞掂：

奉献一选择集程序(vba)

发表回复

精选推荐