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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 $7\!  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 BH@b]bEJ  
Aw7oyC!  
宏贴出来如下： ;|a,1#x  
"$@Wy,yp  
}VetaO2*  
Sub main() %d%$jF`  
Dim swApp                       As SldWorks.SldWorks R:[IH2F s  
Set swApp = Application.SldWorks .|Ee,Un  
Set Part = swApp.ActiveDoc `XmT)C  
Dim myModelView As Object \DDRl{  
If Part Is Nothing Then ZKk*2EK]2z  
MsgBox "请先打开或者新建SolidWorks Part" :h(r2?=7  
Exit Sub U/p|X)  
End If E:!qncL:  
Set myModelView = Part.ActiveView n#
\ t_/\  
myModelView.FrameState = swWindowState_e.swWindowMaximized 7ThGF  
cz{5-;$9Z  
Dim sFileName As String .UdoB`@!v=  
Dim fileConfig                  As String 7BNu.5*y  
Dim fileDispName                As String ` D9sEt_/  
Dim fileOptions                 As Long \R}`S`fIw`  
Dim swSketchMgr                 As SldWorks.SketchManager q-k~L\Ys  
Dim swModel                     As SldWorks.ModelDoc2 f\/'Fy0  
Dim swSketchPt()                As SldWorks.SketchPoint I7[F,xci  
$>Mqo  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) .#BWu(EYV  
Pl9Ky(Q`V  
If sFileName = "" Then FxK2 1  
    MsgBox "没有选择txt数据文件", , "运行宏" ]
C
L9N  
    Exit Sub +6i~Rx>  
End If AhNy+p{  
2{`[<w  
Dim x, y, z As Double ea\b7a*  
Dim s OS.oknzZZ  
Dim n As Integer ]TTQ;F  
Open sFileName For Input As #1 P.j0Xlof  
n = 0 Q*GJREC  
Do While Not EOF(1) s{30#^1R  
         Line Input #1, s r6u) 6J=  
         n = n + 1 4ne95_i  
Loop Gs0x;91  
Close #1 E\GD hfTQ  
If n > 1024 Then qad`muAd  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" vz^w%67&  
    Exit Sub H
HZGu8tzt  
End If aYC[15?'  
ReDim swSketchPt(n) /4Q^L>a  
Open sFileName For Input As #1 c}l?x \/  
Set swSketchMgr = Part.SketchManager G\I DgPj`  
    swSketchMgr.Insert3DSketch True 5Vj t!%?r  
    swSketchMgr.AddToDB = True X-mhz3Q&a  
    n = 0 Wu\szI"  
    Do While Not EOF(1) d9E'4Zm  
         Input #1, x #$dk  
         If EOF(1) Then ar
!`8"  
         Exit Sub =Eimbk  
         End If 6Z,j^: B  
         Input #1, y i_KAD U&mP  
         If EOF(1) Then EAE\'9T&g  
         Exit Sub HK/T`p#  
         End If AlH\IP  
         Input #1, z
XoO#{7a  
         n = n + 1 Hyj<Fqr!.  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) =Ll:Ba Q  
    Loop /^XGIQ/W  
Close #1 YR\pt8(z?  
End Sub

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

你好，解决了吗 )T_o!/\*|*