字符串有误，请大家帮忙

poople

我在做一个获取单行文字字符串的函数，以备下次ssget调用，但是今天写的这个很怪不知道是怎么回事，代码如下：

1. (defun C:qq11 (/ ss11 i sr_1)
   
2.     (setq ss11 (ssget '((0 . "TEXT"))))
   
3.     (setq i 0)
   
4.     (repeat (sslength ss11)
   
5.   (setq sr_1 (strcat (cdr (assoc 1 (entget (ssname ss11 i))))
   
6.          ","
   
7.          sr_1
   
8.        )
   
9.   )
   
10.   (setq i (1+ i))
    
11.     )
    
12.     sr_1
    
13. )

(defun C:qq11 (/ ss11 i sr_1)<br />     (setq ss11 (ssget '((0 . "TEXT"))))<br />     (setq i 0)<br />     (repeat (sslength ss11)<br />   (setq sr_1 (strcat (cdr (assoc 1 (entget (ssname ss11 i))))<br />          ","<br />          sr_1<br />        )<br />   )<br />   (setq i (1+ i))<br />     )<br />     sr_1<br /> )

问题出在“(cdr (assoc 1 (entget (ssname ss11 i))))”，错误原因是“error: bad argument type: stringp nil”，但是在监视里“(cdr (assoc 1 (entget (ssname ss11 i))))”能够正常获取字符串，按理说就是没有错误了。
确实搞不懂了，请大家指点！

x_s_s_1

i=0的时候是没有sr_1的，(setq i 0 sr_1 "")

poople

x_s_s_1 发表于 2013-5-18 10:25
i=0的时候是没有sr_1的，(setq i 0 sr_1 "")

谢谢，果然是这样！