[讨论]如何把表转换为字符串？

yqwzx

那在选择集中如果如下怎么办啊
(ssget “X”'((8. “BEAM") (0. "LINE"))) 我想把其中的图层设置为变量(setq lay "BEAM")
然后(ssget “X”'((list 8 . lay ) (0. "LINE")))调用为什么不行啊，请斑竹明示。

无痕

ssget “X”(list(cons 8 lay ) (0 . "LINE")))

wkaii

才写的简单表转换为字符串的lisp代码:
(defun c:tt(/ a  lst_str)
  (setq a '((1 22 3  2) (3 4 5 "111" "ss")))
  (setq lst_str "")
  (lst->str a)
  (princ lst_str)
  (getpoint)
  )
(defun lst->str        (lst / n )
  (setq lst_str (strcat lst_str "("))
  (foreach n lst
    (if        (listp n)
      (lst->str n)
      (progn
        (cond
          ((= 'STR (type n)) (setq lst_str (strcat lst_str " \"" n "\"")))
          ((= 'INT (type n)) (setq lst_str (strcat lst_str " "(itoa n) )))
          ((= 'REAl (type n)) (setq lst_str (strcat lst_str " "(rtos n 2 2) )))
        )
      )
    )
  )
  (setq lst_str (strcat lst_str ")"))
)

无痕

这么麻烦，测试：
(setq a '((1 2.2 3  2) (1 . "a")(3 4 5 "111" "ss")))
_$ (lst->str a)
; 错误: 参数类型错误: consp "a"
看来要考虑的还有很多啊。

看你们讨论了这么久，我也插两句。
这样不行么？

2. 
   
3. (setq a '((1 2.2 3  2) (1 . "a")(3 4 5 "111" "ss")))
   
4. (setq b (vl-prin1-to-string a))
   
5. -> "((1 2.2 3 2) (1 . "a") (3 4 5 "111" "ss"))" ;注意!是用prin1，不是princ，否则丢失表内字符引号!! 这个怎么没人提出？明经的版主应该不算差啊??
   
6. (setq c (read b))  
   
7. -> ((1 2.2 3 2) (1 . "a") (3 4 5 "111" "ss"))
   

<br /> (setq a '((1 2.2 3  2) (1 . "a")(3 4 5 "111" "ss")))<br /> (setq b (vl-prin1-to-string a))<br /> -> "((1 2.2 3 2) (1 . "a") (3 4 5 "111" "ss"))" ;注意!是用prin1，不是princ，否则丢失表内字符引号!! 这个怎么没人提出？明经的版主应该不算差啊??<br /> (setq c (read b))  <br /> -> ((1 2.2 3 2) (1 . "a") (3 4 5 "111" "ss"))<br />

wkaii

to 无痕
拜托，请用autolisp代码~
上面写的很清楚是将"简单表"转换为字符串的代码，并不是功能完善的标准函数，是以足够我用为标准写出来的~
你说的方法前面已经说过了
prin1和princ的区别，明经的版主自然会知道~

无痕

sorry,没看清楚.
我说呢....