[求助]：如何作出任意曲线上一点的切线

hhj017

图中是两椭圆一部分，我想作出直线与椭圆相交的那个点的切线，再作出另一个椭圆上与之平行的切线，不知如何为之！望赐教！

马甲

可以曲线救国
用XL命令，回车后输入PER回车，拾取曲线，再拾取指定点，就画出垂线了。旋转垂线90度OK。

还可以偏移曲线任意距离，然后直接画垂线，并旋转。

jurgzi

最初由 马甲 发布
[B]可以曲线救国
用XL命令，回车后输入PER回车，拾取曲线，再拾取指定点，就画出垂线了。旋转垂线90度OK。 [/B]

刚才试了一下，发现不行啊，把交点部分z大后发现ro后的xl线与椭圆不相交
不知道是什么回事
晕死￣！

hhj017

我也试了一下，的确不行，还是没相切的！

cdhua001

最初由 jurgzi 发布
[B]刚才试了一下，发现不行啊，把交点部分z大后发现ro后... [/B]

初学者吧？
放大后显示分开，那是显示问题，用命令RE刷新一下就可以了。

zhkingl

试了一试，完全可以。不必旋转，可用UCS的3P，即可引出垂线。

jurgzi

虽然可以说是初学者，不过re我也是晓得的
在z后再re，再z，再re，。。。。
多次后，你还是会发现不相交
上次发文前我已试过了
呵呵呵


再试了一次，还是不行

在z了再re的循环了6-8次左右后，再怎么re都不会相交

不如你说说用ucs怎么作垂线吧，这个我不懂，呵呵呵

lsjjm

任意曲线上一点的切线:
[php]
(defun C:test ()
  (setq p (getpoint "\nPick a Point:"))
  (setq cur (car (entsel)))
  (setq tan (vlax-Curve-GetFirstDeriv cur
              (vlax-Curve-GetParamatDist cur
                (vlax-curve-getDistAtPoint cur p))))
  (setq pe (polar p (atan (/ (cadr tan)(car tan))) 1))
  (vl-cmdf "xline" p pe  "")
)
[/php]

一派

最初由 lsjjm 发布
[B]任意曲线上一点的切线:
[php]
(defun C:test ()
  (setq p (getpoint "\nPick a Point:"))
  (setq cur (car (entsel)))
  (setq tan (vlax-Curve-GetFirstDeriv cur
              (vlax-Curve-GetParamatDist cur
... [/B]

不知道怎么使用！需要加载吗？加载后应该输入什么命令？

cqhh

加载后输入命令"TEST

x_aerbo

对呀，放大后不管怎么re都不相交，到底是咋回事呀？

6楼的大侠，怎么用ucs的3p做呀

jxsd627

6楼上传的图片有问题，如果两个椭圆不是同一个圆心的话，那他们的切点不可能在同一条垂线上。看完你们的贴我还是不知道怎么画，那位要传一个教学演示就好了

cdhua001

这个问题讨论过多次了，我将动画引用过来吧。
另：说放大后不相交的朋友，自己去多看看书或帮助吧。[/COLOR]


ahlzl版主的动画：

                               
登录/注册后可看大图

maplesu版主的动画：

                               
登录/注册后可看大图

我以前做的动画：

                               
登录/注册后可看大图

yy168

最初由 马甲 发布
[B]可以曲线救国
用XL命令，回车后输入PER回车，拾取曲线，再拾取指定点，就画出垂线了。旋转垂线90度OK。

还可以偏移曲线任意距离，然后直接画垂线，并旋转。 [/B]

我也很认可这种方法，理论上也毫无疑问。可给曲线作垂线时却根本无法捕捉到直线与曲线的真实交点；显示捕捉了，但放大时却有偏差，用re也没用，因此作不出准确的图来。请高手指点！

ll_j

放大后看上去的确不相交，这可能有Acad使用什么线形模拟椭圆的问题，但在数据库中他们还是相交的，附图是我使用XL作垂线放大后的结果，为表达意思，先作了一条辅助线，再以交点作垂线（过程省略），放大后的看起来确不相交，但具体操作进行捕捉时的标记可以看出，数据库中椭圆的位置并不是显示的位置。所以，使用XL所作出的垂线（及切线）满足要求。