append失灵啦

tm20038175

1. 
   

复制代码

1. (defun c:dl()
   
2. 
   
3.   (setvar "cmdecho" 1)
   
4.   (setq loop T)
   
5. 
   
6. (while  loop;(/= (car code) 25)
   
7.     (setq code (grread T 8))
   
8.      (cond
   
9. ((= (car code) 5)     (progn  (command "line" pause)(yad_comd)))                ;;; 鼠标移动
   
10. ((equal code '(2 48)) ("exit"))                   ;;; 0键
    
11. 
    
12.     )
    
13.    )
    
14.   (PRINC)
    
15. )
    

(defun c:dl()<br /> <br />   (setvar "cmdecho" 1)<br />   (setq loop T) <br /> <br /> (while  loop;(/= (car code) 25)<br />     (setq code (grread T 8))<br />      (cond<br /> ((= (car code) 5)     (progn  (command "line" pause)(yad_comd)))                ;;; 鼠标移动<br /> ((equal code '(2 48)) ("exit"))                   ;;; 0键<br /> <br />     )<br />    )<br />   (PRINC)<br /> )<br />

我想得到
((1 -105708.0 0.0) (2 -106508.0 0.0)(3 -105708.0 0.0) (4 -106508.0 0.0))
而不是
(((1 -105708.0 0.0) (2 -106508.0 0.0)) ((3 -105708.0 0.0) (4 -106508.0 0.0)))

tm20038175

得到的应该是一个点的集合啊，而不是集合中有集合~~~

ZZXXQQ

append缺参数

tm20038175

回复 ZZXXQQ 的帖子

求指点，如何dedao 点的集合，而不是集合中有集合

ZZXXQQ

不明白你在说什么。

tm20038175

回复 ZZXXQQ 的帖子

我想得到
((1 -105708.0 0.0) (2 -106508.0 0.0)(3 -105708.0 0.0) (4 -106508.0 0.0))
而不是
(((1 -105708.0 0.0) (2 -106508.0 0.0)) ((3 -105708.0 0.0) (4 -106508.0 0.0)))

tm20038175

前面由4个点组成，
后面由两个两个点组成

zhynt

(list (caar tmp)(cadar tmp)(caadr tmp)(cadadr tmp))

tm20038175

回复 zhynt 的帖子

好的，谢谢啦

Andyhon

(apply 'append lst)