I want to select several same ACI color entities and then display grip.
on Drawing...
some entities color = 255,194,10 (True Color)
some entities color = 40 (ACI color)
all these entities are same ACI color 40 (but I want to Filtering True Color entities)
I am trying to following code.. because It seems to be DXF group filter does not support True color
Sub ColorFilter()
Dim objSelSet As AcadSelectionSet
On Error Resume Next
ThisDrawing.SelectionSets("sset").Delete
On Error GoTo ErrHere
Set objSelSet = ThisDrawing.SelectionSets.Add("sset")
Dim intGcode(0) As Integer
Dim varCodeData(0) As Variant
intGcode(0) = 62
varCodeData(0) = "40"
objSelSet.Select acSelectionSetAll, , , intGcode, varCodeData
Dim lngMax As Long
Dim lngCnt As Long
Dim objRemove(0) As AcadEntity
lngMax = objSelSet.Count
For lngCnt = 0 To lngMax - 1
Set objRemove(0) = objSelSet.Item(lngCnt)
If objRemove(0).TrueColor.ColorMethod = acColorMethodByRGB Then
objSelSet.RemoveItems objRemove
End If
Next
objSelSet.Delete
ThisDrawing.SendCommand "(sssetfirst nil (ssget " & Chr(34) & "_P" & Chr(34) & ")) "
Exit Sub
ErrHere:
If Err Then
Err.Clear
MsgBox Err.Description
End If
End Sub
'----------------------------
But, it does not work
and I am trying to
http://discussion.autodesk.com/thread.jspa?messageID=415583 with using VLAX instead of above SendCommand..
also end in failure.
Is there any way? or any ideas?