《求助》前面表怎么变成后面的表
本帖最后由 hn10183051 于 2023-4-12 20:29 编辑论坛的大神们,前面的表有什么办法变成后面的表
'(("1500" "2900" "5 ") ("1500" "3100" "10 ")) → '("Rectangle,1500,2900,5,,,,1" "Rectangle,1500,3100,10,,,,1")
本帖最后由 飞雪神光 于 2023-4-12 20:39 编辑
(setq lst '(("1500" "2900" "5") ("1500" "3100" "10")))
(setq tmplst '())
(foreach x lst
(setq temstr "Rectangle")
(foreach a x
(setq temstr(strcat temstr "," a))
)
(setq tmplst (append tmplst (list (strcat (vl-string-right-trim " " temstr) ",,,,1"))))
) 我怎么感觉你是在走弯路呢,不如直接说你想干嘛,最终的目的 (setq lst '(("1500" "2900" "5 ") ("1500" "3100" "10 ")))
(setq res
(mapcar '(lambda(x)
(strcat "Rectangle,"
(car x)","(cadr x)","(vl-string-trim " " (caddr x))
",,,,1"))
lst))
页:
[1]