entsel任何时候都返回坐标

dcl1214

1. (defun $entsel$  (s / pick msg init)
   
2.           ;entsel函数在用户点击空白的时候返回nil，无法知道用户点击的坐标，所以特写此函数
   
3.           ;($entsel$ "请点选文字")自定义entsel
   
4.   (cond  ((= (type s) 'str)
   
5.    (progn
   
6.      (setq msg s)
   
7.      (if (not msg)
   
8.        (setq msg "请按下鼠标左键点选对象")
   
9.      )
   
10.      (SETQ S (GRREAD (GRREAD 15 2)))
    
11.      (COND ((= (CAR S) 5)
    
12.       (setq pick (ENTSEL msg))
    
13.       (if (not pick)
    
14.         (progn (setq pt (cadr (grread t)))
    
15.          (setq pick (list nil pt))
    
16.         )
    
17.       )
    
18.      )
    
19.      )
    
20.    )
    
21.   )
    
22.   ((= (type s) 'list)
    
23.    (or (setq msg (cdr (assoc "提示语" s)))
    
24.        (setq msg "请按下鼠标左键点选对象")
    
25.    )
    
26.    (setq init (cdr (assoc "关键字" s)))
    
27.    (SETQ S (GRREAD (GRREAD 15 2)))
    
28.    (COND ((= (CAR S) 5)
    
29.     (if init
    
30.       (initget 128 init)
    
31.     )
    
32.     (setq pick (ENTSEL msg))
    
33.     (if (not pick)
    
34.       (progn (setq pt (cadr (grread t)))
    
35.        (setq pick (list nil pt))
    
36.       )
    
37.     )
    
38.     (IF pick
    
39.       (SETQ XUNH T)
    
40.     )
    
41.          )
    
42.    )
    
43.   )
    
44.   )
    
45.   pick
    
46. )

(defun $entsel$  (s / pick msg init)<br />           ;entsel函数在用户点击空白的时候返回nil，无法知道用户点击的坐标，所以特写此函数<br />           ;($entsel$ "请点选文字")自定义entsel<br />   (cond  ((= (type s) 'str)<br />    (progn<br />      (setq msg s)<br />      (if (not msg)<br />        (setq msg "请按下鼠标左键点选对象")<br />      )<br />      (SETQ S (GRREAD (GRREAD 15 2)))<br />      (COND ((= (CAR S) 5)<br />       (setq pick (ENTSEL msg))<br />       (if (not pick)<br />         (progn (setq pt (cadr (grread t)))<br />          (setq pick (list nil pt))<br />         )<br />       )<br />      )<br />      )<br />    )<br />   )<br />   ((= (type s) 'list)<br />    (or (setq msg (cdr (assoc "提示语" s)))<br />        (setq msg "请按下鼠标左键点选对象")<br />    )<br />    (setq init (cdr (assoc "关键字" s)))<br />    (SETQ S (GRREAD (GRREAD 15 2)))<br />    (COND ((= (CAR S) 5)<br />     (if init<br />       (initget 128 init)<br />     )<br />     (setq pick (ENTSEL msg))<br />     (if (not pick)<br />       (progn (setq pt (cadr (grread t)))<br />        (setq pick (list nil pt))<br />       )<br />     )<br />     (IF pick<br />       (SETQ XUNH T)<br />     )<br />          )<br />    )<br />   )<br />   )<br />   pick<br /> )

ssyfeng

2. (defun tt (msg / ent)
   
3.   (or
   
4.     (setq ent (entsel msg))
   
5.     (setq ent (list nil (cadr (grread T 1))))
   
6.   )
   
7.   ent
   
8. )
   
9. (tt "选择对象：")

(defun tt (msg / ent)<br />   (or <br />     (setq ent (entsel msg)) <br />     (setq ent (list nil (cadr (grread T 1))))<br />   )<br />   ent<br /> )<br /> (tt "选择对象：")

我是这样写的

xyp1964

(if pick (setq xunh t))
哪来的xunh？

伍星

收藏备用，感谢无私分享

muai2010

感谢分享...