[求助]：求垂直于曲线的点坐标

真龙天子

已知P（Px  Py）是曲线L上一点，M 点垂直于曲线，M到P点的距离为b，求垂直于曲线的M点坐标（Mx  My)。敬请各位大侠出招。

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;;不知道是否合你意?
   
5. ;;; ==================================================================
   
6. ;;; 返回(距离  垂足) 点pt到直线的距离和垂足.
   
7. ;;; ==================================================================
   
8. (defun th-per (pt obj / pt2 dist)
   
9.   (if (and
   
10.         pt
    
11.         obj
    
12.       )
    
13.     (setq dist (distance pt (setq pt2 (vlax-curve-getclosestpointto obj pt t))))
    
14.   )
    
15.   (list dist pt2)
    
16. )
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;不知道是否合你意?<br /> ;;; ==================================================================<br /> ;;; 返回(距离  垂足) 点pt到直线的距离和垂足.<br /> ;;; ==================================================================<br /> (defun th-per (pt obj / pt2 dist)<br />   (if (and<br />         pt<br />         obj<br />       )<br />     (setq dist (distance pt (setq pt2 (vlax-curve-getclosestpointto obj pt t))))<br />   )<br />   (list dist pt2)<br /> )<br />   [/FONT]<br />