Ssget with list and cons construction

[broncos15]

I had a question in regards to how to properly format ssget (I am using Lee's special LM:ssget function just so that I can add in text) when I use list and cons. I have looked at afralisp's tutorial, and I tried to apply it, but it isn't working properly. My code is

(setq ss
                 (LM:ssget "\nSelect destination object(s): "
                           '(((list (cons 0 ent0))))
                 )
          )

Where ent0 is:

(setq ent0 (assoc 0 (entget (car ent))))

[broncos15]

Lee's function can be found here: http://www.cadtutor.net/forum/showthread.php?94586-A-wrapper-for-ssget-function.

[ymg3]

broncos,

 

What is the value of ent ?

 

If it is an ENAME you should use:

 

(setq ent0 (assoc 0 (entget ent)))

 

With the above the value of ent0 will be: (0 . "typeofentity")

means you don't need to do a cons

 

So using the wrapper:

 

(setq ss  (LM:ssget "\nSelect destination object(s): "  (list (list ent0))))

[broncos15]

broncos,

 

What is the value of ent ?

 

If it is an ENAME you should use:

 

(setq ent0 (assoc 0 (entget ent)))

With the above the value of ent0 will be: (0 . "typeofentity")

means you don't need to do a cons

 

So using the wrapper:

 

(setq ss  (LM:ssget "\nSelect destination object(s): "  (list (list ent0))))

Ah, that makes sense. Thanks, I am now able to select things, now it's just debugging the rest of the code haha.

[ymg3]

Broncos15,

 

You are Welcome!!

 

May I suggest that you keep variable name like ent0 or ent to represent ENAME.

In your case maybe filter or flt would probably be a better choice of name.

 

ymg

[broncos15]

Broncos15,

 

You are Welcome!!

 

May I suggest that you keep variable name like ent0 or ent to represent ENAME.

In your case maybe filter or flt would probably be a better choice of name.

 

ymg

Thanks ymg3, I'll start incorporating that coding practice into my LISPs. I had a quick question on why I have to use 2 different list functions. I understand why I need to use the first one, but I can't figure out why I need the second one.

[ymg3]

broncos,

 

For your question, you need it because nothing gets evaluated inside the quote list

for example:

 

'((list ent0)) will return  ((LIST ENT0))

 

So replacing the quote with list you get :

 

(list (list ent0))    --->   (((0 . "ELLIPSE")))

 

The wrapper function is expecting a list of list as an argument.

First item in that list can be scope of search for example "_X"

followed by the filter clause. But filter must be list of list.

 

So you end up with something like this:

 

(lm:ssget "\n Your message: " (list "_X" (list ent0)))

ymg

Edited April 22, 2016 by ymg3

[broncos15]

broncos,

 

For your question, you need it because nothing gets evaluated inside the quote list

for example:

 

'((list ent0)) will return  ((LIST ENT0))

So replacing the quote with list you get :

 

(list (list ent0))    --->   (((0 . "ELLIPSE")))

The wrapper function is expecting a list of list as an argument.

 

ymg

Thanks ymg! That was very useful. I'm always trying to learn more about LISP programming so I really appreciate the explanation.