And to include MText, MLeaders, ?blocks?, ... (I'm not sure about blocks, I have not yet needed to pull text from a block, and there is some text in the titleblock that is not attributable, could get ugly), simply adjust the line(s)
'(lambda ( x ) (wcmatch (cdr (assoc 0 (entget x))) "TEXT,[color=red]MTEXT,MLEADER,[/color]ATTRIB"))
to include them.
Question: is this section:
(grvecs
(list c
(list -s 0) (list s 0) (list 0 -s) (list 0 s)
(list -s 1) (list s 1) (list 1 -s) (list 1 s)
(list -s -1) (list s -1) (list -1 -s) (list -1 s)
)
(list
(list r 0. 0. (car q))
(list 0. r 0. (cadr q))
(list 0. 0. r 0.)
(list 0. 0. 0. 1.)
)
)
for where the + sign would be displayed? And if so, can they carry a smaller number?
I was just wondering if the marker could be brought in closer to the selection box and put in the upper right corner, so it's similar to ACAD's cursors when used (much like the matchprop cursor).
Something I can play with in my spare time.
But hey, while your ...
... a bit carried away sometimes ...
For object highlighting a little more code is needed...