请问使用(SSGET)选择的线 如何判断出 鼠标点选的座标?

张大锤

请问使用(SSGET)选择的线 如何判断出 鼠标点选的座标?
不使用getpoint
因为 选择物体 可能是块 也可能是线
所以 ssget 选择块 的时候 很方便
但是 ssget线不像getpoint 这个这么方便
最后还是想使用ssget 用其他办法补充getpoint
请问各位有什么办法 判断出 鼠标点选的位置吗?

masterlong

学习下ssnamex函数

ysq101

基本功啊！！！！

sachindkini

2. (defun c:test ()
   
3.    (setq run T)
   
4.    (while (equal run T)
   
5.       (setq res (grread T))
   
6.       (setq code (car res))
   
7. 
   
8.       ;; 'normal' mouse move?
   
9.       (if (equal code 5)
   
10.          (progn
    
11.             ;; get the current cursor position
    
12.             (setq pt (car (cdr res)))
    
13.             ;; is there something at the
    
14.             ;; current position?
    
15.             (setq ss (ssget pt))
    
16.             (if (/= ss nil)
    
17.                ;; yes, there is something.
    
18.                ;; show the grip points.
    
19.                (sssetfirst nil ss)
    
20.             )
    
21.          )
    
22.       )
    
23. 
    
24.       ;; right mouse click?
    
25.       (if (equal code 25)
    
26.          (progn
    
27.             ;; right mouse button clicked.
    
28.             ;; exit the loop.
    
29.             (princ "\nRight mouse click.\n")
    
30.             (setq run nil)
    
31.          )
    
32.       )
    
33.    )
    
34. )

(defun c:test () <br />    (setq run T) <br />    (while (equal run T) <br />       (setq res (grread T)) <br />       (setq code (car res)) <br /> <br />       ;; 'normal' mouse move? <br />       (if (equal code 5) <br />          (progn <br />             ;; get the current cursor position <br />             (setq pt (car (cdr res))) <br />             ;; is there something at the <br />             ;; current position? <br />             (setq ss (ssget pt)) <br />             (if (/= ss nil) <br />                ;; yes, there is something. <br />                ;; show the grip points. <br />                (sssetfirst nil ss) <br />             ) <br />          ) <br />       ) <br /> <br />       ;; right mouse click? <br />       (if (equal code 25) <br />          (progn <br />             ;; right mouse button clicked. <br />             ;; exit the loop. <br />             (princ "\nRight mouse click.\n") <br />             (setq run nil) <br />          ) <br />       ) <br />    ) <br /> )

669423907

(SSGET)
(setq o(cadr(grread 3)))
(car o)
(cadr o)

张大锤

ysq101 发表于 2018-8-11 22:51
基本功啊！！！！

那你倒是发一下啊~

张大锤

669423907 发表于 2018-8-13 09:14
(SSGET)
(setq o(cadr(grread 3)))
(car o)

3Q老铁 帮了大忙