怎么取得多段线点取的一段的折点坐标

xj6019

(setq SAA (car (entsel)))

(setq p1 (vlax-curve-getPointAtParam SAA(vlax-curve-getstartparam SAA) ));起點

(setq p2(vlax-curve-getPointAtParam SAA(vlax-curve-getEndParam SAA) ));終點

上面的代码是取得多段线端点坐标的，我想要的是如果选择中间一段，不是取得整条多段线的最端点坐标，而是想取得选择的折断段的折点的坐标，比方说选择矩形的一个边，P1 P2希望是所选择的这个矩形边的两个端点。

当然普通直线也是需要支持的哦

xj6019

自己解决，非常完美

(defun PickSegEndPt (obj p / pp n)
  (setq  pp (vlax-curve-getclosestpointto obj (trans p 1 0))
        n  (fix (vlax-curve-getparamatpoint obj pp)))
  (list  (vlax-curve-getPointAtParam obj n)
        (vlax-curve-getPointAtParam obj (1+ n)))
)
(while
  (not(wcmatch
    (cdr(assoc 0(setq enl2(entget(car (setq en (entsel "\n選擇線")))))))
    "*LINE"
    )
  )
)
(if  (= (cdr (assoc 0 enl2)) "LINE")
        (setq p1 (cdr (assoc 10 enl2))
                p2 (cdr (assoc 11 enl2))
        )
        (progn
            (setq p1p2(PickSegEndPt (car en) (cadr en)))
            (setq p1 (car p1p2)
                  p2 (cadr p1p2)
            )
        )
)