While循环如何终止ssget

zolly

(while (< (sslength ss) 1)

        (setq ss (ssget))
)
想用选择集个数终止While循环，但是一终止ssget或空选，整个程序就跳出来终止，如何终止ssget让while循环结束，然后继续执行下面的语句

tryhi

没看懂在问什么，重新组织一下问题吧

自贡黄明儒

dcl1214 发表于 2024-9-3 11:20

太极端了吧，ssget 都要用VL-CATCH-ALL-APPLY ？
(while(setq ss (ssget))
   。。。
）不就好了吗？

飞雪神光

zolly 发表于 2024-9-3 12:21
(defun C:tt()
  (setvar "cmdecho" 0)
  

你这while后面也没有东西了啊

1. (defun c:tt (/ findxmin p1 ss x1 x2 y1)
   
2.         (defun findxmin(/ a ent n xmin y)
   
3.                 (setq n 0)
   
4.                 (setq ent (ssname ss 0))
   
5.                 (setq xmin (cadr (assoc 10 (entget ent))))
   
6.                 (repeat(sslength ss)
   
7.                         (setq ent (entget (ssname ss n)))
   
8.                         (setq a (cadr (assoc 10 ent)))
   
9.                         (setq y (caddr (assoc 10 ent)))
   
10.                         (if (< a xmin) (setq xmin a))
    
11.                         (setq n (1+ n))
    
12.                 )
    
13.                 (princ)
    
14.         )
    
15.   (setvar "cmdecho" 0)
    
16.         (princ "\n选择第一个选择集")
    
17.         (setq ss (ssget (list '(0 . "LINE"))))
    
18.   (while (and ss (> (sslength ss) 0))
    
19.                 (findxmin)
    
20.                 (setq x1 xmin)
    
21.                 (setq y1 y)
    
22.                 (princ "\n选择第二个选择集")
    
23.                 (setq ss (ssget (list '(0 . "LINE"))))
    
24.                 (if (and ss (> (sslength ss) 0))
    
25.                         (progn
    
26.                                 (findxmin)
    
27.                                 (setq x2 xmin)
    
28.                                 (setq p1 (list xmin y1))
    
29.                                 (command "move" ss "" (cdr (assoc 10 ent)) p1)
    
30.                         )
    
31.                 )
    
32.                 (princ "\n选择第一个选择集")
    
33.                 (setq ss (ssget (list '(0 . "LINE"))))
    
34.         )
    
35.         (princ)
    
36. )

(defun c:tt (/ findxmin p1 ss x1 x2 y1)<br />         (defun findxmin(/ a ent n xmin y)<br />                 (setq n 0)<br />                 (setq ent (ssname ss 0))<br />                 (setq xmin (cadr (assoc 10 (entget ent))))<br />                 (repeat(sslength ss)<br />                         (setq ent (entget (ssname ss n)))<br />                         (setq a (cadr (assoc 10 ent)))<br />                         (setq y (caddr (assoc 10 ent)))<br />                         (if (< a xmin) (setq xmin a))<br />                         (setq n (1+ n))<br />                 )<br />                 (princ)<br />         )<br />   (setvar "cmdecho" 0)<br />         (princ "\n选择第一个选择集")<br />         (setq ss (ssget (list '(0 . "LINE"))))<br />   (while (and ss (> (sslength ss) 0))<br />                 (findxmin)<br />                 (setq x1 xmin)<br />                 (setq y1 y)<br />                 (princ "\n选择第二个选择集")<br />                 (setq ss (ssget (list '(0 . "LINE"))))<br />                 (if (and ss (> (sslength ss) 0))<br />                         (progn<br />                                 (findxmin)<br />                                 (setq x2 xmin)<br />                                 (setq p1 (list xmin y1))<br />                                 (command "move" ss "" (cdr (assoc 10 ent)) p1)<br />                         )<br />                 )<br />                 (princ "\n选择第一个选择集")<br />                 (setq ss (ssget (list '(0 . "LINE"))))<br />         )<br />         (princ)<br /> )

fangmin723

(while (setq ss (ssget)) (princ (rtos (sslength ss))))

aws

fangmin723 发表于 2024-9-3 09:01
(while (setq ss (ssget))
        (princ (rtos (sslength ss)))
)

他意思应该是让用户必须选择对象，否则就一直提示用户。

ljpnb

正常的思路是这样的：
(setq ss nil)
(if (setq ss(ssget))
  (progn

    .....

aws

当ssget让你选择对象的时候，如果用户输入空格，那么ss的数据类型就变成了nil，所以用sslength就会出现数据类型不匹配的错误，导致无法循环下去。
        (setq ss nil)
        (while(null ss)
                (setq ss(ssget))
        )
       

zolly

fangmin723 发表于 2024-9-3 09:01
(while (setq ss (ssget)) (princ (rtos (sslength ss))))

不行啊，我的意思是while循环里面有ssget选择语句，不终止while，就会一直循环执行ssget，但是ssget这个命令自身要是没选到东西就会一直让选，如果空格或回车，就出错，程序就在这里退出，必须要选一个才能完成这个命令，我的意思是终止ssget后如何不报错跳出while循环，去执行while后面的程序

kozmosovia

(while (and (setq ss (ssget)) (< (sslength ss) 1))
....
)

zolly

aws 发表于 2024-9-3 09:27
当ssget让你选择对象的时候，如果用户输入空格，那么ss的数据类型就变成了nil，所以用sslength就会出现数据 ...

还是不行，只能执行一个循环就退出来了

飞雪神光

1. (setq ss (ssget))
   
2. (while (and ss (> (sslength ss) 0))
   
3.        
   
4.         (setq ss (ssget))
   
5. )

(setq ss (ssget))<br /> (while (and ss (> (sslength ss) 0))<br />         <br />         (setq ss (ssget))<br /> )