[求助]append不了！

caravaggio · 发表于 2004-7-1 13:44:00

小弟有两个list :

(setq vflist ((0 . "layer") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord")))

(setq r (cons 2 "dim"))

"vflist" 及 "r" 老是append不了(在acad2004)! 请高手们指点.

谢谢!

caravaggio · 发表于 2004-7-1 15:06:00

本帖最后由作者于 2004-7-1 17:00:03 编辑

还是不行 ! 我输入: !vflist

返回

(0 . "layer") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord"))

我输入: !r

反回

2 . "dim")

我输入:

(append vflist (list r))

反回:

错误: 函数错误: (A B)

是不是2004有点不一样呢?

alin · 发表于 2004-7-1 14:16:00

_1$ (setq vflist '((0 . "layer") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord")))
((0 . "layer") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord"))
_1$ (setq r (cons 2 "dim"))
(2 . "dim")
_1$ (APPEND vflist (LIST r))
((0 . "layer") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "dim"))
_1$ (CONS r vflist)
((2 . "dim") (0 . "layer") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord"))
_1$

caravaggio · 发表于 2004-7-1 14:48:00

alin兄, 谢谢!

meflying · 发表于 2004-7-1 17:43:00

你把command行的结果直接考出来看看，我不信会出来这样的结果

——你!append看看

caravaggio · 发表于 2004-7-1 17:54:00

(setq vfList '(
(0 . "layer")
(100 . "AcDbSymbolTableRecord")
(100 . "AcDbLayerTableRecord")
)) (setq r (cons 2 "dim"))
==================================================================
命令: !vflist
((0 . "layer") (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord")) 命令: !r
(2 . "dim") 命令: (append vflist (list r))
; 错误: 函数错误: (A B) 以上是我直接烤出来的, 谢谢!

meflying · 发表于 2004-7-1 17:55:00

后一个呢（!append)

caravaggio · 发表于 2004-7-1 17:57:00

命令: !append #<SUBR @02fd7474 APPEND>

alin · 发表于 2004-7-1 18:07:00

!list 呢！

caravaggio · 发表于 2004-7-1 18:08:00

命令: !append
#<SUBR @02fd7474 APPEND> 命令: !list (A B) 谢谢了！

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