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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 ?j$*a7[w  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 S%7%@Qs"%  
g?9%_&/})A  
宏贴出来如下： 7VA
6J-T  
|dqv
v  
+zzS  
Sub main() eQsoZQA1  
Dim swApp                       As SldWorks.SldWorks ^ =RSoR  
Set swApp = Application.SldWorks nEh^{6  
Set Part = swApp.ActiveDoc :s
nn-e0l  
Dim myModelView As Object g&L $5  
If Part Is Nothing Then y0 qq7Dmu  
MsgBox "请先打开或者新建SolidWorks Part" lPn&,\9@~  
Exit Sub (=w ff5U  
End If M5l*D'GE]  
Set myModelView = Part.ActiveView *Bx'g| u  
myModelView.FrameState = swWindowState_e.swWindowMaximized &:Sb$+z  
jIL$hqo  
Dim sFileName As String ?]2OT5@&s  
Dim fileConfig                  As String EhHW`  
Dim fileDispName                As String J!*Pg<  
Dim fileOptions                 As Long 4W+%`x_U]  
Dim swSketchMgr                 As SldWorks.SketchManager mNApFwZ  
Dim swModel                     As SldWorks.ModelDoc2 o/p'eY:)  
Dim swSketchPt()                As SldWorks.SketchPoint (1}"I RX.  
c$]NXKcA  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) ot.R Gpg%  
b6gD*w<  
If sFileName = "" Then eE[/#5tK  
    MsgBox "没有选择txt数据文件", , "运行宏" !d=Q@oy5  
    Exit Sub K7$Vl"l  
End If Yq%D/dU8  
s`"ALn8m  
Dim x, y, z As Double e3{L%rQE  
Dim s von~-51;  
Dim n As Integer 4!tHJCq"  
Open sFileName For Input As #1 Ow7I`#P  
n = 0 rFR2c?j8  
Do While Not EOF(1) sTGe=}T8  
         Line Input #1, s *oz=k  
         n = n + 1 DwC8?s*2H  
Loop Zc57]~  
Close #1 "rIBy  
If n > 1024 Then ,JmA e6  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" 9 ulr6  
    Exit Sub A[m4do  
End If &tw   
ReDim swSketchPt(n) +qEvz<kch  
Open sFileName For Input As #1 G0eJ<*|_ 3  
Set swSketchMgr = Part.SketchManager ;j/-
ndd&&  
    swSketchMgr.Insert3DSketch True CmPix]YMQ  
    swSketchMgr.AddToDB = True P=9Zm  
    n = 0 /A) v$Bv=  
    Do While Not EOF(1) `?L-{VtM3*  
         Input #1, x {bvm83{T  
         If EOF(1) Then }qOC*k:  
         Exit Sub |_;Vb  
         End If y3!=0uPf  
         Input #1, y <U$A_]*w  
         If EOF(1) Then zorTZ #5  
         Exit Sub 'E,Bl]8C5  
         End If 
'3@WF2a  
         Input #1, z d/OIc){tD  
         n = n + 1 ;DKwv}  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) A fctycQ-  
    Loop gaJIc^O  
Close #1 cuP5cL/Y  
End Sub

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