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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 wNvq['P  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 _D"V^4^yqu  
sU7fVke1   
宏贴出来如下： B}fd#dr  
:6TLT-B  
!:2_y'hA  
Sub main() `}.jH1Fx/m  
Dim swApp                       As SldWorks.SldWorks bt'lT  
Set swApp = Application.SldWorks #u"$\[G  
Set Part = swApp.ActiveDoc &[b(Lx|i  
Dim myModelView As Object 1$_|h@  
If Part Is Nothing Then __%
){j6  
MsgBox "请先打开或者新建SolidWorks Part" XcFu:B  
Exit Sub =I8^E\O("  
End If bt=z6*C>A  
Set myModelView = Part.ActiveView Sc14F Fs  
myModelView.FrameState = swWindowState_e.swWindowMaximized Qa#Em1co  
^^
z_[Ih  
Dim sFileName As String g|Xjw Ti8$  
Dim fileConfig                  As String IE:;`e:\D  
Dim fileDispName                As String 0u}+n+\g  
Dim fileOptions                 As Long 1EMrXnv,  
Dim swSketchMgr                 As SldWorks.SketchManager EG!Nsb^,  
Dim swModel                     As SldWorks.ModelDoc2 [hJASX9  
Dim swSketchPt()                As SldWorks.SketchPoint @HQqHO&N  
,5& Rra/  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) s:xt4<  
Owz>g4l r  
If sFileName = "" Then "Wg5eML0  
    MsgBox "没有选择txt数据文件", , "运行宏" *RD<*l  
    Exit Sub '$h0l-mQ  
End If $Zn>W@\  
\2Yo*jE}  
Dim x, y, z As Double nmw#4yHYy:  
Dim s 7V%b!R}  
Dim n As Integer 0ZJrK\K;  
Open sFileName For Input As #1 09 vm5|  
n = 0 8vx#QU8E/  
Do While Not EOF(1) QfV:&b`  
         Line Input #1, s )uO 3v  
         n = n + 1 J9&#);(  
Loop 1`2lq~=GV  
Close #1 2m,t<Y;  
If n > 1024 Then ({<qs}H"  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" PTpGZ2FZ  
    Exit Sub H,(4a2zx  
End If ._p^0UxT  
ReDim swSketchPt(n) ua!RwSo  
Open sFileName For Input As #1 Va$JfWef  
Set swSketchMgr = Part.SketchManager f
BLR  
    swSketchMgr.Insert3DSketch True m!WDXt  
    swSketchMgr.AddToDB = True (m() r0:@  
    n = 0 eC='[W<a.  
    Do While Not EOF(1) V!f' O@p[  
         Input #1, x u>.>hQ  
         If EOF(1) Then JqK-vvI  
         Exit Sub @<$_X1)s  
         End If 6'|NALW  
         Input #1, y 7#sb},J{  
         If EOF(1) Then T#3`&[  
         Exit Sub YR.f`-<Z  
         End If V4. }wz_Y  
         Input #1, z "b0!h6$!H  
         n = n + 1 ui&^ m,  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) #{~3bgY  
    Loop oF.H?lG7`  
Close #1 jN%+)Kj0C)  
End Sub

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

你好，解决了吗 y0 qq7Dmu