![](source/plugin/imc_colorcode/images/loading.gif) - Private Sub CommandButton1_Click()
- Dim filtertype(0) As Integer
- Dim filterdata(0) As String
- Dim S As AcadSelectionSet
- filtertype(0) = 0
- filterdata(0) = "TEXT"
- Me.Hide
- Set S = ThisDrawing.SelectionSets.Add("A18")
- S.SelectOnScreen filtertype, filterdata
-
- Dim a As AcadEntity
- For Each a In S
- a.color = acBlue
- a.Update
- Next a
- End Sub
谢谢明总,可是您看:这次出现的是 “参数FILTERDATA (位于SELECTONSCREEN中无效) |