|
我在Thisdrawing1中拷贝了数份LWPOLYLINE,然后运行以下程序
可是没达到预期的效果???
Sub SelSame()
Dim ss As AcadSelectionSet
Dim ent As AcadLWPolyline
Dim pnt As Variant
Dim gbcode(0 To 2) As Integer
Dim gbdata(0 To 2) As Variant
On Error Resume Next
ThisDrawing.Utility.GetEntity ent, pnt, "请选择:"
gbcode(0) = 0: gbdata(0) = "LWPOlYLINE"
gbcode(1) = 370: gbdata(1) = ent.Lineweight
gbcode(2) = 38: gbdata(2) = ent.Elevation
Set ss = ThisDrawing.SelectionSets.Add("SS")
ss.Select acSelectionSetAll, , , gbcode, gbdata
If ss.Count = 0 Then
MsgBox "没有相同对象!!!"
Else
ss.Highlight True
End If
ss.Delete
End Sub
|
|