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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 :7-2^7z)  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 Dw6mSsC/  
 N\9Wxz$  
宏贴出来如下： @XL5$k[Y  
nD51,1>  
=~f\m:Y  
Sub main() BQfq]ti  
Dim swApp                       As SldWorks.SldWorks P 4|p[V8  
Set swApp = Application.SldWorks x<es1A'u6  
Set Part = swApp.ActiveDoc 8A ;)5!  
Dim myModelView As Object p\ }Ep  
If Part Is Nothing Then 3/i_?G  
MsgBox "请先打开或者新建SolidWorks Part" *P.Dbb8vn  
Exit Sub b,Vg3BS  
End If q/lQEfR  
Set myModelView = Part.ActiveView qXw^y  
myModelView.FrameState = swWindowState_e.swWindowMaximized M)JKe!0ad1  
JgmX=6N  
Dim sFileName As String <_N<L\  
Dim fileConfig                  As String RU_wr<  
Dim fileDispName                As String RMvq\J}w!  
Dim fileOptions                 As Long
<X b B;  
Dim swSketchMgr                 As SldWorks.SketchManager 34gC[G=  
Dim swModel                     As SldWorks.ModelDoc2 V6IC
R{y<3  
Dim swSketchPt()                As SldWorks.SketchPoint ^I CSs]}1  
Glw_<ag[  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) ?~p]Ey}~9  
W:gpcR]>  
If sFileName = "" Then qLYz-P'ik  
    MsgBox "没有选择txt数据文件", , "运行宏" p-Jp/*R5  
    Exit Sub u9zEhfg8  
End If [Ep%9(SgA'  
H6t'V%Ys  
Dim x, y, z As Double
Qu;cl/&  
Dim s R0A|}Ee*  
Dim n As Integer 9k.5'#  
Open sFileName For Input As #1 :yi?<  
n = 0 +>}L
T_  
Do While Not EOF(1) E;tEmGf6F  
         Line Input #1, s g]Jt (aYK  
         n = n + 1
@?vC4+'  
Loop $~+(si2  
Close #1 )p^" J|  
If n > 1024 Then x=M%QFe  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" ?bH&F  
    Exit Sub !Soz??~o/  
End If M(/ATOJ(  
ReDim swSketchPt(n) iLC.?v2=  
Open sFileName For Input As #1 NxW Dw  
Set swSketchMgr = Part.SketchManager $Vp*,oRL  
    swSketchMgr.Insert3DSketch True ]T:a&DHC  
    swSketchMgr.AddToDB = True E#!tXO&,  
    n = 0 4'wbtE|  
    Do While Not EOF(1) [p+-]V  
         Input #1, x ?yc{@|  
         If EOF(1) Then 4^Y{ BS fF  
         Exit Sub /wI"oHZd  
         End If d@XXqCR<  
         Input #1, y TT@U_^o  
         If EOF(1) Then g2;lEW  
         Exit Sub #soV'SFG  
         End If ?Qxf~,F  
         Input #1, z W=:AOBK  
         n = n + 1 \47djm
G-  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) YO'a
X  
    Loop S"4eS,5L|  
Close #1 dfP4SJqq  
End Sub

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

你好，解决了吗 N;']&f