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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 NvlG@^&S  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 !ly]{DTmm  
r`/tb
^  
宏贴出来如下： G;pxB,4s5  
K29KS)~;W  
!~k-Sexh  
Sub main() t%<d}QuHW  
Dim swApp                       As SldWorks.SldWorks u7<s_M3%N  
Set swApp = Application.SldWorks [&FWR  
Set Part = swApp.ActiveDoc Kth^WHL  
Dim myModelView As Object eJ!a8
 
If Part Is Nothing Then ~A=Z/46*Z  
MsgBox "请先打开或者新建SolidWorks Part" #S4{,  
Exit Sub w_i$/`i+  
End If %.D@{O  
Set myModelView = Part.ActiveView .Su9fjy%  
myModelView.FrameState = swWindowState_e.swWindowMaximized 8aD4wc  
O-vvFl#4  
Dim sFileName As String t1 .6+  
Dim fileConfig                  As String m/0t; cx  
Dim fileDispName                As String yeNC-U<  
Dim fileOptions                 As Long O<h`[1eUjS  
Dim swSketchMgr                 As SldWorks.SketchManager b9(
[)8  
Dim swModel                     As SldWorks.ModelDoc2 4o2C=?@(  
Dim swSketchPt()                As SldWorks.SketchPoint ?<slB>8  
rm4j8~Ef  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) A`Bg"k:D  
G}\E{VvWh  
If sFileName = "" Then g=:C/>g  
    MsgBox "没有选择txt数据文件", , "运行宏" IXf@YV  
    Exit Sub @Tr8.4  
End If 3u8HF-  
o^},L?  
Dim x, y, z As Double #sEbu^  
Dim s t <#Yr%a  
Dim n As Integer NPEs0|  
Open sFileName For Input As #1 {j E}mzi  
n = 0 mOyBSOad4  
Do While Not EOF(1) p9 |r y+t  
         Line Input #1, s Ydu=Jg5u7  
         n = n + 1 O.*,e  
Loop nMXSpX>!|  
Close #1 6?ylSQ]1  
If n > 1024 Then pUr.<yc&u  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" u*&wMR>Crf  
    Exit Sub C sn"sf  
End If 69,;=  
ReDim swSketchPt(n) t1.5hsp  
Open sFileName For Input As #1 A=|&N%lP'  
Set swSketchMgr = Part.SketchManager e ?H`p"l  
    swSketchMgr.Insert3DSketch True H5=-b@(  
    swSketchMgr.AddToDB = True <$HP"f+<S5  
    n = 0 KaHjL&!  
    Do While Not EOF(1) WrL&$dEJ?M  
         Input #1, x m^Btr  
         If EOF(1) Then 5>JrTO5  
         Exit Sub O6;7'  
         End If -mG3#88*  
         Input #1, y !B(6  
         If EOF(1) Then 4RNB\D
 
         Exit Sub +kQ$X{+;8  
         End If 2rf-pdOvG  
         Input #1, z }0|,*BkI m  
         n = n + 1 zD-.bHo>.  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) +dk}$w[g  
    Loop a4L8MgF&$-  
Close #1 6<R!`N 6  
End Sub

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

你好，解决了吗 =M)+O%`*6