[求助]：什麽叫cdrs?

gucci218 · 发表于 2006-4-23 12:21:21

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

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

×

想输入这样一个列表:
(setq pl_1 (list '(0 . "lwpolyline") '(100 . "AcDbEntity") '(67 . 0) '(100 . "AcDbPolyline") '(70 . 0) '(43 . 0.0) '(38 . 0.0) '(39 . 0.0) '(210 . 0.0 0.0 1.0)))
控制台中的响应为：错误: 输入的点对中含有多余的 cdrs

xyp1964 · 发表于 2006-4-23 13:27:53

210后面不应该加“.”：

[FONT=courier new](setq pl_1 (list '(0 . "lwpolyline") '(100 . "AcDbEntity") '(67 . 0) '(100 . "AcDbPolyline")
'(70 . 0) '(43 . 0.0) '(38 . 0.0) '(39 . 0.0) '(210 0.0 0.0 1.0))
)[/FONT]

Underway · 发表于 2006-4-23 14:03:32

是否缺少这个函数

;;;Michal Puckett
(defun cdrs (key lst / pair rtn)
(while (setq pair (assoc key lst))
(setq rtn (cons (cdr pair) rtn)
lst (cdr (member pair lst))
)
)
(reverse rtn)
)

gucci218 · 发表于 2006-4-23 17:05:50

为啥210后不加“.“呢，为啥它就可以不是点对呢，

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

[求助] [求助]：什麽叫cdrs?

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

相关帖子