求助，求点到曲线的垂足

dajio

如何求某点到曲线的垂足？垂足有可能不在曲线上

请教一下，vlax-curve-getClosestPointTo 在搜索最近点时扩展曲线，对多段线对象为什么无效？
返回的是端点而不是延伸后的垂足

自贡黄明儒

顾名思义是p 点到曲线最近的点,即是垂点.如果没有垂点,当然最近的点是曲线端点了

dajio

已解决，感谢Gu_xl http://gyh060707.blog.sohu.com/176821263.html
求点到曲线的垂足(有可能不在曲线上)

1.     (setq pt0 (vlax-curve-getClosestPointTo objpline x nil)) ;_无扩展求最近点
   
2.     (setq par (vlax-curve-getparamatpoint objpline pt0)) ;_取得参数
   
3.     (setq drv (vlax-curve-getfirstderiv objpline par)) ;_取得切线向量
   
4.     (setq ptv (trans pt0 0 drv)) ;_将最近点按drv投影
   
5.     (setq ptv (trans (list (car ptv) (cadr ptv) (caddr (trans x 0 drv))) drv 0)) ;_求垂足

    (setq pt0 (vlax-curve-getClosestPointTo objpline x nil)) ;_无扩展求最近点<br />     (setq par (vlax-curve-getparamatpoint objpline pt0)) ;_取得参数<br />     (setq drv (vlax-curve-getfirstderiv objpline par)) ;_取得切线向量<br />     (setq ptv (trans pt0 0 drv)) ;_将最近点按drv投影<br />     (setq ptv (trans (list (car ptv) (cadr ptv) (caddr (trans x 0 drv))) drv 0)) ;_求垂足

樱木花道2

dajio 发表于 2013-7-11 19:24
已解决，感谢Gu_xl http://gyh060707.blog.sohu.com/176821263.html
求点到曲线的垂足(有可能不在曲线上)
...

这个好像有bug，例如pl线的偏移点就找不到程序错误