[求助]怎样求的曲线在某一点的切线方向？？

redearth

怎样求的曲线在某一点的切线方向？？


而在这一点也有一线，本人想求的从线逆时针至切线的角度。


想通过切线的角度减去直线的角度得到。


另外，直线的角度只能通过ANGLE两个短点求的吗？？有无其他方法。


3Q

meflying

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=14731 (vla-get-angle (vlax-ename->vla-object (car (entsel)))) 不用写这么多符号！！！！！！！！！！！！！！！

redearth

麻烦问一下，不用扩展函数，有简便实现方法吗？？


另外，楼上提供的连接，我看不明白

meflying

1、对一般曲线（SPLINE）不用扩展函数比较困难，我还想不到有什么办法。。。


2、执行一下我2楼的程序，选取SPLINE上的任意点

redearth

(vla-get-angle (vlax-ename->vla-object (car (entsel))))


我大致明白


但没让选切点呀！


是只对直线行吧

meflying

你说的是链接不明白，我是对链接的说明，


而(vla-get-angle (vlax-ename->vla-object (car (entsel))))不是链接，是针对你说的不用起点和终点求直线角度的代码。。。。。。。。。

redearth

na 曲线求切线方向怎么吧？？？

shicai

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 "")
)

meflying

redearth发表于2004-3-10 12:21:00na 曲线求切线方向怎么吧？？？

我给的链接中的我的程序。。。。