[求助]：已知两相交直线和其之间一点P，如何求得对应于点P往交点方向的两直线端点（详

hsslyl

如图：已知两相交直线和其之间一点P，如何用简便方法求得对应于点P往交点方向两直线的端点A和B？
请高手指点，谢谢

xiao_longxin

定一条直线为A－A1，另一条直线为B－B1，交点为J，且方位角A－A1小于B－B1，
则有直线J－P的方位角落于方位角A－A1与B－B1之间
那么点P恒在直线A－A1右边，在直线B－B1的左边
由此可以判断出A、B点

代码就自己写了，应该不难

logo3490

(defun c:test (/)
        (setq ss-filter (list (cons 0 "LINE")))

        (if (not (and (eq 1 (logand 1 (getvar "pickfirst"))) (setq ss (ssget "_I" ss-filter)))) (setq ss (ssget ss-filter)))
        (if (/= (if ss (sslength ss) 0) 2) (exit))

        (setq oldosmode (getvar "OSMODE"))
        (setvar "OSMODE" 0)
        (initget 1)(setq p (getpoint "\n Getpoint: "))
        (setvar "OSMODE" oldosmode)

        (setq
                e1                (ssname ss 0)
                e2                (ssname ss 1)
                ex1                (entget e1)
                ex1p1        (cdr (assoc 10 ex1))
                ex1p2        (cdr (assoc 11 ex1))
                ex2                (entget e2)
                ex2p1        (cdr (assoc 10 ex2))
                ex2p2        (cdr (assoc 11 ex2))
                xp                (inters ex1p1 ex1p2 ex2p1 ex2p2 nil)
                ang                (+ (angle ex1p1 ex1p2) (/ pi 2.0))
                pA                (inters ex1p1 ex1p2 p (polar p ang 1) nil)
                ang                (+ (angle ex2p1 ex2p2) (/ pi 2.0))
                pB                (inters ex2p1 ex2p2 p (polar p ang 1) nil)

        ) ; end setq
        (grdraw p pA 2)
        (grdraw p pB 2)
        (grdraw p xp 3)


        (princ)
) ; end defun

hsslyl

最初由 xiao_longxin 发布
[B]定一条直线为A－A1，另一条直线为B－B1，交点为J，且方位角A－A1小于B－B1，
则有直线J－P的方位角落于方位角A－A1与B－B1之间
那么点P恒在直线A－A1右边，在直线B－B1的左边
由此可以判断出A、B点

代码就自己... [/B]

感谢xiao_longxin 提供思路！