I have a lisp that creates a legend based on active blocks in the drawing, it uses an external text file to check block names and populates the legend. I need to modify the lisp. We are transitioning from using blocks to description keys. Is there a way to do something like tblnext with cogo points based on the point style?

for example this line would cycle through the blocks
Code:
 (setq bname (cdr (assoc 2 (setq blist (tblnext "BLOCK" T)))))
the lisp then checks bname against the external file and if it appears in the list it adds the symbol and text to the legend.
I need to do the same but based on the point style of the cogo point.

Code:
(setq ptStyle (VLAX-GET c3ddoc 'pointstyle))
I was thinking that this might be a start.