[功能] 判断点在曲线同侧

/db_自贡黄明儒_

使用ET工具中的extrim,它能判断剪切同侧的线

;;[功能] 在曲线上最近点的前后取点
;;p1 起点或者曲线最近点后的一点
;;p2 用户给定点
;;p3 终点或者曲线最近点前的一点
;;曲线e上离p1最近的点
(defun _curve2p (e p2 / P P1 P3 PPARAM)
  (setq p (vlax-curve-getClosestPointTo e p2));给定点p2离曲线上最近的点p
  (setq Pparam (vlax-curve-getparamatpoint e p))
  (if (>= Pparam 0.00001)     
    (setq p1 (vlax-curve-getpointatparam e (- Pparam 0.00001)))
    (setq p1 p)
  )
  
  (if (>= (- (vlax-curve-getEndParam e) Pparam) 0.00001)    
    (setq p3 (vlax-curve-getpointatparam e (+ Pparam 0.00001)))
    (setq p3 p)
  )
  (list p1 p3)  
)

;;[功能] 判断点在曲线同侧
;;det [url]http://bbs.xdcad.net/forum.php?mod=viewthread&tid=677303&highlight=%B2%E6%BB%FD[/url]
(defun C:w1 (/ E P2 PTS)
  (setq p2 (getpoint"\n取点"))
  (setq e (car (entsel"\n曲线")))
  (setq pts (_curve2p e p2))
  (if (not (minusp (det (car pts) p2 (cadr pts))))(princ "\n 逆时针"))
)

Lisphk

黄总又有作品，请问这个和EXTRIM怎么结合？

newer

缺 DET 函数，补上吧。

/db_自贡黄明儒_

newer 发表于 2016-10-26 15:14

DET 给了的哇   

newer

/db_自贡黄明儒_ 发表于 2016-10-26 15:23

老了，眼花了

转帖过来吧，看着方便

;;(det (getpoint)(getpoint)(getpoint))
(defun det (p1 p2 p3 / x2 y2)
  (setq        x2 (car p2)
        y2 (cadr p2)
  )
  (- (* (- x2 (car p3)) (- y2 (cadr p1)))
     (* (- x2 (car p1)) (- y2 (cadr p3)))
  )
)

结论：1    p1 p2 p3 逆时针为正。
           2   三点共线为0

值是三角形2倍面积。