Count text and block entities by color

I need to count text and block entities by color.

These objects can be on the same layer or different layers.

What is the dxf code for color ? if that is the right direction to go.

thanks

This function will return the colour of an entity:

(defun _getentitycolour ( ent )
   (abs
       (cond
           (   (cdr (assoc 62 (entget ent))))
           (   (cdr (assoc 62 (tblsearch "LAYER" (cdr (assoc 8 (entget ent)))))))
       )
   )
)

[ The layer colour if set to ByLayer ]

As for the counting side, I would recommend you use an 'Assoc++' function, demonstrated here.

You can use "QSELECT" command and switch filter by color, change color to desired, and choose entities to apply filter. You must firstly choose either blocks or text objects and then continue to append to selection with other entity type... After selection has been created, use :

(sslength (ssget "_P"))

it should return number of objects in selection set... Hope this helps, M.R.