如何将复杂链转换为B样条曲线呢。其实MS就提供了这样的工具。
放在Modify Curves工具栏里的Rebuild Curve工具就可以满足这样的需求。关于工具里具体的每个设置项,在帮助文档里都有说明。
如果想通过批处理的方式,下面是一个简单的例子。也许不是最简单的方式,仅做参考。
Sub main
Dim startPoint As MbePoint
Dim point As MbePoint, point2 As MbePoint
MbeSendCommand "DROP CURVE"
MbeSetAppVariable "3DTOOLS", "tcb->ms3DToolSettings.blendCurve.dropMakeCopy", 0&
MbeSetAppVariable "3DTOOLS", "tcb->ms3DToolSettings.blendCurve.dropType", 0&
MbeSetAppVariable "3DTOOLS", "tcb->ms3DToolSettings.blendCurve.dropMethod", 4&
MbeSetScaledAppVar "3DTOOLS", "tcb->ms3DToolSettings.obsoleteOffsetCurve.distance.value", 0.0001#
MbeSendCommand "MDL SILENTLOAD SELECTBY"
MbeSendCommand "SELECTYBY TYPE NONE"
MbeSendCommand "SELECTBY TYPE COMPLEXSTRING"
MbeSendCommand "SELECTBY EXECUTE"
MbeSendCommand "CONVERT BSPLINE"
MbeSendCommand "DROP CURVE"
MbeSendCommand "CHOOSE NONE"
MbeSendCommand "POINT AB"
End Sub