Leaderboard

Checking in to celebrate my one year in badge! This site has been so beneficial to me it's awesome! Thanks all!

That's great to hear Mory. It's been an interesting (and long) journey for this site. I first started putting tutorial materials online in 1996 and started hosting this forum in 2002, although there was a community site running for a couple of years before that.

Try this (defun c:test ( / obj atts att file ofile) (defun BubbleSort (lstItems / blnFlag item1 item2 lstItems2) (setq item1 (car lstItems)) (foreach item2 (cdr lstItems) (if (<= item1 item2) (setq lstItems2 (cons item1 lstItems2) item1 item2 ) (setq lstItems2 (cons item2 lstItems2) blnFlag T ) ) ) (if blnFlag (BubbleSort (reverse (cons item1 lstItems2))) (reverse (cons item1 lstItems2)) ) ) (setq file (getfiled "Output File" "" "csv" 1)) (setq ofile (open file "w")) (setq ss (ssget '((0 . "INSERT")))) (setq lst '()) (repeat (setq x (sslength ss)) (setq obj (vlax-ename->vla-object (ssname ss (setq x (- x 1))))) (setq atts (vlax-invoke obj 'Getattributes)) (foreach att atts (if (= (vlax-get att 'tagstring) "CELL_4F3") (setq lst (cons (vlax-get att 'textstring) lst)) ) ) ) (setq lst (BubbleSort lst)) (foreach val lst (write-line val ofile) ) (close ofile) (princ) ) (c:test)

Glad to hear. Went and had a look WOW joined December 1st 2005. Had no idea that long ago. I am sure others are older.