Topic: Adding string to list..

[Andrea]

Hi all,..

Can any one tell me how I can add string to list...

Code: [Select]

(setq list1  "A11,A11v,A01,A01v,A21,A31,A41")
(setq ss2 (ssget "X" '(( 0 . "INSERT " ))))
'(
    (-4 . "<AND ")
    (0 . "INSERT ")
    (-4 . "<NOT ")
    (2 . list1)   ;;;;;;;      <----- ???
    (-4 . "NOT>")   
    (-4 . "AND>")
)))
thanks.

[uncoolperson]

use some (cons)

Code: [Select]

(list
    '(-4 . "<AND ")
    '(0 . "INSERT ")
    '(-4 . "<NOT ")
    (cons 2 . list1)
    '(-4 . "NOT>")   
    '(-4 . "AND>")
)

[Andrea]

uncoop...

Thanks..
to many work here....no time to think 

thanks again.

[Fatty]

I use cons instead of quoted list always
Something like this:

Code: [Select]

(setq ss2 (ssget "X" (list
              (cons -4  "<AND ")
              (cons 0  "INSERT ")
              (cons -4  "<NOT ")
              (cons 2  list1)   
              (cons -4 "NOT>")   
              (cons -4  "AND>")
              )))
~'J'~

[CAB]

You can try this:

Code: [Select]

(setq lst '( "A11"
      "A11v" "A01"
      "A01v" "A21"
      "A31"  "A41"
))
(setq ss2 (ssget "_X"
                 (cons '(0 . "INSERT")
                       (mapcar '(lambda (x) (cons [color=red]2[/color] (strcat "~" x))) lst)
                 )
          )
)
Oops, Thanks Kerry.
Yes, I was actually testing with TEXT objects and forgot to change that back. 

[Kerry]

I think Alan meant (cons 2 .... not (cons 1 ...

Code: [Select]

(setq ss2 (ssget "_X"
                 (cons '(0 . "INSERT")
                       (mapcar '(lambda (x) (cons 2 (strcat "~" x))) lst)
                 )
          )
)