（XD::GEOM:IsPtOnLine）判断点是否在线段上

marting

1. (defun XD::GEOM:IsPtOnLine (pt l1 l2 fz)
   
2.   (and
   
3.     (numberp fz)
   
4.     (equal (distance l1 l2) (+ (distance l1 pt) (distance l2 pt)) fz)
   
5.   )
   
6. )
   
7. 
   

(defun XD::GEOM:IsPtOnLine (pt l1 l2 fz)<br />   (and<br />     (numberp fz)<br />     (equal (distance l1 l2) (+ (distance l1 pt) (distance l2 pt)) fz)<br />   )<br /> )<br /> <br />