[求助]已知多义线上一圆弧的一个端点，如何用osnap函数求这圆弧另一端点

yuangw1234

---

如附件已知多义线上一圆弧的一个端点p1，如何用osnap函数求这圆弧另一端点p2

我用(setq p2 (osnap p1 "endp")),老是得到p1这自已，不知道怎么回事，请高手帮忙,在此感谢

caoyin

;;获取多段线“段”的两个顶点

(defun c:tt (/ e p)
(setq e (entsel "\n选择多段线弧段: "))
(mapcar 'set '(e p) e)
(setq p (fix (vlax-curve-getparamatpoint e (vlax-curve-getclosestpointto e p))))
(list (vlax-curve-getpointatparam e p)
      (vlax-curve-getpointatparam e (1+ p))
)
)

yuangw1234

多谢指教，不过我不一定是选弧，我可能选的是旁边的线，我会用caoyin的程式去参考

yuangw1234

(mapcar 'set '(e p) e) 这句话不知道怎么理解

是否为把e赋值给e,把e赋值给p?

淮上

(mapcar 'set '(e p) e)

=

(setq p (cadr e) e (car e))