[求助]：[求助]：请高手帮忙看看错在哪里？谢谢！

bolixin

;;;统计文本内容=?的图元数目.
(defun c:SumCout ()
  (setq TextStr (getstring "\n请输入编号(区分大小写):"))
  (setq ss (ssget "X" (list (cons 0 "text") (cons 1 textstr))))
  (setq cont (rtos (sslength ss) 5 0))
  (setq i 0)
  (repeat (sslength ss)
    (redraw (ssname ss i) 3)
    (setq i (+ 1 i))
  )
  (redraw (ssname ss (- i 1)) 3)
  (zoom (ssname ss (- i 1)))
  (princ (strcat "共找到" cont "个" "[" TextStr "]"))
  (princ)
)
(defun zoom (ent)
  (if (= 'ENAME (type ent))(setq ent (entget ent)))
  (setq p1 (cdr(assoc 10 ent)) ang (cdr(assoc 50 ent)))
  (setq p1X (car p1))
  (setq p1Y (cadr p1))
  (setq tb (textbox ent))
  (setq P2 (cadr tb))
  (setq p2X (car p2))
  (setq p2Y (cadr p2))
  (setq str1 (strcat (rtos p1X 2 2) "," (rtos p1Y 2 2)))
  (setq str2 (strcat "@" (rtos p2X 2 2) "," (rtos p2Y 2 2)))
  (Command "zoom" "w" str1 str2 "")
)
目的：在图中查找YAZ1的数目,然后在窗口中央显示该对象集的第一个对象
在简单的调试图中能实现以上效果，但在我上传的这个图中就不行，不知道为什么，请各位高手指教。谢谢！
另外，是否有办法令选择集中的所有对象在窗口中央逐一显示？就是按一下鼠标或指定的键就显示下一对象？

xyp1964

图元逐个显示：

2. [FONT=courier new];;;图中所有对象在窗口中央逐一显示（按任意键显示下一对象）
   
3. (defun c:test ()
   
4.   (CMDLA0)
   
5.   (setvar "osmode" 0)
   
6.   (command "select" "all" "")
   
7.   (setq        ss (ssget "P")
   
8.         i  -1
   
9.   )
   
10.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
11.     (setq pt1 (xyp-get-MinMaxPoint s1 1)
    
12.           pt9 (xyp-get-MinMaxPoint s1 9)
    
13.     )
    
14.     (command "zoom" "w" pt1 pt9)
    
15.     (setq mode t)
    
16.     (while mode
    
17.       (setq MOTION (grread t 15 0)
    
18.             CODE   (car MOTION)
    
19.       )
    
20.       (if (or (= code 2)
    
21.               (= code 3)
    
22.               (= code 25)
    
23.           )
    
24.         (setq mode nil)
    
25.       )
    
26.     )
    
27.   )
    
28.   (CMDLA1)
    
29. )[/FONT]

[FONT=courier new];;;图中所有对象在窗口中央逐一显示（按任意键显示下一对象）<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setvar "osmode" 0)<br />   (command "select" "all" "")<br />   (setq        ss (ssget "P")<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq pt1 (xyp-get-MinMaxPoint s1 1)<br />           pt9 (xyp-get-MinMaxPoint s1 9)<br />     )<br />     (command "zoom" "w" pt1 pt9)<br />     (setq mode t)<br />     (while mode<br />       (setq MOTION (grread t 15 0)<br />             CODE   (car MOTION)<br />       )<br />       (if (or (= code 2)<br />               (= code 3)<br />               (= code 25)<br />           )<br />         (setq mode nil)<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

xyp1964

程序改写：

2. [FONT=courier new](defun c:test ()
   
3.   (cmdla0)
   
4.   (setq        TextStr        (USTR 7 "\n请输入编号(不区分大小写):" TextStr NIL)
   
5.         ss        (ssget "X" (list (cons 0 "TEXT") (cons 1 textstr)))
   
6.   )
   
7.   (if ss
   
8.     (setq cont (sslength ss)
   
9.           s1   (ssname ss 0)
   
10.     )
    
11.   )
    
12.   (if s1
    
13.     (progn (setq pt1 (xyp-get-MinMaxPoint s1 1)
    
14.                  pt9 (xyp-get-MinMaxPoint s1 9)
    
15.            )
    
16.            (command "zoom" "w" pt1 pt9)
    
17.     )
    
18.   )
    
19.   (princ (strcat "\n共找到"
    
20.                  (rtos cont 2 0);;转换为字符串
    
21.                  "个"
    
22.                  "["
    
23.                  (strcase TextStr)
    
24.                  "]"
    
25.          )
    
26.   )
    
27.   (cmdla1)
    
28. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (cmdla0)<br />   (setq        TextStr        (USTR 7 "\n请输入编号(不区分大小写):" TextStr NIL)<br />         ss        (ssget "X" (list (cons 0 "TEXT") (cons 1 textstr)))<br />   )<br />   (if ss<br />     (setq cont (sslength ss)<br />           s1   (ssname ss 0)<br />     )<br />   )<br />   (if s1<br />     (progn (setq pt1 (xyp-get-MinMaxPoint s1 1)<br />                  pt9 (xyp-get-MinMaxPoint s1 9)<br />            )<br />            (command "zoom" "w" pt1 pt9)<br />     )<br />   )<br />   (princ (strcat "\n共找到"<br />                  (rtos cont 2 0);;转换为字符串<br />                  "个"<br />                  "["<br />                  (strcase TextStr)<br />                  "]"<br />          )<br />   )<br />   (cmdla1)<br /> )[/FONT]

bolixin

非常感谢xyp1964 ！！！