UC知道用VB读取txt中的数据并用SW处理
来源：百度知道 编辑：UC知道 时间：2024/05/27 08:26:35
用VB读取txt中的坐标数据。如下
36.7701611935445 -2.04795706408731E-02 3.74195542120788E-02
56.6843297792161 -1.99805076571238E-02 3.69205723332016E-02
56.6843297792161 -1.99805076571238E-02 3.69205723332016E-02
56.6843297792161 -1.99805076571238E-02 3.69205723332016E-02
56.6843297792161 -1.99805076571238E-02 3.69205723332016E-02
56.6843297792161 -1.99805076571238E-02 3.69205723332016E-02
每行为一个点的xyz坐标。
现要求每次读取一行，调用API函数在solidworks中绘制此点
最后将各点依次连接起来，形成一空间三维曲线。
高手指导，给个思路
36.7701611935445 -2.04795706408731E-02 3.74195542120788E-02
56.6843297792161 -1.99805076571238E-02 3.69205723332016E-02
56.6843297792161 -1.99805076571238E-02 3.69205723332016E-02
56.6843297792161 -1.99805076571238E-02 3.69205723332016E-02
56.6843297792161 -1.99805076571238E-02 3.69205723332016E-02
56.6843297792161 -1.99805076571238E-02 3.69205723332016E-02
每行为一个点的xyz坐标。
现要求每次读取一行，调用API函数在solidworks中绘制此点
最后将各点依次连接起来，形成一空间三维曲线。
高手指导，给个思路
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.InsertCurveFileBegin
Part.InsertCurveFilePoint 0.001, 0.002, 0.003
Part.InsertCurveFilePoint 0.001, 0.002, 0.004
Part.InsertCurveFilePoint 0.002, 0.002, 0.004
Part.InsertCurveFilePoint 0.002, 0.003, 0.005
Part.InsertCurveFilePoint 0.003, 0.005, 0.007
Part.InsertCurveFileEnd
End Sub
看看这段程序能够帮助你解决吗？数字与你的不一样。你的点最后几个是一样的，就随便写了几个，数字与数字之间要逗号。
在记事本中最好不要出现科学记数法,在记事本中的1在程序中就是0.001了
solidworks里应该有按点数组生成曲线的函数吧，solidworks没玩过，一直搞的是AutoCad的VBA