[求助]：斑竹eachy请进 所提问题简化

绘图员

请问斑竹：
   有没有这样的程序：过曲线上一点M(x,y)，画出曲线的法线？
这是我上一个帖子的简化，其他的程序代码我都已形成，就缺这个功能。
  经常看你的帖子，在我看来你的经验比我丰富多了。我这个程序节后就得用，我很急，求你帮把手吧！*-*6 *-*6

eachy

最初由 绘图员 发布
[B]请问斑竹：
   有没有这样的程序：过曲线上一点M(x,y)，画出曲线的法线？
这是我上一个帖子的简化，其他的程序代码我都已形成，就缺这个功能。
  经常看你的帖子，在我看来你的经验比我丰富多了。我这个程序节后?.. [/B]

两个办法：

1 xdrx_api（推荐）

1. 
   
2. xdrx_getperpline
   
3. 
   
4. 功    能：求AcDbCurve曲线上(line,polyline,lwpolyline,arc,circle,ellipse,spline)
   
5.           任一点的切线和法线角度值(0--2PI)或切线的单位矢量和法线的单位矢量
   
6. 
   
7. 调用格式：(xdrx_getperpline <AcDbCurve实体名> <参考点> [标志])
   
8. 
   
9. 说    明： 若参数[标志]存在且为t, 则返回切线和法线的单位矢量。
   
10. 
    
11. 返 回 值：LISP表 '(切线角度 法线角度) 或 '(切线单位矢量 法线单位矢量)
    

复制代码

2 ActiveX (方向有时会反，我测试时是这样，不知其他朋友的结果如何）

2. 
   
3. 语法
   
4. 
   
5.     (vlax-curve-getSecondDeriv curve-obj  param)
   
6. 
   
7. 功能
   
8. 
   
9.      返回曲线在指定位置的二阶导数（在 WCS 中）。
   
10. 
    
11. 　
    
12. 
    
13. 说明
    
14. 
    
15. 1）参数 curve-obj 为要测量的 VLA 对象。
    
16. 
    
17. 2）参数 param 为数值，指定曲线上的参数。
    
18. 
    
19. 返回值：
    
20. 
    
21. 若成功则返回三维矢量表，否则返回 nil。
    
22. 
    
23. 范例
    
24. 
    
25. 假定 splineObj 指向 vlax-curve-getDistAtParam 范例中的样条曲线。
    
26. 
    
27. 1）获取曲线的开始参数：
    
28. 
    
29. _$ (setq stparameter (vlax-curve-getStartParam splineObj))
    
30. 
    
31. 0.0
    
32. 
    
33. 2）获取曲线的结束参数：
    
34. 
    
35. _$ (setq endparameter (vlax-curve-getEndParam splineObj))
    
36. 
    
37. 18.2920
    
38. 
    
39. 3）确定沿曲线中点参数的二阶导数：
    
40. 
    
41. _$ (vlax-curve-getSecondDeriv splineObj  
    
42. 
    
43.    ( / (- endspline startspline) 2))  
    
44. 
    
45. (0.0365863 0.256155 0.0)
    
46. 
    

<br /> 语法<br /> <br />     (vlax-curve-getSecondDeriv curve-obj  param) <br /> <br /> 功能<br /> <br />      返回曲线在指定位置的二阶导数（在 WCS 中）。<br /> <br /> 　<br /> <br /> 说明<br /> <br /> 1）参数 curve-obj 为要测量的 VLA 对象。<br /> <br /> 2）参数 param 为数值，指定曲线上的参数。<br /> <br /> 返回值：<br /> <br /> 若成功则返回三维矢量表，否则返回 nil。<br /> <br /> 范例<br /> <br /> 假定 splineObj 指向 vlax-curve-getDistAtParam 范例中的样条曲线。<br /> <br /> 1）获取曲线的开始参数：<br /> <br /> _$ (setq stparameter (vlax-curve-getStartParam splineObj)) <br /> <br /> 0.0<br /> <br /> 2）获取曲线的结束参数：<br /> <br /> _$ (setq endparameter (vlax-curve-getEndParam splineObj)) <br /> <br /> 18.2920<br /> <br /> 3）确定沿曲线中点参数的二阶导数：<br /> <br /> _$ (vlax-curve-getSecondDeriv splineObj  <br /> <br />    ( / (- endspline startspline) 2))  <br /> <br /> (0.0365863 0.256155 0.0)<br /> <br />

绘图员

首先谢谢斑竹的帮助！
然后再请教
      1、对于第一个函数
   调用格式：(xdrx_getperpline  <参考点> [标志])
      <参考点>如何给？
      2、ActiveX我不会，你能简单说明一下吗？VLA对象是怎么回事？
   谢谢！别嫌我太初级！