[求助]ssget能不能搞个提示出来就像ENTSEL一样

hossman

2. (defun test (/ p1 p2 ang ss)
3.   (initget "s")
4.   (setq p1 (getpoint "\n选择对象<Setting>："))
5.   (if (= p1 "s")
6.     (alert "ok") ;_ur app
7.     (progn
8.       (if (setq ss (ssget p1))
9. (vl-cmdf "._erase" ss "") ;_ur app
10. (progn
11.    (setq p2 (getcorner p1))
12.    (setq ang (angle p1 p2))
13.    (cond ((and (>= ang 0) (< ang (/ pi 2)))
14.    (setq ss (ssget "_w" p1 p2))
15.   )
16.   ((and (>= ang (/ pi 2)) (< ang pi))
17.    (setq ss (ssget "_c" p1 p2))
18.   )
19.   ((and (>= pi) (< ang (* pi 1.5)))
20.    (setq ss (ssget "_c" p1 p2))
21.   )
22.   (t (setq ss (ssget "_w" p1 p2)))
23.    )
24. )
25.       )
26.     )
27.   )
28.   (if ss
29.     (vl-cmdf "._erase" ss "") ;_ur app
30.   )
31. )
32. ;;;模拟(ssget ":s")，可惜交互效果很差

(defun test (/ p1 p2 ang ss)   (initget "s")   (setq p1 (getpoint "\n选择对象<Setting>："))   (if (= p1 "s")     (alert "ok") ;_ur app     (progn       (if (setq ss (ssget p1)) (vl-cmdf "._erase" ss "") ;_ur app (progn    (setq p2 (getcorner p1))    (setq ang (angle p1 p2))    (cond ((and (>= ang 0) (< ang (/ pi 2)))    (setq ss (ssget "_w" p1 p2))   )   ((and (>= ang (/ pi 2)) (< ang pi))    (setq ss (ssget "_c" p1 p2))   )   ((and (>= pi) (< ang (* pi 1.5)))    (setq ss (ssget "_c" p1 p2))   )   (t (setq ss (ssget "_w" p1 p2)))    ) )       )     )   )   (if ss     (vl-cmdf "._erase" ss "") ;_ur app   ) ) ;;;模拟(ssget ":s")，可惜交互效果很差

SWAYWOOD

谢谢楼上的朋友,没有别的办法也只能模拟了,不过我觉得用ENTSEL模拟比GETPOINT更好一点

haiyunzhou

学习了 非常感谢