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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 oL!EYbFD'Z  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 Cl5uS%g  
?~l6K(*2  
宏贴出来如下： cm&nd'A't  
'<jyw   
<Q3oT  
Sub main() :yL] ;J  
Dim swApp                       As SldWorks.SldWorks }K7#Q  
Set swApp = Application.SldWorks +Jlay1U&  
Set Part = swApp.ActiveDoc yg`j-9[8  
Dim myModelView As Object /@wg>&L]  
If Part Is Nothing Then X@'uy<tI-  
MsgBox "请先打开或者新建SolidWorks Part" Qk0R a_  
Exit Sub rxVanDb=W  
End If cpe+XvBuK  
Set myModelView = Part.ActiveView 4~ q5,^kgB  
myModelView.FrameState = swWindowState_e.swWindowMaximized 3]OE}[R  
J; 3{3  
Dim sFileName As String z#8~iF1  
Dim fileConfig                  As String HeK/7IAqp  
Dim fileDispName                As String &D>G8  
Dim fileOptions                 As Long cW~}:;D4  
Dim swSketchMgr                 As SldWorks.SketchManager 0QBiC]9  
Dim swModel                     As SldWorks.ModelDoc2 niiA7Ux  
Dim swSketchPt()                As SldWorks.SketchPoint szb_*)k  
S(o#K
|)>  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) %"kPvI3Y  
O#n8=B4  
If sFileName = "" Then m-%E-nr  
    MsgBox "没有选择txt数据文件", , "运行宏" >Y&N8PHD  
    Exit Sub A|CmlAW~^  
End If $Ad{Z  
H ;7(}:.  
Dim x, y, z As Double 4qN{n#{+]  
Dim s [=x[ w70  
Dim n As Integer _U$<xVnP  
Open sFileName For Input As #1 5uGqX"  
n = 0 kJWn<5%ayg  
Do While Not EOF(1) [NQOrcAQ  
         Line Input #1, s ~Xw"}S5  
         n = n + 1
hMzs*gK  
Loop OGBHos  
Close #1 D_?K"E=fw  
If n > 1024 Then pny11C  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" Q;MT"=RW  
    Exit Sub `0rd26Qro  
End If Jx_cf9{  
ReDim swSketchPt(n) c4!^nk]  
Open sFileName For Input As #1 g(nPQOs$u  
Set swSketchMgr = Part.SketchManager TSA,WP\  
    swSketchMgr.Insert3DSketch True LO'**}vm  
    swSketchMgr.AddToDB = True IWBX'|}K  
    n = 0 rjl`&POqc  
    Do While Not EOF(1) 5VRYO"D:  
         Input #1, x pEw"8U  
         If EOF(1) Then f'8kish  
         Exit Sub SEORSS  
         End If h}-3\8 >  
         Input #1, y tWo{7)Eb  
         If EOF(1) Then w;D+y*2  
         Exit Sub (w&F/ynO:  
         End If 4pe'06:  
         Input #1, z E"\/M  
         n = n + 1 M\C"5%2Mu  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) \:R%4w#Jv  
    Loop t4{rb, }W  
Close #1 2`.cK 3  
End Sub

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