判断点在线上

时见申

(defun donpl( pt plname / vlist p1 p2 x1 x2 y1 y2 a b xt yt ax n)
  (setq vlist (vl-remove-if'not(mapcar'(lambda(x) (if (= (car x) 10) (cdr x))) (entget plname))))
        (setq n 0)
        (while (and p2 (not jg))
                (setq p1 (nth n vlist)
                        p2 (nth (+ n 1) vlist)
                        x1 (car p1)
                        y1 (cadr p1)
                        x2 (car p2)
                        y2 (cadr p2)
                        a (/ (- y1 y2) (- x1 x2))
                        b (- y1 (/ (* x1 (- y1 y2)) (- x1 x2)))
                        xt (car pt)
                        yt (cadr pt)
                        ax (+ (* xt a) b)
                )
               
                (setq jg (equal ax yt 0.001))
                (setq n (1+ n))
        )
        jg
)

lijiao

1. (equal pt (vlax-curve-getClosestPointTo plname pt) 0.000001)

复制代码

lijiao

cghdy 发表于 2022-2-16 16:30
能否区分在线上和在延长线上

2. (setq on1 (equal pt (vlax-curve-getClosestPointTo plname pt) 0.000001))
   
3. (setq on2 (equal pt (vlax-curve-getClosestPointTo plname pt t) 0.000001))
   
4. (cond
   
5.   ((and on1 on2) (princ "在线上"))
   
6.   ((and (not on1) on2) (princ "在延长线上"))
   
7.   (t (princ "在线外"))
   
8.   )

(setq on1 (equal pt (vlax-curve-getClosestPointTo plname pt) 0.000001))<br /> (setq on2 (equal pt (vlax-curve-getClosestPointTo plname pt t) 0.000001))<br /> (cond<br />   ((and on1 on2) (princ "在线上"))<br />   ((and (not on1) on2) (princ "在延长线上"))<br />   (t (princ "在线外"))<br />   )

时见申

lijiao 发表于 2018-8-31 14:19

新手函数太少，谢谢大神指点，万分感谢

taoyi0727

lijiao 发表于 2018-8-31 14:19

这个写好  可惜我不会VL

疯球

谢谢楼主分享！！！！！！

cghdy

lijiao 发表于 2018-8-31 14:19

能否区分在线上和在延长线上

自贡黄明儒

cghdy 发表于 2022-2-16 16:30
能否区分在线上和在延长线上

要判断是否在延长线上，最简单的办法是在P点产生一根直线，用vla-IntersectWith来判断。

cghdy

lijiao 发表于 2022-2-17 11:33

好办法

cghdy

自贡黄明儒 发表于 2022-2-17 08:34
要判断是否在延长线上，最简单的办法是在P点产生一根直线，用vla-IntersectWith来判断。

lijiao回复的vlax-curve-getClosestPointTo是带了这个功能的