判断点是否在绘图屏幕内！

wowan1314

2. ;;==================={ 判断点是否在屏幕内 }============
   
3. ;;格式(YY-ptinview pt)--在T,不在nil---BY wowan1314
   
4. ;;测试:(YY-ptinview (GETPOINT))
   
5. (defun YY-ptinview (pt / a b c d x)
   
6.   (setq b (getvar "viewsize")
   
7.         c (car (getvar "screensize"))
   
8.         d (cadr (getvar "screensize"))
   
9.         a (* b (/ c d))
   
10.         x (trans (getvar "viewctr") 1 2)
    
11.         c (list (- (car x)  (* a 0.5)) (- (cadr x) (* b 0.5)) 0.0)
    
12.         d (list (+ (car x) (* a 0.5)) (+ (cadr x) (* b 0.5)) 0.0)
    
13.         a (MAPCAR '<= C (TRANS PT 1 2) D)
    
14.   )
    
15.   (AND(CAR A)(CADR A))
    
16. )

;;==================={ 判断点是否在屏幕内 }============<br /> ;;格式(YY-ptinview pt)--在T,不在nil---BY wowan1314<br /> ;;测试:(YY-ptinview (GETPOINT))<br /> (defun YY-ptinview (pt / a b c d x)<br />   (setq b (getvar "viewsize")<br />         c (car (getvar "screensize"))<br />         d (cadr (getvar "screensize"))<br />         a (* b (/ c d))<br />         x (trans (getvar "viewctr") 1 2)<br />         c (list (- (car x)  (* a 0.5)) (- (cadr x) (* b 0.5)) 0.0)<br />         d (list (+ (car x) (* a 0.5)) (+ (cadr x) (* b 0.5)) 0.0)<br />         a (MAPCAR '<= C (TRANS PT 1 2) D)<br />   )<br />   (AND(CAR A)(CADR A))<br /> )

/db_自贡黄明儒_

这个函数很有用
(IF(AND(CAR A)(CADR A))T NIL)写成(AND(CAR A)(CADR A))更精简些

sicky111

支持兄弟出更多好用又实用的函数。

q3_2006

努力理解中！

pengfei2010

很强大！学习了，不错不错