社区 › AutoLISP/Visual LISP 编程技术 › 请问使用(SSGET)选择的线 如何判断出 鼠标点选的座标?

张大锤 发表于 2018-8-8 11:42:48

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

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

masterlong 发表于 2018-8-8 11:49:51

学习下ssnamex函数

ysq101 发表于 2018-8-11 22:51:00

基本功啊！！！！

sachindkini 发表于 2018-8-12 02:43:10

(defun c:test ()
   (setq run T)
   (while (equal run T)
      (setq res (grread T))
      (setq code (car res))

      ;; 'normal' mouse move?
      (if (equal code 5)
         (progn
            ;; get the current cursor position
            (setq pt (car (cdr res)))
            ;; is there something at the
            ;; current position?
            (setq ss (ssget pt))
            (if (/= ss nil)
               ;; yes, there is something.
               ;; show the grip points.
               (sssetfirst nil ss)
            )
         )
      )

      ;; right mouse click?
      (if (equal code 25)
         (progn
            ;; right mouse button clicked.
            ;; exit the loop.
            (princ "\nRight mouse click.\n")
            (setq run nil)
         )
      )
   )
)

669423907 发表于 2018-8-13 09:14:59

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

张大锤 发表于 2018-8-14 11:17:53

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

那你倒是发一下啊~

张大锤 发表于 2018-8-14 11:50:09

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


3Q老铁 帮了大忙

查看完整版本: 请问使用(SSGET)选择的线 如何判断出 鼠标点选的座标?