yuangw1234 发表于 2009-7-30 14:33:00

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

<p><hr/></p><p>如附件已知多义线上一圆弧的一个端点p1，如何用osnap函数求这圆弧另一端点p2</p><p>我用(setq p2 (osnap p1 "endp")),老是得到p1这自已，不知道怎么回事，请高手帮忙,在此感谢</p>

caoyin 发表于 2009-7-30 16:33:00

<p>;;获取多段线“段”的两个顶点</p><p>(defun c:tt (/ e p)<br/>(setq e (entsel "\n选择多段线弧段: "))<br/>(mapcar 'set '(e p) e)<br/>(setq p (fix (vlax-curve-getparamatpoint e (vlax-curve-getclosestpointto e p))))<br/>(list (vlax-curve-getpointatparam e p)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-curve-getpointatparam e (1+ p))<br/>)<br/>)</p>

yuangw1234 发表于 2009-7-31 14:47:00

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

yuangw1234 发表于 2009-7-31 15:10:00

<p></p><p>(mapcar 'set '(e p) e) 这句话不知道怎么理解</p><p>是否为把e赋值给e,把e赋值给p?</p>

淮上 发表于 2009-7-31 15:26:00

<p>(mapcar 'set '(e p) e) </p><p>=</p><p>(setq p (cadr e) e (car e))</p>
页: [1]
查看完整版本: [求助]已知多义线上一圆弧的一个端点，如何用osnap函数求这圆弧另一端点