0 Members and 1 Guest are viewing this topic.
(if names (progn (setq names (acad_strlsort names) names (reverse names) ) (mapcar '(lambda (x) (mapcar '(lambda (y) (if (= (vla-get-effectivename y) x) (setq lst (cons y lst)) ) ) ss ) (if lst (setq str (strcat "\n" x " ........... " (itoa (length lst)) str ) lst nil ) ) ) names ) (princ str) ) ) ) (princ "\nNo blocks...") ) (princ))
Sorry I'm not sure about your post..how does this workplease explain..thanks
Okay, warm enough, let's not fan this one anymore.
ctb stb is just my rant..thats why i post it on the 'rant' post...to vent. But dont take it personal. i can't believe that somebody would react like that. unbelievable!
Quote from: CADEC70 on February 13, 2008, 11:59:21 AMctb stb is just my rant..thats why i post it on the 'rant' post...to vent. But dont take it personal. i can't believe that somebody would react like that. unbelievable!guess it must just be the retard in us all.
truth hurts