用VB读取txt中的数据并用SW处理

显示全部楼层 · 2008-5-30 19:14:15

用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中绘制此点
最后将各点依次连接起来，形成一空间三维曲线。
高手指导，给个思路

千问 · 2008-5-30 19:14:15

Dim swApp As ObjectDim Part As ObjectDim SelMgr As ObjectSub main()Set swApp = Application.SldWorksSet Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerPart.InsertCurveFileBeginPart.InsertCurveFilePoint 0.001, 0.002, 0.003Part.InsertCurveFilePoint 0.001, 0.002, 0.004Part.InsertCurveFilePoint 0.00