redearth 发表于 2004-3-8 17:37:00

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

本帖最后由 作者 于 2004-3-8 18:02:33 编辑





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


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


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


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


3Q

meflying 发表于 2004-3-8 17:52:00

<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=14731" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=14731</A>


(vla-get-angle (vlax-ename-&gt;vla-object (car (entsel))))


不用写这么多符号！！！！！！！！！！！！！！！

redearth 发表于 2004-3-8 17:59:00

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


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

meflying 发表于 2004-3-8 18:03:00

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


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

redearth 发表于 2004-3-8 18:07:00

(vla-get-angle (vlax-ename-&gt;vla-object (car (entsel))))


我大致明白


但没让选切点呀！


是只对直线行吧

meflying 发表于 2004-3-8 18:12:00

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


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

redearth 发表于 2004-3-10 12:21:00

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

shicai 发表于 2004-3-11 08:28:00

REFER TO:


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

meflying 发表于 2004-3-11 12:38:00

redearth发表于2004-3-10 12:21:00static/image/common/back.gifna 曲线求切线方向怎么吧？？？


<BR>我给的链接中的我的程序。。。。
页: [1]
查看完整版本: [求助]怎样求的曲线在某一点的切线方向？？