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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 <-"[9 w  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 l7#2 e ORm  
+}iuTqu5  
宏贴出来如下： i2E@5 v=|Y  
Yc^,Cj{OM  
y wmC>`0p  
Sub main() /YHnt-}v,  
Dim swApp                       As SldWorks.SldWorks )yUSuK(Vu  
Set swApp = Application.SldWorks ht2J, 1t  
Set Part = swApp.ActiveDoc BMb0Pu
8  
Dim myModelView As Object 6 -BC/  
If Part Is Nothing Then 3;F up4!4}  
MsgBox "请先打开或者新建SolidWorks Part" x:+]^?}r  
Exit Sub cnB:bQQK8  
End If 7{p6&xXx  
Set myModelView = Part.ActiveView HL%|DCo  
myModelView.FrameState = swWindowState_e.swWindowMaximized ^00C"58A  

`#?]g!  
Dim sFileName As String O?0`QMY  
Dim fileConfig                  As String H` h]y  
Dim fileDispName                As String R%6KxN)+@  
Dim fileOptions                 As Long dH)\zCt  
Dim swSketchMgr                 As SldWorks.SketchManager |LirjC4  
Dim swModel                     As SldWorks.ModelDoc2 Cy6%f?j  
Dim swSketchPt()                As SldWorks.SketchPoint Pr3>}4M  
V^< Zs//7  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) ?hKpJA'%  
4VhKV JX  
If sFileName = "" Then H@'u$qr$:  
    MsgBox "没有选择txt数据文件", , "运行宏" B
K1I_/_!  
    Exit Sub 7 lu_E
.Bv  
End If lsU`~3nr  
cToT_Mk  
Dim x, y, z As Double ~^l;~&

  
Dim s hVh,\d&2t  
Dim n As Integer \f'=  
Open sFileName For Input As #1 7MIrrhk  
n = 0 [y"Yi PK  
Do While Not EOF(1) 6L3i   
         Line Input #1, s ,zh_-2^X  
         n = n + 1 B#4'3Y-3  
Loop *fI\|%K  
Close #1 e6Kyu*  
If n > 1024 Then D{6<,#P{w  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" x!fgZr{  
    Exit Sub ))I[@D1b  
End If 3
x>Y  
ReDim swSketchPt(n) `!<#'PR  
Open sFileName For Input As #1 JvYs6u  
Set swSketchMgr = Part.SketchManager ;Q
idf}:  
    swSketchMgr.Insert3DSketch True =l>=]O~h  
    swSketchMgr.AddToDB = True e?:1wU  
    n = 0 pzb`M'Z?C  
    Do While Not EOF(1) *RFBLCt  
         Input #1, x =nv/ r  
         If EOF(1) Then rW+}3] !D/  
         Exit Sub Li9>RY+3  
         End If T}Wse{  
         Input #1, y (?ZS9&y}  
         If EOF(1) Then j+Q+.39s-~  
         Exit Sub A}i>ys  
         End If V^_U=Ed@M  
         Input #1, z 6ipQx/IQ  
         n = n + 1 . dJBv  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) Jt3*(+J>/  
    Loop :VE0eJ]J6  
Close #1 mt4X  
End Sub

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

你好，解决了吗 YMj iJTl