《求助》前面表怎么变成后面的表

hn10183051

论坛的大神们，前面的表有什么办法变成后面的表


'(("1500" "2900" "5 ") ("1500" "3100" "10 ")) → '("Rectangle,1500,2900,5,,,,1" "Rectangle,1500,3100,10,,,,1")

飞雪神光

2. (setq lst '(("1500" "2900" "5") ("1500" "3100" "10")))
   
3. (setq tmplst '())
   
4. (foreach x lst
   
5.         (setq temstr "Rectangle")
   
6.         (foreach a x
   
7.                 (setq temstr(strcat temstr "," a))
   
8.         )
   
9.         (setq tmplst (append tmplst (list (strcat (vl-string-right-trim " " temstr) ",,,,1"))))
   
10. )

(setq lst '(("1500" "2900" "5") ("1500" "3100" "10")))<br /> (setq tmplst '())<br /> (foreach x lst<br />         (setq temstr "Rectangle")<br />         (foreach a x<br />                 (setq temstr(strcat temstr "," a))<br />         )<br />         (setq tmplst (append tmplst (list (strcat (vl-string-right-trim " " temstr) ",,,,1"))))<br /> )

xj6019

我怎么感觉你是在走弯路呢，不如直接说你想干嘛，最终的目的

vitalgg

1. (setq lst '(("1500" "2900" "5 ") ("1500" "3100" "10 ")))
   
2. (setq res
   
3.        (mapcar '(lambda(x)
   
4.            (strcat "Rectangle,"
   
5.              (car x)","(cadr x)","(vl-string-trim " " (caddr x))
   
6.              ",,,,1"))
   
7.   lst))

(setq lst '(("1500" "2900" "5 ") ("1500" "3100" "10 ")))<br /> (setq res <br />        (mapcar '(lambda(x) <br />            (strcat "Rectangle,"<br />              (car x)","(cadr x)","(vl-string-trim " " (caddr x))<br />              ",,,,1"))<br />   lst))