请问我这段代码为什么只能响应左键，点右键和回车就会报参数错误？

dengxuechen

(defun c:te( / ss)
  
(setq loop T)
(while loop
   (setq code (grread T 8))
   (if(= (car code) 25)
    (progn
   (princ "\n 右键响应成功！！！")
    )
   )
   
   (if(= (car code) 3)
  (progn
   (princ "\n 左键响应成功！！！")
   (setq ss (ssadd (ssget ":D" '((0 . "text"))) ss)) ;;添加图元到数据集
  )  
   )
   
   (if(equal code '(2 13))
  (progn
   (princ "\n 跳出循环！！！")
   (setq loop nil)
    )
   )
)
)

dengxuechen

补充一下，左键右键回车三个键只能响应最开始点的那个键，再点其他的键就会报参数错误，比如点完左键再点右键或回车就报错了；不加获取图元的那行代码就没问题，加上就不行了。

qq2222081387

你试一试  是不是你想要的

1. (defun c:te(/ ss)
   
2.   (setq ss (ssadd))
   
3.   (setq loop T)
   
4.   (while loop
   
5.    (setq code (grread T))
   
6.    (cond
   
7.      ((= (car code) 25)
   
8.               (progn
   
9.           (print "\n 右键响应成功！！！")
   
10.           ;(setq loop nil)
    
11.           )
    
12.       )
    
13.      ((= (car code) 3)
    
14.               (progn
    
15.            (princ "\n 左键响应成功！！！")
    
16.           (if (setq get (entsel))
    
17.           (setq ss (ssadd (car get) ss))) ;;添加图元到数据集
    
18.              (princ (SSLENGTH ss))
    
19.           )
    
20. 
    
21.       )
    
22.      ((equal code '(2 13))
    
23.               (progn
    
24.           (print "\n 跳出循环！！！")
    
25.           (setq loop nil)
    
26.           )
    
27.       )
    
28.      );cond
    
29.   );while loop
    
30. )

(defun c:te(/ ss)<br />   (setq ss (ssadd))<br />   (setq loop T)<br />   (while loop<br />    (setq code (grread T))<br />    (cond<br />      ((= (car code) 25)<br />               (progn<br />           (print "\n 右键响应成功！！！")<br />           ;(setq loop nil)<br />           )<br />       )<br />      ((= (car code) 3)<br />               (progn<br />            (princ "\n 左键响应成功！！！")<br />           (if (setq get (entsel))<br />           (setq ss (ssadd (car get) ss))) ;;添加图元到数据集<br />              (princ (SSLENGTH ss))<br />           )<br /> <br />       )<br />      ((equal code '(2 13))<br />               (progn<br />           (print "\n 跳出循环！！！")<br />           (setq loop nil)<br />           )<br />       )<br />      );cond<br />   );while loop<br /> )

dengxuechen

qq2222081387 发表于 2019-3-6 16:44
你试一试  是不是你想要的

是的   多谢！！！

sicky111

又是grread

arker

慢慢学习 ， 一下子看不明白。

dengxuechen

qq2222081387 发表于 2019-3-6 16:44
你试一试  是不是你想要的

请问一下  为什么每次点左键 获取到选择集中的图元信息都是重读的

qq2222081387

dengxuechen 发表于 2019-3-7 10:20
请问一下  为什么每次点左键 获取到选择集中的图元信息都是重读的

(princ (SSLENGTH ss) 我用这个测试输出选择集里面的数量是增加的  新的图元已经加入选择集了
你说的重读的是什么意思啊   

dengxuechen

qq2222081387 发表于 2019-3-7 10:46
(princ (SSLENGTH ss) 我用这个测试输出选择集里面的数量是增加的  新的图元已经加入选择集了
你说的重 ...

我又检查了一遍，是遍历的时候条件写错了，代码没问题