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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 qhIO7h  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 76'vsg  
SniKCqmC]  
宏贴出来如下： >}?4;:.=  
+^@;J?O  
JiXkW%  
Sub main() zA<Hj;9SM  
Dim swApp                       As SldWorks.SldWorks @/DHfs4O  
Set swApp = Application.SldWorks `3QAXDWE  
Set Part = swApp.ActiveDoc >^U$2P  
Dim myModelView As Object S1`;2mAf*  
If Part Is Nothing Then A/xo'G  
MsgBox "请先打开或者新建SolidWorks Part" $@R[$/  
Exit Sub "c'K8,+?  
End If !(&N
{NH9  
Set myModelView = Part.ActiveView Q^Lk^PP7  
myModelView.FrameState = swWindowState_e.swWindowMaximized AVR=\ qR  
rNl`w.  
Dim sFileName As String 0</]Jo%  
Dim fileConfig                  As String CSBk  
Dim fileDispName                As String 4/Wqeq,E8  
Dim fileOptions                 As Long Qgel^"t]i  
Dim swSketchMgr                 As SldWorks.SketchManager [=otgVteN"  
Dim swModel                     As SldWorks.ModelDoc2 en1NFP  
Dim swSketchPt()                As SldWorks.SketchPoint HAHLF
+k  
<O]
TM-h  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) ~Wox"h}(  
hM/:zC:  
If sFileName = "" Then *It`<F|  
    MsgBox "没有选择txt数据文件", , "运行宏" |Qa[N(  
    Exit Sub 55<f  
End If FVw4BUOmi  
c-ud $0)c  
Dim x, y, z As Double zdh&,!] F6  
Dim s SZ*Nr=X  
Dim n As Integer `62iW3y  
Open sFileName For Input As #1 \A ?B{*  
n = 0 MD62ObK!  
Do While Not EOF(1) kM>Bk\  
         Line Input #1, s <)J83D0$E  
         n = n + 1 EU0b>2n4  
Loop 7E}.P1  
Close #1 i!U,qV1  
If n > 1024 Then C@$!'^ 61  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" }CoR$
K  
    Exit Sub L]_1z  
End If 10C,\  
ReDim swSketchPt(n) At?]FjL6S  
Open sFileName For Input As #1 x9NcIa9  
Set swSketchMgr = Part.SketchManager ZWVN(U  
    swSketchMgr.Insert3DSketch True OZ'=Xtbn  
    swSketchMgr.AddToDB = True /Mg$t6vM  
    n = 0 (/oHj^>3N`  
    Do While Not EOF(1) 2^*a$OJ  
         Input #1, x D^Cpgha  
         If EOF(1) Then 2L!wbeTb;  
         Exit Sub [ BpZ{Ql  
         End If p}r1@L s  
         Input #1, y MzWVsV  
         If EOF(1) Then <EHgPlQn  
         Exit Sub s_j ?L  
         End If eMDO;q  
         Input #1, z 63EwV p/|  
         n = n + 1 { !;I4W%!  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) 42{\u08Z  
    Loop Yr\pgK,  
Close #1 .*3.47O  
End Sub

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

你好，解决了吗 mHiV};$