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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 ?* +>T@MH  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 wKJ|;o4;L  
[VX5r1-F  
宏贴出来如下： otaRA  
+6:
  
e6*,MnqBh  
Sub main() J<0sT=/2$  
Dim swApp                       As SldWorks.SldWorks 8i^ ./P  
Set swApp = Application.SldWorks n"?*"Ya  
Set Part = swApp.ActiveDoc |A68+(3u  
Dim myModelView As Object SDbkPx  
If Part Is Nothing Then C6gp}%  
MsgBox "请先打开或者新建SolidWorks Part" ;P'5RCqj  
Exit Sub ;P<h9(  
End If mCn:{G8+  
Set myModelView = Part.ActiveView ,5U[#6^  
myModelView.FrameState = swWindowState_e.swWindowMaximized k"=*'  

I\Y N!  
Dim sFileName As String ]*MVC
/R,  
Dim fileConfig                  As String p/eaO{6 6  
Dim fileDispName                As String t!xdKX& }  
Dim fileOptions                 As Long 4YY!oDN:  
Dim swSketchMgr                 As SldWorks.SketchManager K20Hh7cVJ  
Dim swModel                     As SldWorks.ModelDoc2 o;DK]o>kH  
Dim swSketchPt()                As SldWorks.SketchPoint Js:U1q  
\(`2@  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) HP7~Zn)c  
$[Ut])4 ~  
If sFileName = "" Then EhKG"Lb+  
    MsgBox "没有选择txt数据文件", , "运行宏" DBGU:V,85  
    Exit Sub 8,F|*YA  
End If iW2\;}y  
oP T)vN?  
Dim x, y, z As Double cBbumf9C  
Dim s [CI0N I6F  
Dim n As Integer +2tFX  
Open sFileName For Input As #1 |bQF.n_  
n = 0 p7{H "AC  
Do While Not EOF(1) PZ#up{[o  
         Line Input #1, s y5KeUMcu  
         n = n + 1 RnC+]J+?4  
Loop V$FZVG/@#  
Close #1 g9;s3qXiG  
If n > 1024 Then "*`!.9pt  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" '.N}oL<gP  
    Exit Sub O> _ F   
End If >S0kiGDV{
 
ReDim swSketchPt(n) 30SQ&j[N]  
Open sFileName For Input As #1 U8gj\G\`  
Set swSketchMgr = Part.SketchManager K} T=j+  
    swSketchMgr.Insert3DSketch True db_}][;.c  
    swSketchMgr.AddToDB = True pUqNB_  
    n = 0 >hSu1s:  
    Do While Not EOF(1) K;Hgq
4  
         Input #1, x p(="73  
         If EOF(1) Then Yv)c\hm(7j  
         Exit Sub uzmYkBv  
         End If f.%3G+  
         Input #1, y Zl'/Mxg  
         If EOF(1) Then T.')XKP)1N  
         Exit Sub ai?N!RX%H  
         End If SHB'g){P  
         Input #1, z  (~bx%  
         n = n + 1 FG!hb?_1  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) Zv@ Fr9m  
    Loop
j+dQI_']x  
Close #1 2"shB(:z>  
End Sub

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