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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 *v3]}g[<  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 wg]j+r@  
\R;`zuv  
宏贴出来如下： = MOj|NR [  
,9o"43D:a|  
smDw<slC  
Sub main() >lIk9|  
Dim swApp                       As SldWorks.SldWorks EB8\_]6XJ  
Set swApp = Application.SldWorks |a!fhl+  
Set Part = swApp.ActiveDoc }x wu*Zx  
Dim myModelView As Object #gcF"L||  
If Part Is Nothing Then x HhN  
MsgBox "请先打开或者新建SolidWorks Part" E3iW-B8u8  
Exit Sub %$Aqle[  
End If =Fr(9(  
Set myModelView = Part.ActiveView &sL&\+=<(  
myModelView.FrameState = swWindowState_e.swWindowMaximized ZKckAz\#  
Aj4T"^fv  
Dim sFileName As String K]9"_UnN  
Dim fileConfig                  As String n0e1k.A  
Dim fileDispName                As String jE/AA!DC#  
Dim fileOptions                 As Long 9amaL~m  
Dim swSketchMgr                 As SldWorks.SketchManager lh;:M-b9  
Dim swModel                     As SldWorks.ModelDoc2 & J2M1z%  
Dim swSketchPt()                As SldWorks.SketchPoint N D2L_!g:(  
A?pbWt~
}  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) 8!Ww J Oe  
OUNd@o  
If sFileName = "" Then =^5Alba/  
    MsgBox "没有选择txt数据文件", , "运行宏" k<\$Oo
OZ  
    Exit Sub %eO0wa$a  
End If .ODR]7{  
N/K.%<h  
Dim x, y, z As Double -#HA"7XOE  
Dim s :FTMmW,>'  
Dim n As Integer <U\B!fO'  
Open sFileName For Input As #1 Y1J=3Y  
n = 0 vG"=h%  
Do While Not EOF(1) E`uY1B[c  
         Line Input #1, s hK,Sf ;5V  
         n = n + 1 e8#h3lxJ`  
Loop pxh"B\"4*  
Close #1 ]h %Wiw  
If n > 1024 Then PIwFF}<(  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" f__cn^1  
    Exit Sub
57&b:0`p  
End If LBa[:j2  
ReDim swSketchPt(n) ?qWfup\S  
Open sFileName For Input As #1 Y/ .Z.FD`  
Set swSketchMgr = Part.SketchManager ZP\-T*)l$  
    swSketchMgr.Insert3DSketch True /Id%_,}Kb  
    swSketchMgr.AddToDB = True OD6\Mr2=  
    n = 0 lUvpszH=  
    Do While Not EOF(1) U5.LDv;  
         Input #1, x 7OJ'){R$  
         If EOF(1) Then 2 Cv4=S  
         Exit Sub \S!e![L/  
         End If ]X ?7ZI^  
         Input #1, y zIu E9l  
         If EOF(1) Then 2vWx)Drb6  
         Exit Sub zM(vr"U
 
         End If !~rY1T~  
         Input #1, z ~U@;gLoD  
         n = n + 1 %~E ?Z!_W  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) O%5 r[  
    Loop J2xw) +  
Close #1 vRHd&0  
End Sub

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