[求助]样条曲线控制点数据的提取
<p>Sub main()<br/>Dim selectObj As AcadSelectionSet<br/>Set selectObj = ThisDrawing.ActiveSelectionSet<br/>Save_Spline selectObj.Item(i)<br/>End Sub<br/></p><hr/>Private Sub Save_Spline(SplineObj As AcadSpline)<br/>Dim fitPoints As Variant<br/>Dim iCount As Long<br/>fitPoints = SplineObj.fitPoints<br/>Open "D:\10.txt" For Append As #1 'Open后面为数据的保存路径，每读取一条线要改一次名<br/>For iCount = 0 To UBound(fitPoints) Step 3<br/>X_scale = fitPoints(iCount)<br/>Y_scale = fitPoints(iCount + 1)<br/>X_scale = Format(X_scale, "##0.0000") '格式化数据，确定保留几位小数<br/>Y_scale = Format(Y_scale, "##0.0000") '同上<br/>Print #1, X_scale & " " & Y_scale '数据的输出格式<br/>Next iCount<br/>Close #1<br/>End Sub <p></p><p> </p><p>上面的代码就是提取控制点的小程序，可是每提取一条线的值我都得改一下名，效率太低！</p><p>哪位大侠能给我把这代码优化一下，我想每一次运行时能出现一个窗体来提示我改文件名。</p><p>谢谢了！</p> <p>你提取的是样条曲线的拟合点而不是控制点。</p><p>需要使用VB的公用对话框控件来更改文件名。</p>
页:
[1]