topic Re: How to verify empty selection in (SSGET) in Visual LISP, AutoLISP and General Customization Forum

How to verify empty selection in (SSGET)

arperezinf — Wed, 15 Dec 2021 11:33:46 GMT

Hello 👋

I have a problem with my routine lisp code, it gives me an error when I have no element selected and I press the enter key.

I would like to know how I can make it check if the selection is empty in (ssget) and if it is, repeat (ssget), until there is a selection or the routine is canceled.

I wanted to use an if statement, but I didn't know where to put the statement.

This is the code

(setq linkvalue (itoa value) ss (ssget) len (sslength ss) cont 0 entdata linkvalue )

Thank you very much for reading my message.
Greetings.

Re: How to verify empty selection in (SSGET)

ВeekeeCZ — Wed, 15 Dec 2021 12:02:32 GMT

where do you get a "value" from?

are you selecting texts to set "linkvalue" as their contents?

here is an example:

  (if (setq ss (ssget))
    
    (repeat (setq index (sslength ss))
      (setq entname (ssname ss (setq index (1- index))))
      (setq entdata (entget entname))
      (... do something ...)
      
      ) ; end of repeat
    ) ; end of if

Re: How to verify empty selection in (SSGET)

Kent1Cooper — Wed, 15 Dec 2021 12:10:04 GMT

@arperezinf wrote:

.... I would like to know how I can make it check if the selection is empty in (ssget) and if it is, repeat (ssget), until there is a selection or the routine is canceled.

.....

(setq linkvalue (itoa value))

(while (not (setq ss (ssget))))

(setq len (sslength ss) ....

Re: How to verify empty selection in (SSGET)

arperezinf — Wed, 15 Dec 2021 12:50:42 GMT

Hello 👋 @ВeekeeCZ @Kent1Cooper

Thank you very much for your comments.

I ask for the value in another line of code before this part of code that I do not publish and I am using (getint), an integer and I am selecting blocks.

Let me analyze how I implement what they say in my code because I don't know much about visual lisp programming.

Thank you very much for reading my message.
Greetings.

Re: How to verify empty selection in (SSGET)

arperezinf — Wed, 15 Dec 2021 19:15:12 GMT

Hello 👋 @ВeekeeCZ @Kent1Cooper

Thank you very much to both.🤝

I already managed to do what I needed!😀👌
@Kent1Cooper your code works as I need, it is the solution I was looking for.👏🙏🤝👍

Thank you very much for reading my message.
Greetings.

Re: How to verify empty selection in (SSGET)

Sea-Haven — Thu, 16 Dec 2021 00:51:23 GMT

Like Kent's answer I often use an alert to show ssget failed.

(if (=(setq ss (ssget)) nil) (alert "There is no selection set please run again") (repeat (setq index (sslength ss)) The other is a hard exit but have to be careful does not cause problems. (if (=(setq ss (ssget)) nil) (progn (alert "There is no selection set please run again\nWill now exit") (exit) ) (repeat (setq index (sslength ss))

Re: How to verify empty selection in (SSGET)

arperezinf — Thu, 16 Dec 2021 22:13:42 GMT

Thank you very much for your comment, I will keep it in mind.
Greetings.