读取样条曲线的坐标

dreamer304

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

azjmjsj

参考以下代码：

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

gyl

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

suncb09y

回复 azjmjsj 的帖子

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

lishucheng96

Auto CAD VBA写的