[LISP函数]：自由点选对象chengs_ssgetpoint

libo2000

2. 
   
3.   [FONT=courier new]
   
4. ;;匹配点选对象
   
5. (defun chengs_ssgetpoint ( p0 filter_list / e0 e1  ss_hide i result)
   
6.   ;;;;;;;;Select No.1 match with point
   
7. 
   
8.   (setq
   
9.           ss_hide (ssadd)
   
10.           i 0
    
11.           e0 T
    
12.   )
    
13.   (while  (and p0 e0 (not e1))
    
14.     (setq e0 (ssget p0))
    
15.     (if e0
    
16.       (progn
    
17.         (setq e0 (ssname (ssget p0) 0))
    
18.         (if (or (= filter_list "x") (= filter_list "X") (= filter_list nil) )  ;(chengs_ssgetpoint p0 filter_list) = (ssget p0)
    
19.                    (setq e1 (ssget "P"))
    
20.                    (setq e1 (ssget "P" filter_list))
    
21.         )
    
22.         (ssadd e0 ss_hide)
    
23.         (redraw e0 2)
    
24.       )
    
25.     );endif e0
    
26.   );endwhile
    
27.   (while (setq e0 (ssname ss_hide i))
    
28.     (redraw e0 1)
    
29.     (setq i (+ i 1))
    
30.   )
    
31.   (setq result e1)
    
32. );endfun chengs_ssgetpoint
    
33.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;匹配点选对象<br /> (defun chengs_ssgetpoint ( p0 filter_list / e0 e1  ss_hide i result)<br />   ;;;;;;;;Select No.1 match with point<br /> <br />   (setq <br />           ss_hide (ssadd)<br />           i 0<br />           e0 T<br />   )<br />   (while  (and p0 e0 (not e1))<br />     (setq e0 (ssget p0))<br />     (if e0<br />       (progn<br />         (setq e0 (ssname (ssget p0) 0))<br />         (if (or (= filter_list "x") (= filter_list "X") (= filter_list nil) )  ;(chengs_ssgetpoint p0 filter_list) = (ssget p0)<br />                    (setq e1 (ssget "P"))<br />                    (setq e1 (ssget "P" filter_list))<br />         )<br />         (ssadd e0 ss_hide)<br />         (redraw e0 2)<br />       )<br />     );endif e0<br />   );endwhile<br />   (while (setq e0 (ssname ss_hide i))<br />     (redraw e0 1)<br />     (setq i (+ i 1))<br />   )<br />   (setq result e1)<br /> );endfun chengs_ssgetpoint<br />   [/FONT]<br />

light_dream

可否说说你的程序思路和主要功能？

libo2000

最初由 light_dream 发布
[B]可否说说你的程序思路和主要功能？ [/B]

(ssget p0)不是只能选择其中一个对象吗？
他并不一定能选择到你想选择的对象。
比如p0点上有2 line，你怎么办？该函数就为此而生！
呵呵，再改改就可以简单判断某点是否在对象上了。

程序思路很简单，就是利用(redraw)把对象隐藏再次（ssget p0）
一个技巧就是（ssget “p” filter-list）－－大家可能只习惯(ssget "p")，不太习惯为他加上filter_list

2. 
   
3.   [FONT=courier new]
   
4. ;;匹配点选对象
   
5. (defun chengs_ssgetPoint ( p0 filter_list / e0 e1  ss_hide i result)
   
6.   ;;;;;;;;Select No.1 match with point
   
7.   ;;;;;;;;Use：(setq e0 (chengs_ssgetpoint (getpoint) '((62 . 1))))
   
8. 
   
9.   (setq
   
10.           ss_hide (ssadd)
    
11.           i 0
    
12.           e0 T
    
13.   )
    
14.   (while  (and p0 e0 (not e1))
    
15.     (setq e0 (ssget p0))
    
16.     (if e0
    
17.       (progn
    
18.         (setq e0 (ssname (ssget p0) 0))
    
19.         (ssadd e0 ss_hide)
    
20.         (if (or (= filter_list "x") (= filter_list "X")  )  ;(chengs_ssgetpoint p0 filter_list) = (ssget p0)
    
21.                    (setq e1 (ssget "P"))
    
22.                    (setq e1 (ssget "P" filter_list))
    
23.         )
    
24.         (if (not filter_list) (setq e1 nil))        
    
25.         (redraw e0 2)
    
26.       )
    
27.     );endif e0
    
28.   );endwhile
    
29.   (while (setq e0 (ssname ss_hide i))
    
30.     (redraw e0 1)
    
31.     (setq i (+ i 1))
    
32.   )
    
33. ;如果filter_list为空则得点上所有对象，
    
34.   (if filter_list (setq result e1) (setq result ss_hide))
    
35.   
    
36. );endfun chengs_ssgetpoint
    
37. 
    
38. ;;点在对象上
    
39. (defun chengs_PointInEname ( p0 e0 / e1  ss i result)
    
40.   (setq ss (chengs_ssgetpoint p0 nil))
    
41.   (setq i 0)
    
42.   (if (listp e0) (setq e0 (car e0)))
    
43.   (while (setq e1 (ssname ss i))
    
44.     (if (eq e0 e1) (setq result T e1 nil))
    
45.     (setq i (+ i 1))
    
46.   )
    
47.   result
    
48. );endfun chengs_pointinename
    
49.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;匹配点选对象<br /> (defun chengs_ssgetPoint ( p0 filter_list / e0 e1  ss_hide i result)<br />   ;;;;;;;;Select No.1 match with point<br />   ;;;;;;;;Use：(setq e0 (chengs_ssgetpoint (getpoint) '((62 . 1))))<br /> <br />   (setq <br />           ss_hide (ssadd)<br />           i 0<br />           e0 T<br />   )<br />   (while  (and p0 e0 (not e1))<br />     (setq e0 (ssget p0))<br />     (if e0<br />       (progn<br />         (setq e0 (ssname (ssget p0) 0))<br />         (ssadd e0 ss_hide)<br />         (if (or (= filter_list "x") (= filter_list "X")  )  ;(chengs_ssgetpoint p0 filter_list) = (ssget p0)<br />                    (setq e1 (ssget "P"))<br />                    (setq e1 (ssget "P" filter_list))<br />         )<br />         (if (not filter_list) (setq e1 nil))        <br />         (redraw e0 2)<br />       )<br />     );endif e0<br />   );endwhile<br />   (while (setq e0 (ssname ss_hide i))<br />     (redraw e0 1)<br />     (setq i (+ i 1))<br />   )<br /> ;如果filter_list为空则得点上所有对象，<br />   (if filter_list (setq result e1) (setq result ss_hide))<br />   <br /> );endfun chengs_ssgetpoint<br /> <br /> ;;点在对象上<br /> (defun chengs_PointInEname ( p0 e0 / e1  ss i result)<br />   (setq ss (chengs_ssgetpoint p0 nil))<br />   (setq i 0)<br />   (if (listp e0) (setq e0 (car e0)))<br />   (while (setq e1 (ssname ss i))<br />     (if (eq e0 e1) (setq result T e1 nil))<br />     (setq i (+ i 1))<br />   )<br />   result<br /> );endfun chengs_pointinename<br />   [/FONT]<br />

aeo

要选特定的对象,前面有讨论,我感觉你的不是很好.

通过点选到对象,并不表示这点在这对象上.