hn10183051 发表于 2023-4-12 20:22:26

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

本帖最后由 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:32:20

本帖最后由 飞雪神光 于 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"))))
)

xj6019 发表于 2023-4-12 20:49:50

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

vitalgg 发表于 2023-4-12 21:14:13

(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]
查看完整版本: 《求助》前面表怎么变成后面的表