|
发表于 2004-10-14 16:10:00
|
显示全部楼层
Sub ttt()
On Error Resume Next
Dim ss As AcadSelectionSet
Dim ft(0) As Integer, fd(0)
ft(0) = 0: fd(0) = "Arc,Circle,Spline,Line"
ThisDrawing.SelectionSets("TTT").Delete
Set ss = ThisDrawing.SelectionSets.Add("TTT")
ss.Select acSelectionSetAll, , , ft, fd
Dim element As AcadEntity
For Each element In ss
If element.ObjectName = "AcDbCircle" Or element.ObjectName = "AcDbArc" Then
element.Color = acRed
End If
Next
End Sub
|
|