It’s possible AutoCad selectio

sachindkini · 发表于 2022-7-6 11:29:11

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

BearDyugin · 发表于 2022-7-6 11:37:50

Of course, but!
and they exist only in a single session, ie closed\open and they're gone: (

Lee Mac · 发表于 2022-7-6 11:42:20

I think TimSpangler wrote something that would facilitate this a while back.

ILoveMadoka · 发表于 2022-7-6 11:46:22

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...

fixo · 发表于 2022-7-6 11:52:51

Another way to create groups separately for the particular selection set
These woul stored in the current drawing
See Help file about

~'J'~

sachindkini · 发表于 2022-7-6 11:57:03

DEAR SIR,

THX FOR HELP ME..

ILoveMadoka · 发表于 2022-7-6 12:01:52

Glad to help someone (Finally!!)

BearDyugin · 发表于 2022-7-6 12:06:59

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)

alanjt · 发表于 2022-7-6 12:13:53

(Can't sleep)
Here's a way...

You'll need this subroutine: http://www.cadtutor.net/forum/showpost.php?p=271368&postcount=13

[code];;; 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. [Recall/rEmove/Store] : " ) ;_ 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*) '

Lee Mac · 发表于 2022-7-6 12:16:55

I think I saw it on theSwamp.org a while back

[编程交流] It’s possible AutoCad selectio

发表回复

精选推荐