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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 MX?}?"y  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 Pt(tRHB  
Z'e\_C  
宏贴出来如下： @Kp1k> ov  
VfRs[3
Q  
4]EvT=Ro  
Sub main() 71*>L}H  
Dim swApp                       As SldWorks.SldWorks .aJ%am/:%  
Set swApp = Application.SldWorks o
6|"J%9GX  
Set Part = swApp.ActiveDoc m#;.yR  
Dim myModelView As Object oSmjs  
If Part Is Nothing Then :l;,m}#@  
MsgBox "请先打开或者新建SolidWorks Part" K.%z;(U  
Exit Sub ?Nu#]u-  
End If &1~Re.*B  
Set myModelView = Part.ActiveView v4D!7t&v"  
myModelView.FrameState = swWindowState_e.swWindowMaximized AoIc9ElEX  
0JyqCbl  
Dim sFileName As String p
agC(F  
Dim fileConfig                  As String @ct#s:t  
Dim fileDispName                As String J+iX,X  
Dim fileOptions                 As Long [NjajA~z>F  
Dim swSketchMgr                 As SldWorks.SketchManager  tI'e ctn  
Dim swModel                     As SldWorks.ModelDoc2 y}Cj#I+a  
Dim swSketchPt()                As SldWorks.SketchPoint <\p&jk?  
5c)wZ  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) w0aHEvH/  
.01TTK*  
If sFileName = "" Then t"tNtLI  
    MsgBox "没有选择txt数据文件", , "运行宏"
0S_Ra+e  
    Exit Sub )Yrr%f`\  
End If E}t-N  
ah>Dqb*  
Dim x, y, z As Double D"'#one  
Dim s C
M"s9E8y  
Dim n As Integer %![4d;Z%x  
Open sFileName For Input As #1 jWh
D5k@v  
n = 0 r&=r/k2  
Do While Not EOF(1) 9 #:ue@)  
         Line Input #1, s h;jsH!  
         n = n + 1 /%;/pi  
Loop h%u?lW  
Close #1 4@gl4&<h  
If n > 1024 Then iKY-;YK  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" uQ-WTz|*  
    Exit Sub uz8nRS s  
End If =g1D;  
ReDim swSketchPt(n) ?fm2qrV@fp  
Open sFileName For Input As #1 .ZM]%[4  
Set swSketchMgr = Part.SketchManager V.+DP  
    swSketchMgr.Insert3DSketch True WtMcI>4w  
    swSketchMgr.AddToDB = True VB}PNg  
    n = 0 Gl=@>Dc%  
    Do While Not EOF(1) m79m{!q$-  
         Input #1, x =xl7vHn7  
         If EOF(1) Then A-}PpH~.Z  
         Exit Sub sY&rbJ(P  
         End If 4D0(Fl  
         Input #1, y @b4b{d5[  
         If EOF(1) Then MI?]8+l  
         Exit Sub 9[B<rz  
         End If <ihhV e  
         Input #1, z I):m6y@  
         n = n + 1 l^)o'YS y  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) }6F_2S3c  
    Loop s#M? tyhj  
Close #1 5B_-nYJDt  
End Sub

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