不知道如何实现字符串连接，请指点

lijiao

2. (defun c:tt (/ LST0 LST1 LST2 LST3 STR X Y Z)
   
3.   (setq        lst1 (list "101" "102" "103" "104" "105" "106" "107" "108" "109" "110" "111" "112" "113" "114")
   
4.   )
   
5.   (setq        lst2 (list "201" "202" "203" "204" "205" "206" "207" "208" "209" "210" "211" "212" "213" "214" "215" "216" "217" "218" "219" "220" "221" "222" "223" "224" "225" "226" "227")
   
6.   )
   
7.   (setq        lst3 (list "301" "302" "303" "304" "305" "306" "307" "308" "309" "310" "311" "312")
   
8.   )
   
9.   (setq str "0.7-0-0.51-1.81-0.9-120-1.6-15-0-0")
   
10.   (setq        lst0 (mapcar
    
11.                '(lambda        (z)
    
12.                   (apply 'append
    
13.                          (mapcar
    
14.                            '(lambda (y)
    
15.                               (mapcar
    
16.                                 '(lambda (x)
    
17.                                    (strcat z "@" y "@" x "@" str)
    
18.                                  )
    
19.                                 lst3
    
20.                               )
    
21.                             )
    
22.                            lst2
    
23.                          )
    
24.                   )
    
25.                 )
    
26.                lst1
    
27.              )
    
28.   )
    
29.   (setq lst0 (apply 'append lst0))
    
30. )

(defun c:tt (/ LST0 LST1 LST2 LST3 STR X Y Z)<br />   (setq        lst1 (list "101" "102" "103" "104" "105" "106" "107" "108" "109" "110" "111" "112" "113" "114")<br />   )<br />   (setq        lst2 (list "201" "202" "203" "204" "205" "206" "207" "208" "209" "210" "211" "212" "213" "214" "215" "216" "217" "218" "219" "220" "221" "222" "223" "224" "225" "226" "227")<br />   )<br />   (setq        lst3 (list "301" "302" "303" "304" "305" "306" "307" "308" "309" "310" "311" "312")<br />   )<br />   (setq str "0.7-0-0.51-1.81-0.9-120-1.6-15-0-0")<br />   (setq        lst0 (mapcar<br />                '(lambda        (z)<br />                   (apply 'append<br />                          (mapcar<br />                            '(lambda (y)<br />                               (mapcar<br />                                 '(lambda (x)<br />                                    (strcat z "@" y "@" x "@" str)<br />                                  )<br />                                 lst3<br />                               )<br />                             )<br />                            lst2<br />                          )<br />                   )<br />                 )<br />                lst1<br />              )<br />   )<br />   (setq lst0 (apply 'append lst0))<br /> )

革天明

这是我最终得到的文件，谢谢lijiao