2维平面中，判断点在矢量(线)的左侧/右侧，矢量trans，附实例。

菜卷鱼

不知道我这样子行不行

1. (defun pt2line (pt pt1 pt2 / ang)
   
2.   (setq ang (- (angle pt pt1) (angle pt2 pt1)))
   
3.   (if (= ang 0)
   
4.     0
   
5.     (/ ang (abs ang))
   
6.   )
   
7. )

(defun pt2line (pt pt1 pt2 / ang)<br />   (setq ang (- (angle pt pt1) (angle pt2 pt1)))<br />   (if (= ang 0)<br />     0<br />     (/ ang (abs ang))<br />   )<br /> )