(XD::Pnts:InScreen)筛选点集中位于显示屏幕内的点

st788796

1. (defun XD::Pnts:inScreen (pts / ll box)
   
2.   (setq        box   (XD::Doc:GetView4Pnt)
   
3.         ll  (vl-remove-if
   
4.               '(lambda (x)
   
5.                  (and (apply 'and (mapcar '>= x (car box)))
   
6.                       (apply 'and (mapcar '<= x (cadr box)))
   
7.                  )
   
8.                )
   
9.               pts
   
10.             )
    
11.   )
    
12. )

(defun XD::Pnts:inScreen (pts / ll box)<br />   (setq        box   (XD::Doc:GetView4Pnt)<br />         ll  (vl-remove-if<br />               '(lambda (x)<br />                  (and (apply 'and (mapcar '>= x (car box)))<br />                       (apply 'and (mapcar '<= x (cadr box)))<br />                  )<br />                )<br />               pts<br />             )<br />   )<br /> )

swooow

好佩服楼主，敬佩正需要，支持楼主大人了！