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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 )C%S`d<%,  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 J9XV:)Yv#  
<M M(Z  
宏贴出来如下： 1L<X+,]@  
W>m#Mz  
a'B 5m]%  
Sub main() s-),Pv|  
Dim swApp                       As SldWorks.SldWorks +3o 4KB}  
Set swApp = Application.SldWorks Tizjh&*^  
Set Part = swApp.ActiveDoc <k7q9"\4  
Dim myModelView As Object c$~J7e6$  
If Part Is Nothing Then Qd"u$~ qC  
MsgBox "请先打开或者新建SolidWorks Part" -ZBSkyMGy  
Exit Sub K]yUPx  
End If TPWqiA?3Cp  
Set myModelView = Part.ActiveView "Sd2VSLg  
myModelView.FrameState = swWindowState_e.swWindowMaximized BnIZ+fg=  
`&>CK`%Xu  
Dim sFileName As String UjH+BC+9`b  
Dim fileConfig                  As String J3AS"+]  
Dim fileDispName                As String tk'3Q1L  
Dim fileOptions                 As Long  7K &j  
Dim swSketchMgr                 As SldWorks.SketchManager W0KSLxM  
Dim swModel                     As SldWorks.ModelDoc2 lZ5TDS  
Dim swSketchPt()                As SldWorks.SketchPoint ,[)f-FmcU  
CB>O%m[1  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) k"J=CDP\  
19;F+%no#  
If sFileName = "" Then +y|H#(wBP  
    MsgBox "没有选择txt数据文件", , "运行宏" ?8R  
    Exit Sub LKI2R_|n  
End If #GA6vJ4^s  
>y^zagC*  
Dim x, y, z As Double L_ 2R3w  
Dim s @BS7Gyw  
Dim n As Integer BZ>,Qh!J  
Open sFileName For Input As #1 N1jJ(}{3  
n = 0 7g
&<ZZo  
Do While Not EOF(1) j!hdi-aTU  
         Line Input #1, s 6;hZHe'W  
         n = n + 1 a$h zG-  
Loop R9O[`~BA2  
Close #1 s+E-M=d0e  
If n > 1024 Then *OMW" NZ;  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" 7s.vJdA]6  
    Exit Sub ?)'+l   
End If <[<]+r&*  
ReDim swSketchPt(n) h6C:`0o  
Open sFileName For Input As #1 -MT.qhx  
Set swSketchMgr = Part.SketchManager yZ57uz  
    swSketchMgr.Insert3DSketch True p/.[cH  
    swSketchMgr.AddToDB = True g'{hp:  
    n = 0 D}7G|gX1  
    Do While Not EOF(1) Hp?uYih0  
         Input #1, x L'$;;eM4  
         If EOF(1) Then !:w&eFC6  
         Exit Sub ;+iw?"  
         End If Y)OTvKrOA  
         Input #1, y |4A938'4j  
         If EOF(1) Then T1c.ER}17  
         Exit Sub zoI0oA  
         End If x\2N @*I:  
         Input #1, z aO>Nev  
         n = n + 1 30nR2mB Kt  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) vqnFyd  
    Loop o? {rPFR  
Close #1 3QO*1P@q  
End Sub

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

你好，解决了吗 f))'8