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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 3#Bb4\_v  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 ZJ.a
n%4  
5DVYHN9c|  
宏贴出来如下： Hq!|r8@6  
]qxl^Himq  
"c|Rpzs[  
Sub main() ,Vw>3|C  
Dim swApp                       As SldWorks.SldWorks 52zE -SY  
Set swApp = Application.SldWorks 3&nN;4~Zx6  
Set Part = swApp.ActiveDoc _54gqD2C,  
Dim myModelView As Object Rc &m4|cw7  
If Part Is Nothing Then RB|i<`Z  
MsgBox "请先打开或者新建SolidWorks Part" 9\c]I0)3p  
Exit Sub 3bYjW=_hA  
End If xiDgQTDz  
Set myModelView = Part.ActiveView ex6R=97uA  
myModelView.FrameState = swWindowState_e.swWindowMaximized /KNDo^P  
v?Utz~lQ  
Dim sFileName As String K/K-u  
Dim fileConfig                  As String *} ?  
Dim fileDispName                As String 6uT*Fg-G  
Dim fileOptions                 As Long ^'a#FbMtt  
Dim swSketchMgr                 As SldWorks.SketchManager D:f=Z?L)>  
Dim swModel                     As SldWorks.ModelDoc2 %qiVbm0  
Dim swSketchPt()                As SldWorks.SketchPoint *tgu@9b  
oeB'{bG  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) S_/S2(V"  
WgqSw%:$H  
If sFileName = "" Then n\3#69VY  
    MsgBox "没有选择txt数据文件", , "运行宏" &T~X`{V]`  
    Exit Sub 8-Y*b89  
End If P_w4 DU  
bd~m'cob>  
Dim x, y, z As Double 8B:y46
  
Dim s Q
A*<$v  
Dim n As Integer 1P*hC<  
Open sFileName For Input As #1 hlB\Xt  
n = 0 /Pkz3(1  
Do While Not EOF(1) q\]X1N  
         Line Input #1, s W(R~K -  
         n = n + 1 ]B?M3`'>  
Loop V5z2.} 'o-  
Close #1 6Eu(C]nC(  
If n > 1024 Then 6]Is"3ca  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" RYjK4xT?Y/  
    Exit Sub UaF~[toX  
End If Z|%h-~  
ReDim swSketchPt(n) 75zU,0"j  
Open sFileName For Input As #1 t`+A;%=K]  
Set swSketchMgr = Part.SketchManager ?'z/S5&j  
    swSketchMgr.Insert3DSketch True J\Pb/9M/  
    swSketchMgr.AddToDB = True ws+'*7  
    n = 0 Q_|}~4_+  
    Do While Not EOF(1) R`Z"ey@C  
         Input #1, x +tT"  
         If EOF(1) Then gTXpaB<  
         Exit Sub $3G^}A"  
         End If _huJ*W7lR  
         Input #1, y TZ5TkE;1  
         If EOF(1) Then e
IY`RMo (  
         Exit Sub Cl<!S`  
         End If WSu6chz)  
         Input #1, z l
AP k/G  
         n = n + 1 Lo{wTYt:J  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) r|u[36NmA  
    Loop EXCE^Vw  
Close #1 A-T-4I  
End Sub

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

你好，解决了吗 [g/D<g5O