与cu相切的角度/斜率

russell84 · 发表于 2022-7-6 14:58:37

有人能帮忙吗

在vb中。net如何找到给定点相对于X轴的切线与曲线的角度？

这也必须是象限敏感的吗？

CarlB · 发表于 2022-7-6 15:06:47

不知道vb。net，但您需要的函数/表达式是“反正切”，所以请寻找类似的函数/表达式。在lisp中是“atan”。是的，它是象限敏感的，正切线会给你一个0-90度的结果，负切线是90-180度。

**编辑**发现这个，可能会有帮助：

本例使用Math类的Atan方法计算pi的值。

copy


Public Function GetPi() As Double
   ' Calculate the value of pi.
   Return 4.0 * Math.Atan(1.0)
End Function

SEANT · 发表于 2022-7-6 15:11:28

3d曲线的一般方法是：

1、选择曲线
2.使用（DatabaseServices.curve.GetClosestPointTo）在曲线上拾取点（Point3d）
3.使用（DatabaseServices.Curve.GetFirst导数（Geometry.Point3d））获取一阶导数（Geometry.Vector3d）
4、获取与系统的角度。数学Atan（Geometry.Vector3d.Y/Geometry.Vector3d.X）

russell84 · 发表于 2022-7-6 15:12:37

啊，非常感谢

russell84 · 发表于 2022-7-6 15:18:24

那么，我如何计算它在哪个象限，这样我就可以计算出‘切线法线’。？

Lee Mac · 发表于 2022-7-6 15:20:45

Tan对于象限1和3是正的，对于象限2和4是负的，因此正结果表示向量在x轴的0-pi/2处，加或减pi；负π/2-π，加或减π。

我想你可以添加编码，通过π弧度来校正角度，这样你只能得到一个介于0和π之间的答案，那么切线的法线就是弧tan+pi/2。

这是一个纯二维问题，还是你对切线的副法线也感兴趣？

russell84 · 发表于 2022-7-6 15:25:48

不，这纯粹是二维的。

谢谢你-我改变了代码，所以它现在可以工作了。

这就是我所拥有的。

copy


[size=2][color=#0000ff]Public Function [/color][/size][size=2]CalcAngle([/size][size=2][color=#0000ff]ByVal [/color][/size][size=2]ObjCurve [/size][size=2][color=#0000ff]As [/color][/size][size=2]AcadNetDbServices.Curve, [/size][size=2][color=#0000ff]ByVal [/color][/size][size=2]Dist [/size][size=2][color=#0000ff]As [/color][/size][size=2][color=#6f002f]Double[/color][/size][size=2])
[/size][size=2][color=#008000] 
[/color][/size][size=2][color=#0000ff]Dim [/color][/size][size=2]Radians [/size][size=2][color=#0000ff]As [/color][/size][size=2][color=#6f002f]Double
[/color][/size][size=2][color=#0000ff]Dim [/color][/size][size=2]Degrees [/size][size=2][color=#0000ff]As [/color][/size][size=2][color=#6f002f]Double
[/color][/size][size=2][color=#0000ff]Dim [/color][/size][size=2]Point1 [/size][size=2][color=#0000ff]As [/color][/size][size=2]AcadNetGeometry.Point3d = ObjCurve.GetPointAtDist(Dist)
[/size][size=2][color=#0000ff]Dim [/color][/size][size=2]firstderiv [/size][size=2][color=#0000ff]As [/color][/size][size=2]AcadNetGeometry.Vector3d = ObjCurve.GetFirstDerivative(Point1)
Radians = Math.Atan2([/size][size=2][color=#0000ff]Cdbl[/color][/size][size=2](firstderiv.Y) , [/size][size=2][color=#0000ff]Cdbl[/color][/size][size=2](firstderiv.X))
Degrees = Radians * (180 / Math.PI)
[/size][size=2][color=#008000]'If in positive quadrants then = 180 - abs.Degrees
'If in Negative quadrants then = Abs.Degrees - 180
[/color][/size][size=2][color=#0000ff]If [/color][/size][size=2]Degrees < 0 [/size][size=2][color=#0000ff]Then
[/color][/size][size=2]Degrees = (Math.Abs(Degrees)) + 180
[/size][size=2][color=#0000ff]Else
[/color][/size][size=2]Degrees = 180 - (Math.Abs(Degrees))
[/size][size=2][color=#0000ff]End If
[/color][/size][size=2]CalcAngle = Degrees
[/size][size=2][color=#0000ff]End Function
[/color][/size]