[求助]：求SPLINE曲线的切线的画法

Laoyao

已知一SPLINE曲线,,如何求与它相切的一条垂线
(求这红线.)

yxc

你要做什么样的图啊，这样的表述怎么理解啊

截个图来说明

**************************

噢，这样啊，好像不好做，因为样条曲线上不能捕捉递延切点

有朋友能做出来吗

Laoyao

多谢AHLZL的指点，写了一段ＶＢＡ代码，我的要求基本满足了．
以下代码还应该加入
１）通过旋转坐标，求不同角度的切线，
２）判断所求点是否是曲线的端点．
因时间忙，没有加入，抱歉．

2. 
   
3.   [FONT=courier new]
   
4. Sub Example_GetBoundingBox()
   
5.   
   
6.    
   
7.     Dim minExt As Variant
   
8.     Dim maxExt As Variant
   
9.    
   
10.     Dim SPLineObj As AcadSpline
    
11.    
    
12.     ThisDrawing.Utility.GetEntity SPLineObj, AA, "please select spline"
    
13.    
    
14.     SPLineObj.GetBoundingBox minExt, maxExt
    
15.    
    
16.     minExt(0) = maxExt(0)
    
17.     ThisDrawing.ModelSpace.AddLine maxExt, minExt
    
18.    
    
19.    
    
20. End Sub
    
21. 
    
22. 
    
23. 
    
24. 
    
25.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Example_GetBoundingBox()<br />   <br />     <br />     Dim minExt As Variant<br />     Dim maxExt As Variant<br />     <br />     Dim SPLineObj As AcadSpline<br />     <br />     ThisDrawing.Utility.GetEntity SPLineObj, AA, "please select spline"<br />     <br />     SPLineObj.GetBoundingBox minExt, maxExt<br />     <br />     minExt(0) = maxExt(0)<br />     ThisDrawing.ModelSpace.AddLine maxExt, minExt<br />     <br />     <br /> End Sub<br /> <br /> <br /> <br /> <br />   [/FONT]<br />

！！！！！！！！！！！！！！！！！

发现不对
对于圆弧可以正确求出切线，
可是ＳＰＬＩＮＥ却不正确．
[/COLOR]

XDSoft

最初由 Laoyao 发布
[B]多谢AHLZL的指点，写了一段ＶＢＡ代码，我的要求基本满足了．
以下代码还应该加入
１）通过旋转坐标，求不同角度的切线，
２）判断所求点是否是曲线的端点．
因时间忙，没有加入，抱歉．

[CODE]
  [FONT=cou... [/B]

因为圆和圆弧曲率在任何点处是相同的.

而根据SPLINE的数学模型, 过SPLINE一点的切线肯定存在,但是附加上要和另外一个直线垂直, 有解也可能没有解.不是确定的.

00001

最初由 Laoyao 发布
[B]多谢AHLZL的指点，写了一段ＶＢＡ代码，我的要求基本满足了．
以下代码还应该加入
１）通过旋转坐标，求不同角度的切线，
２）判断所求点是否是曲线的端点．
因时间忙，没有加入，抱歉．

[CODE]
  [FONT=cou... [/B]

如果是圆弧还用写程序吗

萧山

呵呵，这个是不是应该还有别的方法呢》斑竹？大家也想

27182818284

利用AutoCAD基本功能也是可以实现的，例如用Xline在spline的切点递延捕捉功能，见下图：
如果递延切点显示不出来的话，可以在图中spline的右侧，有可能和图中spline作出切线的地方随便画一下。

斜向也是一样的，只不过斜向复制一条spline就行了。

00001

27182818284 好样的！你怎么知道XLINE与样条曲线有递延切点啊，还有吗，好象RAY也没有的

看了27182818284的演示，我想楼主的问题这样解决

27182818284

最初由 00001 发布
[B]27182818284 好样的！你怎么知道XLINE与样条曲线有递延切点啊................................... [/B]

不好意思，以前胡乱琢磨的，我还真没有丛书上看到过呢。

lsjjm

贴一个简单的:
(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 "")
)

xieqingx

我太浅薄了，这段代加在哪里，有什么作用呢

reley

第二个切我找不到,你那命令那里来的啊
我的是2004
]试了好多次都没试出来

HYYY

请问大家.
用SPL画的线偏移后为什么那么多编辑点呢.
并不能画切圆.

广州地下铁

我觉得用XL命令已经很好用了。