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
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.Code:(setq bname (cdr (assoc 2 (setq blist (tblnext "BLOCK" T)))))
I need to do the same but based on the point style of the cogo point.
I was thinking that this might be a start.Code:(setq ptStyle (VLAX-GET c3ddoc 'pointstyle))