提示：窗选物体或输入数值 .怎么样做到的？

st788796

没看到窗选

newer

getpoint和INITGET配合，取两点，自己用 (ssget "c" p1 p2)或者(ssget "w" p1 p2)得到选择集。

牢固

给个示例，自己去研究吧！

1. (defun c:tt ()
   
2.   (setq  ss   (ssadd)
   
3.   loop t
   
4.   )
   
5.   (while loop
   
6.     (initget "P")
   
7.     (setq p1
   
8.      (getpoint
   
9.        "\n[請選取欲複製成 Ａ型沖頭 的圓孔／ 或輸入Ａ沖的刀口直徑(P值)] :"
   
10.      )
    
11.     )
    
12.     (if  (= p1 "P")
    
13.       (progn
    
14.        ;;do something
    
15. 
    
16.       )
    
17.       (if p1
    
18.   (progn
    
19.     (if (setq s1 (ssget p1))
    
20.       (progn
    
21.         (command "._Select" ss "_Add" s1 "")
    
22.         (setq ss (ssget "_P"))
    
23.       )
    
24.       (progn
    
25.         (setq p2 (getcorner p1 "\n选择对角点:"))
    
26.         (if p2
    
27.     (progn
    
28.       (if (< (car p2) (car p1))
    
29.         (setq s1 (ssget "C" p1 p2))
    
30.         (setq s1 (ssget "W" p1 p2))
    
31.       )
    
32.       (if s1
    
33.         (progn
    
34.           (command "._Select" ss "_Add" s1 "")
    
35.           (setq ss (ssget "_P"))
    
36.         )
    
37.       )
    
38.     )
    
39.     (setq loop nil)
    
40.         )
    
41.       )
    
42.     )
    
43.   )
    
44.   (setq loop nil)
    
45.       )
    
46.     )
    
47.     (sssetfirst nil ss)
    
48.   )
    
49.   (sssetfirst nil nil)
    
50.   ss
    
51. )
    
52.   

(defun c:tt ()<br />   (setq  ss   (ssadd)<br />   loop t<br />   )<br />   (while loop<br />     (initget "P")<br />     (setq p1<br />      (getpoint<br />        "\n[請選取欲複製成 Ａ型沖頭 的圓孔／ 或輸入Ａ沖的刀口直徑(P值)] :"<br />      )<br />     )<br />     (if  (= p1 "P")<br />       (progn<br />        ;;do something<br /> <br />       )<br />       (if p1<br />   (progn<br />     (if (setq s1 (ssget p1))<br />       (progn<br />         (command "._Select" ss "_Add" s1 "")<br />         (setq ss (ssget "_P"))<br />       )<br />       (progn<br />         (setq p2 (getcorner p1 "\n选择对角点:"))<br />         (if p2<br />     (progn<br />       (if (< (car p2) (car p1))<br />         (setq s1 (ssget "C" p1 p2))<br />         (setq s1 (ssget "W" p1 p2))<br />       )<br />       (if s1<br />         (progn<br />           (command "._Select" ss "_Add" s1 "")<br />           (setq ss (ssget "_P"))<br />         )<br />       )<br />     )<br />     (setq loop nil)<br />         )<br />       )<br />     )<br />   )<br />   (setq loop nil)<br />       )<br />     )<br />     (sssetfirst nil ss)<br />   )<br />   (sssetfirst nil nil)<br />   ss<br /> )<br />   

st788796

这样写一个

1. (defun c:tt (/ tf mod key)
   
2.   (setq tf t)
   
3.   (princ "\n1 - test/2 -dd/3 - tt: ")
   
4.   (while tf
   
5.     (setq mod (grread t 16 0)
   
6.           key (car mod)
   
7.     )
   
8.     (cond
   
9.       ((= key 2)
   
10.         (cond
    
11.           ((= (cadr mod) 49)
    
12.            (princ "\nInput = 1")
    
13.           )
    
14.           ((= (cadr mod) 50)
    
15.            (princ "\nInput = 2")
    
16.           )
    
17.           ((= (cadr mod) 51)
    
18.            (princ "\nInput = 3")
    
19.           )
    
20.           (t)
    
21.         )
    
22.       )
    
23.       ((= key 3)
    
24.        (setq pt (cadr mod))
    
25.        (setq p1 (getcorner pt "\nOther Corner: "))
    
26.        (setq tf nil)
    
27.       )
    
28.     )
    
29.   )
    
30.   (princ (list pt p1))
    
31.   (princ)
    
32. )

(defun c:tt (/ tf mod key)<br />   (setq tf t)<br />   (princ "\n1 - test/2 -dd/3 - tt: ")<br />   (while tf<br />     (setq mod (grread t 16 0)<br />           key (car mod)<br />     )<br />     (cond<br />       ((= key 2)<br />         (cond<br />           ((= (cadr mod) 49)<br />            (princ "\nInput = 1")<br />           )<br />           ((= (cadr mod) 50)<br />            (princ "\nInput = 2")<br />           )<br />           ((= (cadr mod) 51)<br />            (princ "\nInput = 3")<br />           )<br />           (t)<br />         )<br />       )<br />       ((= key 3)<br />        (setq pt (cadr mod))<br />        (setq p1 (getcorner pt "\nOther Corner: "))<br />        (setq tf nil)<br />       )<br />     )<br />   )<br />   (princ (list pt p1))<br />   (princ)<br /> )

st788796

kcad2010 发表于 2014-1-7 17:22
谢谢了，这样可以，但是有一点点小瑕疵，第一次选择的时候光标是一个十字架，正常CAD选择是一个小正方 ...

grread t 16 2

0 显示普通十字光标。

1 不显示光标（无十字光标）。

2 显示对象选择光标。

Gdlprfcu

PressCAD是ARX写的，LISP的SSGET不支持输入任意字符和提示，ENTSEL也不支持，可以试下高飞大哥写的SSGET函数":?"模式,lisp的SSGET其实也支持:?模式，但没法写回调函数和自定义提示所以纯LISP很难做到。

st788796

Gdlprfcu 发表于 2014-1-9 19:28
PressCAD是ARX写的，LISP的SSGET不支持输入任意字符和提示，ENTSEL也不支持，可以试下高飞大哥写的SSGET函 ...

用人家提供的东西只有顺从，理想的要自已从底层去实现
认识问题

Gdlprfcu

st788796 发表于 2014-1-9 20:18
用人家提供的东西只有顺从，理想的要自已从底层去实现
认识问题

关键是以我所学认为LISP根本很难达到那样的效果，使用grread模拟是那种一触即发的，达不到那样的效果，且不符合CAD自身的使用习惯，而用ARX即很容易。

st788796

Gdlprfcu 发表于 2014-1-10 21:22
关键是以我所学认为LISP根本很难达到那样的效果，使用grread模拟是那种一触即发的，达不到那样的效果，且 ...

我的做法是做我目前能力所及的，做不到的就不再去想了，专心做下一件事。
也许以后水平提高后会有办法，也许无解