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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 %$67*pY'JH  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 5RyxVC0<  
|BXp`  
宏贴出来如下： jOm7:+H  
mQ2=t%  
ubMN  
Sub main() ?*'0;K13  
Dim swApp                       As SldWorks.SldWorks -#,4rN#  
Set swApp = Application.SldWorks v1=N?8Hz1  
Set Part = swApp.ActiveDoc sW
76RKX8  
Dim myModelView As Object oj@=Cq':-  
If Part Is Nothing Then ,JfP$HJ  
MsgBox "请先打开或者新建SolidWorks Part" yYdh+x  
Exit Sub +3Z+#nGtk  
End If 8\p"V.o>  
Set myModelView = Part.ActiveView v ,zD52  
myModelView.FrameState = swWindowState_e.swWindowMaximized mSGpxZ,IE  
8Z3:jSgk  
Dim sFileName As String M"6J"s
 
Dim fileConfig                  As String g!^mewtd  
Dim fileDispName                As String ~cV";cD5  
Dim fileOptions                 As Long *'@sm*  
Dim swSketchMgr                 As SldWorks.SketchManager ,s/laZ)V  
Dim swModel                     As SldWorks.ModelDoc2 gZ8JfA_\R(  
Dim swSketchPt()                As SldWorks.SketchPoint 1p=bpJC  
??lsv(v-  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) ,\N4tG1\  
eOx8D|^W  
If sFileName = "" Then V=8npz   
    MsgBox "没有选择txt数据文件", , "运行宏" k106fT]eX  
    Exit Sub m[Mw2F  
End If Vq'n$k}  
tToP7q^  
Dim x, y, z As Double ZO>)GR2S  
Dim s <r m)c.  
Dim n As Integer c/V0AKkS 8  
Open sFileName For Input As #1 u#NX`_  
n = 0 wj5,_d)  
Do While Not EOF(1) vOv"^X  
         Line Input #1, s wCu!dxT|,  
         n = n + 1 Dw$RHogb~y  
Loop NMUF)ksjN  
Close #1 Q{CRy-h
a  
If n > 1024 Then 15OzO.Ud  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" J"$U$.W=  
    Exit Sub _-2ntO<E  
End If 7spZe"  
ReDim swSketchPt(n) @!^Y_q  
Open sFileName For Input As #1 ~y"OyOi&  
Set swSketchMgr = Part.SketchManager u=Xpu,q  
    swSketchMgr.Insert3DSketch True `ZT/lB`  
    swSketchMgr.AddToDB = True A5Q4wy`  
    n = 0 u?F.%j-  
    Do While Not EOF(1) }<&?t;  
         Input #1, x oDayfyy4y)  
         If EOF(1) Then NE4]i  
         Exit Sub X*9-P9x(6  
         End If N1sdWXG  
         Input #1, y K(HrwH`a{  
         If EOF(1) Then ;#mm_*L%@  
         Exit Sub =woP~+  
         End If + R~!G  
         Input #1, z ;aD?BD__Z  
         n = n + 1 mF UsTb]f  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) RxNLn/?d@  
    Loop r$Ni>[as  
Close #1 F{rC{5@fj  
End Sub

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

你好，解决了吗 kD7'BP/#