[LISP函数-点]：测试点是否在当前视口

eachy

2. 
   
3. ;; ! ****************************************************************************
   
4. ;; ! GE_PntInView
   
5. ;; ! ****************************************************************************
   
6. ;; ! Function : Check if point is in current viewport
   
7. ;; ! Auguments: 'pt'  - The point to be checked
   
8. ;; ! Return   : T or nil depending on 'pt' is in viewport or not
   
9. ;; ! Updated  : April 22, 1998
   
10. ;; ! (C) 1999-2004, Four Dimension Technologies, Bangalore
    
11. ;; ! e-mail   : [email]rakesh.rao@4d-technologies.com[/email]
    
12. ;; ! Web      : [url]www.4d-technologies.com[/url]
    
13. ;; ! ****************************************************************************
    
14. ;; 测试点是否在当前视口
    
15. (defun GE_PntInView (pt / vc Y_Len ssz X_Pix Y_Pix X_Len ll ur)
    
16.   (setq
    
17.     vc          (getvar "VIEWCTR")
    
18.     Y_Len (getvar "VIEWSIZE")
    
19.     ssz          (getvar "SCREENSIZE")
    
20.     X_Pix (car ssz)
    
21.     Y_Pix (cadr ssz)
    
22.     X_Len (* (/ X_Pix Y_Pix) Y_Len)
    
23.     ll          (polar vc (MI_d2r 180.0) (* 0.5 X_Len))
    
24.     ur          (polar ll 0.0 X_Len)
    
25.     ll          (polar ll (MI_d2r 270.0) (* 0.5 Y_Len))
    
26.     ur          (polar ur (MI_d2r 90.0) (* 0.5 Y_Len))
    
27.   )
    
28. 
    
29.   (if (and
    
30.         (> (car pt) (car ll))
    
31.         (< (car pt) (car ur))
    
32.         (> (cadr pt) (cadr ll))
    
33.         (< (cadr pt) (cadr ur))
    
34.       )
    
35.     T
    
36.     nil
    
37.   )
    
38. )

<br /> ;; ! ****************************************************************************<br /> ;; ! GE_PntInView<br /> ;; ! ****************************************************************************<br /> ;; ! Function : Check if point is in current viewport<br /> ;; ! Auguments: 'pt'  - The point to be checked<br /> ;; ! Return   : T or nil depending on 'pt' is in viewport or not<br /> ;; ! Updated  : April 22, 1998<br /> ;; ! (C) 1999-2004, Four Dimension Technologies, Bangalore<br /> ;; ! e-mail   : [email]rakesh.rao@4d-technologies.com[/email]<br /> ;; ! Web      : [url]www.4d-technologies.com[/url]<br /> ;; ! ****************************************************************************<br /> ;; 测试点是否在当前视口<br /> (defun GE_PntInView (pt / vc Y_Len ssz X_Pix Y_Pix X_Len ll ur)<br />   (setq<br />     vc          (getvar "VIEWCTR")<br />     Y_Len (getvar "VIEWSIZE")<br />     ssz          (getvar "SCREENSIZE")<br />     X_Pix (car ssz)<br />     Y_Pix (cadr ssz)<br />     X_Len (* (/ X_Pix Y_Pix) Y_Len)<br />     ll          (polar vc (MI_d2r 180.0) (* 0.5 X_Len))<br />     ur          (polar ll 0.0 X_Len)<br />     ll          (polar ll (MI_d2r 270.0) (* 0.5 Y_Len))<br />     ur          (polar ur (MI_d2r 90.0) (* 0.5 Y_Len))<br />   )<br /> <br />   (if (and<br />         (> (car pt) (car ll))<br />         (< (car pt) (car ur))<br />         (> (cadr pt) (cadr ll))<br />         (< (cadr pt) (cadr ur))<br />       )<br />     T<br />     nil<br />   )<br /> )