grread左键后，如何让后续的ssget函数可多次选择

x_s_s_1

下面这段代码，左键后只能选择一次，请问如何能像(ssget)一样追加选择，而且让选中的图元显示被选择状态，谢谢。

2. (defun c:tt ()
   
3.   (setq loop t)
   
4.   (prompt "\n左键框选")
   
5.   (while loop
   
6.     (setq gr (grread t 15 2)
   
7.     pt (cadr gr)
   
8.     gr (car gr)
   
9.     )
   
10.     (cond((= 3 gr) (setq oi   1
    
11.         loop nil
    
12.         )
    
13.         )
    
14.     ((or (= 11 gr) (= 25 gr))
    
15.       (setq oi   2
    
16.       loop nil
    
17.       )
    
18.       ))
    
19.     )
    
20.   (cond  ((= 1 oi)
    
21.    (setq pt1 (getcorner pt "\n选择下一点:")
    
22.          ss  (ssget "c" pt pt1'((0 . "line")))
    
23.          )
    
24.    )
    
25.   ((= 2 oi)
    
26.    (alert"啥也没有")
    
27.    )
    
28.   )
    
29.   )

(defun c:tt ()<br />   (setq loop t)<br />   (prompt "\n左键框选")<br />   (while loop<br />     (setq gr (grread t 15 2)<br />     pt (cadr gr)<br />     gr (car gr)<br />     )<br />     (cond((= 3 gr) (setq oi   1<br />         loop nil<br />         )<br />         )<br />     ((or (= 11 gr) (= 25 gr))<br />       (setq oi   2<br />       loop nil<br />       )<br />       ))<br />     )<br />   (cond  ((= 1 oi)<br />    (setq pt1 (getcorner pt "\n选择下一点:")<br />          ss  (ssget "c" pt pt1'((0 . "line")))<br />          )<br />    )<br />   ((= 2 oi)<br />    (alert"啥也没有")<br />    )<br />   )<br />   )

xtjd

;将ssget写到while里

(defun c:t1 ()
  (setq loop t sss(ssadd))
  (prompt "\n左键框选")
  (while loop
    (setq gr(grread t 15 2) pt(cadr gr) gr(car gr))
    (cond
   ((= 3 gr)
    (setq pt1(getcorner pt "\n选择下一点:") ss(ssget "c" pt pt1 '((0 . "line"))))
    (mapcar(function(lambda(x)
             (if(ssmemb x sss)nil
              (progn(setq sss(ssadd x sss))(redraw x 3))
             )
            )
        )
     (vl-remove-if 'listp(mapcar 'cadr(ssnamex ss))))
   )
   ((or(= 11 gr) (= 25 gr))(setq loop nil))
  )
)
(if sss(sssetfirst sss sss))
)

xyp1964

1. (defun c:tt ()
   
2.   (setq loop t)
   
3.   (prompt "\n左键框选")
   
4.   (while loop
   
5.     (setq gr (grread t 15 2)
   
6.           pt (cadr gr)
   
7.           gr (car gr)
   
8.     )
   
9.     (cond ((= 3 gr)
   
10.            (setq oi   1
    
11.                  loop nil
    
12.            )
    
13.           )
    
14.           ((or (= 11 gr) (= 25 gr))
    
15.            (setq oi   2
    
16.                  loop nil
    
17.            )
    
18.           )
    
19.     )
    
20.   )
    
21.   (cond        ((= 1 oi)
    
22.          (setq pt1 (getcorner pt "\n选择下一点:")
    
23.                ss  (ssget "c" pt pt1 '((0 . "line")))
    
24.                ss1 (ssget '((0 . "line")))
    
25.          )
    
26.          (command "select" ss ss1 "")
    
27.          (setq ss (ssget "p"))
    
28.          (sssetfirst nil ss)
    
29.         )
    
30.         ((= 2 oi) (alert "啥也没有"))
    
31.   )
    
32.   (princ)
    
33. )

(defun c:tt ()<br />   (setq loop t)<br />   (prompt "\n左键框选")<br />   (while loop<br />     (setq gr (grread t 15 2)<br />           pt (cadr gr)<br />           gr (car gr)<br />     )<br />     (cond ((= 3 gr)<br />            (setq oi   1<br />                  loop nil<br />            )<br />           )<br />           ((or (= 11 gr) (= 25 gr))<br />            (setq oi   2<br />                  loop nil<br />            )<br />           )<br />     )<br />   )<br />   (cond        ((= 1 oi)<br />          (setq pt1 (getcorner pt "\n选择下一点:")<br />                ss  (ssget "c" pt pt1 '((0 . "line")))<br />                ss1 (ssget '((0 . "line")))<br />          )<br />          (command "select" ss ss1 "")<br />          (setq ss (ssget "p"))<br />          (sssetfirst nil ss)<br />         )<br />         ((= 2 oi) (alert "啥也没有"))<br />   )<br />   (princ)<br /> )

x_s_s_1

谢谢院长，采用command select有些版本autocad会提示错误，需改为command-s，导致我无法确定用command还是command-s，请问还有其它方法吗？

guosheyang

grread 一般都是用于动态显示    你这个代码是在那种情况下适用呢  为何不直接用 ssget ？

x_s_s_1

guosheyang 发表于 2022-11-7 10:49
grread 一般都是用于动态显示    你这个代码是在那种情况下适用呢  为何不直接用 ssget ？

一键keyword

chslwj521

问题解决了么？grread,没有捕捉功能