append 函数的疑问

yanguangfei · 发表于 2012-11-17 22:29:23

测试程序
(defun c:tt ( /  LSTS list-foreach-name)
   (setq list-foreach-name nil)
   (foreach LSTS  '("1,天津市滨海新区汉沽长城有色金属制品厂" "166,徐秀国")
      (setq list-foreach-name  (append  list-foreach-name (list (read (strcat "(" (vl-string-subst  " . " "," LSTS) ")")))))
   )
list-foreach-name
)
为什么返回值是 ((1 . 天津市滨海新区汉沽长城有色金属制品厂) (166 . 天津市滨海新区汉沽长城有色金属制品厂)) 而非 ((1 . 天津市滨海新区汉沽长城有色金属制品厂) (166 . 徐秀国))
求解

holywind · 发表于 2012-11-18 00:43:26

难道是BUG？好像其他文字都可以获得正确结果。难道是人品？

偶新手，回答不了你的问题。

yanguangfei · 发表于 2012-11-18 01:37:48

append 可能累了吧

phoenixdjq · 发表于 2012-11-18 13:06:48

楼主，天津人吗？
可以加个好友吗？qq：53124174

ZZXXQQ · 发表于 2012-11-18 19:06:06

在2004下逐渐增加字串“天津市滨海新区汉沽长城有色金属制品厂”的长度，到增加最后一个“厂”字时才出错。经逐步运行程序，发现是read函数出错。不知是BUG还是版本问题。

yanguangfei · 发表于 2012-11-19 00:07:19

谢 ZZXXQQ 解释

yanguangfei · 发表于 2012-11-19 00:08:12

ZZXXQQ 发表于 2012-11-18 19:06
在2004下逐渐增加字串“天津市滨海新区汉沽长城有色金属制品厂”的长度，到增加最后一个“厂”字时才出错。 ...

谢 ZZXXQQ 解释

ZZXXQQ · 发表于 2012-11-19 08:33:40

这是修改的程序，有点不同哦。

(defun c:tt ( / x i)
(mapcar
'(lambda (x) (setq i (vl-string-position (ascii ",") x)) (cons (read (substr x 1 i)) (substr x (+ i 2))))
'("1,天津市滨海新区汉沽长城有色金属制品厂" "166,徐秀国")
)
)

lijiao · 发表于 2012-11-19 08:59:49

在我的电脑上运行没有问题呀

yoyoho · 发表于 2012-11-19 09:19:05

AUTOCAD 2011 下测试 O.K.
指令: (defun c:tt ( /  LSTS list-foreach-name)
(_>    (setq list-foreach-name nil)
(_>    (foreach LSTS  '("1,天津市滨海新区汉沽长城有色金属制品厂" "166,徐秀国")
((_>       (setq list-foreach-name  (append  list-foreach-name (list (read
(strcat "(" (vl-string-subst  " . " "," LSTS) ")")))))
((_>    )
(_> list-foreach-name
(_> )
C:TT

指令: TT
((1 . 天津市滨海新区汉沽长城有色金属制品厂) (166 . 徐秀国))

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