It’s possible AutoCad selectio
Dear All,It’s possible AutoCad selection save (s1, s2, s3 etc.) & after some time
reuse the selection sets inside some lisp or inside a command
Just like Photoshop selection Of course, but!
and they exist only in a single session, ie closed\open and they're gone: ( I think TimSpangler wrote something that would facilitate this a while back. At the Command: prompt type this...
(setq ss1 (ssget))
Select your objects.
This creates a selection set called ss1.
To retrieve (or reuse) the selection set just type !ss1 at any Select Objects: prompt.
Once you close the drawing the selection set is gone like the others have said.
You can do this at anytime from the command prompt.
I had several selection sets like this written into my in my menu.
Hope this helps...
Another way to create groups separately for the particular selection set
These woul stored in the current drawing
See Help file about
~'J'~
DEAR SIR,
THX FOR HELP ME.. Glad to help someone (Finally!!)
I do not know how it was in previous versions, but in 2010 does not happen, ie (setq ss1 (ssget)) works, but the Select Objects: ss1 - no, writes *Invalid selection*, but if you first select(highlight) selection (sssetfirst nil ss1), and then apply it to any command that all is well.
Or put in command line this(vl-cmdf "command name" ss1 "") for example(vl-cmdf "_move" ss1 "")
Well ... me, in principle, it is not necessary, just curious, where can I see this (written by TimSpangler) (Can't sleep)
Here's a way...
You'll need this subroutine: http://www.cadtutor.net/forum/showpost.php?p=271368&postcount=13
;;; Stored Selection Sets;;; Required Subroutines: AT:ListSelect;;; Alan J. Thompson, 03.26.10(defun c:SSS (/ #Choice #Name #SS) (vl-load-com) (or *SSS:Option* (setq *SSS:Option* "Store")) (initget 0 "Recall rEmove Store") (if (vl-consp *SSS:Sets*) (setq *SSS:Option* (cond ((getkword (strcat "\nStore Selection Sets\nSpecify option. : " ) ;_ strcat ) ;_ getkword ) (*SSS:Option*) ) ;_ cond ) ;_ setq (setq *SSS:Option* "Store") ) ;_ if (cond ((eq *SSS:Option* "Recall") (if (vl-consp *SSS:Sets*) (and (setq #Choice (car (AT:ListSelect "Recall Stored Selection Sets" "Select Selection Set:" "10" "10" "false" (vl-sort (mapcar 'car *SSS:Sets*) '
I think I saw it on theSwamp.org a while back
页:
[1]
2