关于一个表处理的问题

lisp_beginner · 发表于 2016-9-23 13:52:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 lisp_beginner 于 2016-9-23 13:54 编辑

表
(1 "A" "B" "C" 2 "D" "E")

我想得到：

((1 . ("A" "B" "C")) (2 . ("D" "E")))

怎么写？谢谢！

WhoCanSay · 发表于 2016-9-23 15:46:35

;;(setq lst '(1 "A" "B" "C" 2 "D" "E"))
;;(w1 lst)=((1 ("A" "B" "C")) (2 ("D" "E")))
(defun w1 (lst / A B C L SCOR)
(while (setq a (car lst))
(setq lst (cdr lst))
(cond
((numberp a)
(setq c b) (setq b a)
(cond (l (setq Scor (append Scor (list (cons c (list l))))) (setq l nil) (setq b a)))
)
(T (setq l (append l (list a))))
)
)
(cond (l (setq Scor (append Scor (list (cons b (list l)))))))
Scor
)

lisp_beginner · 发表于 2016-9-23 16:11:08

WhoCanSay 发表于 2016-9-23 15:46

谢谢黄总，我试了下

命令: (w1 a)
((1 ("A" "B" "C")) (2 ("D" "E")))

不是我要的，我想要的结果是： ((1 . ("A" "B" "C")) (2 . ("D" "E")))

在帮改改代码，谢谢！

WhoCanSay · 发表于 2016-9-23 16:30:36

lisp_beginner 发表于 2016-9-23 16:11

那个弄不了，不知道你为什么要那种形式。

newer · 发表于 2016-9-23 16:56:12

WhoCanSay 发表于 2016-9-23 16:30

老黄什么时候谦虚了:P

LoveArx · 发表于 2016-9-23 17:32:05

从ACAD内部存储数据的结构上说，楼主你说的这种格式的表是不可能有的。

你用的是点对，点对在内部存储上是一个resbuf类型的节点，点前面的整数放在节点的 restype 内，点后面的放在resval内，而楼主你点后面的是一个表，而表是有多个resbuf通过指针rbnext链接起来的，不是一个节点，所以点后面的表是放入不到resbuf的resval内的，

所以，楼主你这样的表是不存在的。

iLisp · 发表于 2016-9-23 17:51:38

restype没有这个类型

cable2004 · 发表于 2016-9-24 07:08:23

看看大师的们的方法

lisp_beginner · 发表于 2016-9-24 13:19:59

WhoCanSay 发表于 2016-9-23 15:46

谢谢黄总，谢谢大家，是我错了，理解不深，还得学习啊。

sicky111 · 发表于 2016-9-24 13:23:22

老司机分分钟代码就写好了

Lisphk · 发表于 2016-9-24 13:35:18

(defun test (lst / temp newlist)
(foreach x (reverse lst)
(if (numberp x)
(setq temp (not (setq newlist (cons (list x temp) newlist))))
(setq temp (cons x temp))
)
)
newlist
)

命令: (setq a '(1 "a" "b" "c" 2 "d" "e"))
(1 "a" "b" "c" 2 "d" "e")

命令: (test a)
((1 ("a" "b" "c")) (2 ("d" "e")))

账号		自动登录	找回密码
密码			立即注册

[求助] 关于一个表处理的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。