[求助]求大大修改一个sw在一个文件夹中批量导入txt并生成xyz曲线的宏 [复制链接]

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 q,DX{:  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 u B\& Q;  
@:&+wq_>A^  
宏贴出来如下： fhmr*E'J  
}dUC^04  
Z?.*.<"Sj  
Sub main() =T)2wcXBB  
Dim swApp                       As SldWorks.SldWorks M9#QS`G  
Set swApp = Application.SldWorks |S{P`)z%f  
Set Part = swApp.ActiveDoc bJm0  
Dim myModelView As Object L{f>;[FR  
If Part Is Nothing Then Wts{tb  
MsgBox "请先打开或者新建SolidWorks Part" Wu( 8G  
Exit Sub $O'2oeM  
End If lrhAO"/1  
Set myModelView = Part.ActiveView j>xVy]v=|  
myModelView.FrameState = swWindowState_e.swWindowMaximized )6&\WNL-x  
j9}0jC2Tb  
Dim sFileName As String _oTT3[7P  
Dim fileConfig                  As String nZCpT |M5  
Dim fileDispName                As String 0 '7s  
Dim fileOptions                 As Long ^P/D8cXa4  
Dim swSketchMgr                 As SldWorks.SketchManager hPz df*(8  
Dim swModel                     As SldWorks.ModelDoc2 i4n b#  
Dim swSketchPt()                As SldWorks.SketchPoint 
0>=)  
O&w3@9KJ?  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) @/~k8M/  
]B3FTqR{i  
If sFileName = "" Then AvE^ F1  
    MsgBox "没有选择txt数据文件", , "运行宏" i*R:WTw#  
    Exit Sub &&1Y"dFs  
End If 93IOG{OAY  
lE)rRG+JLW  
Dim x, y, z As Double I~LQ1_  
Dim s _(`X .D  
Dim n As Integer `u~  
Open sFileName For Input As #1 z<6P3x|  
n = 0 2ZbY|8X$r  
Do While Not EOF(1) f WjS)  
         Line Input #1, s #)A?PO2  
         n = n + 1 #A/J^Ko  
Loop 8[1DO1*P  
Close #1 rtL
9cw5  
If n > 1024 Then 5**5b9bj-9  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" 90iW-"l+[  
    Exit Sub 1LE^dS^V  
End If b?] S&)"9  
ReDim swSketchPt(n) xrVZxK:!  
Open sFileName For Input As #1 (U'7Fc  
Set swSketchMgr = Part.SketchManager Da8$Is;n  
    swSketchMgr.Insert3DSketch True Z#Zzi5<  
    swSketchMgr.AddToDB = True y'!p>/%v  
    n = 0 /-{O\7-D  
    Do While Not EOF(1) tw4am.o1]  
         Input #1, x CES
e}^)n  
         If EOF(1) Then +z(,A  
         Exit Sub ro&Y7m  
         End If "UoCT7X  
         Input #1, y wAYzR$i  
         If EOF(1) Then J;=aIiN]R  
         Exit Sub ! jX+ox  
         End If ( X 'FQ  
         Input #1, z _UBJPb@=U  
         n = n + 1 /cL9?k;o  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) fteyG$-s  
    Loop F
0BOhlK  
Close #1 0^!,[oh6*  
End Sub

有木有大神出来冒个泡~~