[求助]：cons构成表出现问题

dhxf

(defun dllib()
(setq bvjm '(2.5 4 6 10 16 25 35 50 70 95 120 150 185)
      bv2zl '(24 32 41 57 76 101 125 151 192 232 269 306 353)
   bv2sc '(15 15 15 20 20 25 32 40 50 50 70 70 80)
      bv2pc '(16 16 20 25 32 32 40 50 63 63 63 63)
)
(setq nn 0 kk (length bvjm) bv2x  '())
(repeat (1- kk)
      (setq bv2x (cons (list (nth nn bv2zl)(nth nn bvjm)(nth nn bv2sc)(nth nn bv2pc)) bv2x))
      (setq nn (1+ nn))
      )
(reverse bv2x)
      )
;;;;;
运行后出现：应用程序错误: 参数类型错误
哪位帮忙看看谢谢

Underway

(setq bvjm '(2.5 4 6 10 16 25 35 50 70 95 120 150 185)
     bv2zl '(24 32 41 57 76 101 125 151 192 232 269 306 353)
     bv2sc '(15 15 15 20 20 25 32 40 50 50 70 70 80)
     bv2pc '(16 16 20 25 32 32 40 50 63 63 63 63)
)

(list-transpose (list bvjm bv2zl bv2sc bv2pc))

ref link:
http://autocad.xarch.at/lisp/goodies.html

dhxf

(list-transpose (list bv2zl bvjm bv2sc bv2pc))就有问题.

还是会显示：应用程序错误: 参数类型错误
(list-transpose (list bvjm bv2zl bv2sc bv2pc))就不会，这又是因为什么

aeo

bv2pc '(16 16 20 25 32 32 40 50 63 63 63 63)
只有12个,其余13个



(mapcar 'list   bv2zl  bvjm bv2sc bv2pc)

dhxf

抛开bv2pc
(mapcar 'list bv2zl bvjm bv2sc)
应用程序错误: 参数类型错误---还会出现

Free-Lancer

2. 
   
3. (defun dllib (/ BV2PC BV2SC BV2X BV2ZL BVJM KK NN)
   
4.   (setq        bvjm  '(2.5 4 6 10 16 25 35 50 70 95 120 150 185)
   
5.         bv2zl '(24 32 41 57 76 101 125 151 192 232 269 306 353)
   
6.         bv2sc '(15 15 15 20 20 25 32 40 50 50 70 70 80)
   
7.         bv2pc '(16 16 20 25 32 32 40 50 63 63 63 63)
   
8.   )
   
9.   (setq        nn   0
   
10.         kk   (length bvjm)
    
11.         bv2x '()
    
12.   )
    
13.   (repeat (1- kk)
    
14.     (setq bv2x (cons (list (nth nn bv2zl)
    
15.                            (nth nn bvjm)
    
16.                            (nth nn bv2sc)
    
17.                            (nth nn bv2pc)
    
18.                      )
    
19.                      bv2x
    
20.                )
    
21.     )
    
22.     (setq nn (1+ nn))
    
23.   )
    
24.   (reverse bv2x)
    
25. )

<br /> (defun dllib (/ BV2PC BV2SC BV2X BV2ZL BVJM KK NN)<br />   (setq        bvjm  '(2.5 4 6 10 16 25 35 50 70 95 120 150 185)<br />         bv2zl '(24 32 41 57 76 101 125 151 192 232 269 306 353)<br />         bv2sc '(15 15 15 20 20 25 32 40 50 50 70 70 80)<br />         bv2pc '(16 16 20 25 32 32 40 50 63 63 63 63)<br />   )<br />   (setq        nn   0<br />         kk   (length bvjm)<br />         bv2x '()<br />   )<br />   (repeat (1- kk)<br />     (setq bv2x (cons (list (nth nn bv2zl)<br />                            (nth nn bvjm)<br />                            (nth nn bv2sc)<br />                            (nth nn bv2pc)<br />                      )<br />                      bv2x<br />                )<br />     )<br />     (setq nn (1+ nn))<br />   )<br />   (reverse bv2x)<br /> )

_$ (dllib)
((24 2.5 15 16) (32 4 15 16) (41 6 15 20) (57 10 20 25) (76 16 20 32) (101 25 25 32) (125 35 32 40) (151 50 40 50) (192 70 50 63) (232 95 50 63) (269 120 70 63) (306 150 70 63))
_$

可能变量冲突