dreamer304 发表于 2009-3-29 08:55:00

读取样条曲线的坐标

<p>我想把样条曲线的坐标输出到一个文件，然后利用这写坐标值，哪位高人有这样的程序啊？有的话发给我：<a href="mailto:dreamer304@163.com">dreamer304@163.com</a>，谢谢！最好是用vba写的，lisp也行</p>

azjmjsj 发表于 2009-3-29 12:21:00

参考以下代码：<br/><br/>把样条线转化为多段线。<br/>Sub sp2pl()<br/>Dim getsp As Object ‘获取样条线的变量<br/>Dim newl() As Double ‘多段线数组<br/>Dim p1 As Variant ‘获得拟合点点坐标<br/>ThisDrawing.Utility.GetEntity getsp, po, "本程序将样条曲线转为多段线。请选择样条曲线"<br/>sumctrl = getsp.NumberOfControlPoints ‘计算样条线中一共有多少拟合点<br/>ReDim newl(0 To sumctrl * 3 - 1) ‘重定义数组 <br/>For i = 0 To sumctrl - 1 ‘开始循环，<br/>p1 = getsp.GetControlPoint(i) ‘把拟合点坐标存到p1变量中<br/>For j = 0 To 2<br/>newl(i * 3 + j) = p1(j)<br/>Next j<br/>Next i<br/>Set templ = ThisDrawing.ModelSpace.Add3DPoly(newl) ‘画样条线<br/>End Sub

gyl 发表于 2009-3-29 23:24:00

有些样条曲线根本没有拟合点，不知怎么转换；即使有，转换之后的形状也不能保证完全一致。再说，仅仅取拟合点是不够的，最好再按距离加密一些，怎么办？理想的办法是直接从样条曲线取点。

suncb09y 发表于 2011-3-7 22:14:32

回复 azjmjsj 的帖子

请问上面的代码是用什么语言写的？我是新手！谢谢了！

lishucheng96 发表于 2011-4-22 15:12:20

Auto CAD VBA写的
页: [1]
查看完整版本: 读取样条曲线的坐标