quick select lisp command please!

Can someone write me a lisp that would use the quick select command using to select everything on layer STR-TXT using window select. I use this SO much at work and it would save a great deal of time. I've tried for 3 hours but I think this is beyond me. Thank you for any help!

try

 
(ssget '((8 . "STR-TXT")))

(defun c:test (/ ss)
 (if (setq ss (ssget '((8 . "STR-TXT"))))
   (command "_.copy" ss "" pause)
   (prompt "\nNo objects selected")
 )
 (princ)
)

I would prefer it this way .

(sssetfirst nil '(ssget "_x" '((8 . "STR-TXT"))))

Tharwat

I would prefer it this way .

 

(sssetfirst nil '(ssget "_x" '((8 . "STR-TXT"))))

 

And why is that? Just curious.

SO CLOSE..IT RECOGNIZES THE STR-TEXT LAYER THOUGH IT'S TELLING ME HOW MANY ENTITIES THERE ARE WITHOUT ACTUALLY SELECTING THEM..THANKS LT. DAN.."I'M NOT A SMART MAN"

(defun c:QS (/ SS)

(ssget '((8 . "STR-TXT")))

(princ)

)

what are you trying to accomplish with the objects?

TRYING REMARK AND THARWAT313 CODE POPS UP

bad argument type: lselsetp (SSGET "_x" (QUOTE ((8 . "STR-TXT")))); error: An

error has occurred inside the *error* functionAutoCAD variable setting

rejected: "cmdecho" nil

DO I HAVE A SETTING WRONG..TRIED CMDECHO 1?? SORRY NEWB ON THE FORUMN

I use the quick select layer all day long .. Just a basic quick select..layer..str-txt..this is just a starting point..hopefully i can evolve from here

try this

 

(defun c:test (/ ss)
 (if (setq ss (ssget '((8 . "STR-TXT"))))
   (command "_.copy" ss "" pause pause)
   (prompt "\nNo objects selected")
 )
 (princ)
)

does this work?

updated! sorry about that. try again

My two cents...

(defun c:FOO (/ ss count)
 (if (setq ss (ssget "_x" '((8 . "STR-TXT"))))
   (progn
     (sssetfirst nil ss)
     (prompt
       (strcat
         "\n  >>  "
         (cond
           ((= 1 (setq count (sslength ss)))
            (strcat "1 Object"))
           ((< 1 count)
            (strcat (rtos count 2 0) " Objects")))
         " Selected ")))
   (prompt "\n  <!>  No Objects Selected  <!> "))
 (princ))

I am sorry, it should not be with quote after nil.

Here it goes

(sssetfirst nil (ssget "_x" '((8 . "STR-TXT"))))

Remark, this code would select all entities that included within Layer "STR-TXT" and the user would see the selection set

in a dwg.

Thanks

That seems just to select all the selected entities...any other suggestions?

(defun c:Test (/ ss)
 (sssetfirst nil (setq ss (ssget '((8 . "STR-TXT")))))
 (princ)
)

Sorry! Lt dan that worked perfect! Thank you! Also for the entire drawing (which i'll definitely need) renderman's code worked great. Thank you so much! Wish i asked 3 hrs ago!

Thank you too alanjt

No problem! If you would like to learn autolisp visit: http://www.afralisp.net

This is a good place to start