tm20038175 发表于 2011-7-17 11:33:47

append失灵啦

本帖最后由 tm20038175 于 2012-4-14 19:43 编辑


(defun c:dl()

(setvar "cmdecho" 1)
(setq loop T)

(whileloop;(/= (car code) 25)
    (setq code (grread T 8))
   (cond
((= (car code) 5)   (progn(command "line" pause)(yad_comd)))                ;;; 鼠标移动
((equal code '(2 48)) ("exit"))                   ;;; 0键

    )
   )
(PRINC)
)


我想得到
((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 发表于 2011-7-17 11:34:18

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

ZZXXQQ 发表于 2011-7-17 11:38:11

append缺参数

tm20038175 发表于 2011-7-17 11:41:53

回复 ZZXXQQ 的帖子

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

ZZXXQQ 发表于 2011-7-17 11:49:45

不明白你在说什么。

tm20038175 发表于 2011-7-17 11:52:15

回复 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 发表于 2011-7-17 11:52:58

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

zhynt 发表于 2011-7-17 12:49:16

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

tm20038175 发表于 2011-7-17 13:08:19

回复 zhynt 的帖子

好的，谢谢啦

Andyhon 发表于 2011-7-17 13:16:00

(apply 'append lst)
页: [1] 2
查看完整版本: append失灵啦