LinceCAD tblnext
(tblnext table [rewind])
Next record of the table, or nil at the end. With a non-nil second argument, goes back to the first one.
(setq r (tblnext "LAYER" T)) (while r (princ (strcat "\n" (cdr (assoc 2 r)))) (setq r (tblnext "LAYER")))
(tblnext table [rewind])
Next record of the table, or nil at the end. With a non-nil second argument, goes back to the first one.
(setq r (tblnext "LAYER" T)) (while r (princ (strcat "\n" (cdr (assoc 2 r)))) (setq r (tblnext "LAYER")))