[求助]：关于样条曲线

ago9999

怎么过样条曲线上一点做它垂线
目的是为了用样条线做拉伸路径时候使截面与它垂直

XDSoft

最初由 ago9999 发布
[B]怎么过样条曲线上一点做它垂线
目的是为了用样条线做拉伸路径时候使截面与它垂直 [/B]

如果你要用ACAD交互绘图，那么ACAD论坛很多精彩的帖子，看看下面的连接，就是做你说的。

http://www.xdcad.net/forum/showthread.php?threadid=73262


如果你要写程序，根据参数曲线的数学定义，曲线上任一点的一阶导数，是曲线的切线，得到切向量后，逆时针旋转90度，就得到垂向量了。

XDRX API 提供了：

1. [font=courier]
   
2. 252. xdrx_curve_getFirstDeriv
   
3. 
   
4. 功能：获得曲线上一点处的一阶导数(沿曲线前进方向在该点处的切向量)
   
5. 
   
6. 调用格式：(xdrx_curve_getFirstDeriv <曲线实体名> <曲线上任一点>)
   
7.          (xdrx_curve_getFirstDeriv <曲线实体名> <曲线上任一参数值>)
   
8. 
   
9. 返回值：向量(3d点)
   
10. [/font]

复制代码

1. [font=courier]
   
2. 328. xdrx_vector_PerpVector
   
3. 
   
4. 功能：求垂向量
   
5. 
   
6. 调用格式：(xdrx_vector_PerpVector <向量>)
   
7. 
   
8. 
   
9. 329. xdrx_vector_Normalize
   
10. 
    
11. 功能：求向量的单位向量
    
12. 
    
13. 调用格式：(xdrx_vector_Normalize <向量>)
    
14. 
    
15. 返回值：向量
    
16. [/font]

复制代码

ago9999

xiexie laoda
shi bushi zuo qumian de chuixian yeshi ruci.
谢谢你介绍的个方法
可我遇到这样的一个问题，用偏移或外延垂线来得到的垂线，用此垂线定义UCS，并加入圆截面在此垂线面内，以样条曲线做拉伸路径做实体，得到的实体两端均可直接量取半径，可遇到这么个问题，当我在用此方法做做样条曲线的其它垂线，并用垂线切割实体，可截面量不出半径，也就是说此实体非全等截面，不知原因，希望点解，谢谢！

lsjjm

REFER TO:
(defun C:test ()
  (vl-load-com)
  (setq p (getpoint "\nPick a Point:"))
  (setq cur (ssname (ssget p) 0))
  (setq obj (vlax-ename->vla-object cur))
  (setq tan (vlax-Curve-GetFirstDeriv obj
              (vlax-Curve-GetParamatDist obj
                (vlax-curve-getDistAtPoint obj p))))
  (setq pe (polar p (atan (/ (cadr tan)(car tan))) 1))
  (vl-cmdf "line" p pe  "")   
)

jwj0805

lsjjm 发表于 2003-12-11 10:58
REFER TO:
(defun C:test ()
  (vl-load-com)

最后那句要加pi/2吧