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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 9n\#s~,  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 ]4Yb$e`  
3R[J,go  
宏贴出来如下： ]}L1W`n  
-:p1gg&  
1~u\]Zi=D  
Sub main() w58 QX/XG  
Dim swApp                       As SldWorks.SldWorks whZ],R*u  
Set swApp = Application.SldWorks ]B'  
Set Part = swApp.ActiveDoc }fMFQA)  
Dim myModelView As Object >s?;2T2"yx  
If Part Is Nothing Then jqsktJw#i  
MsgBox "请先打开或者新建SolidWorks Part" Y},GZ^zqy  
Exit Sub LmdV@gR  
End If [_G0kiI}W"  
Set myModelView = Part.ActiveView FT<*  
myModelView.FrameState = swWindowState_e.swWindowMaximized Gz5@1CF  
f#Oz("d  
Dim sFileName As String MC)W?  
Dim fileConfig                  As String [gr[0aGBc  
Dim fileDispName                As String Uk ;.Hrt.  
Dim fileOptions                 As Long [Et\~'2w8=  
Dim swSketchMgr                 As SldWorks.SketchManager qa`(,iN  
Dim swModel                     As SldWorks.ModelDoc2 aYCzb7  
Dim swSketchPt()                As SldWorks.SketchPoint 'R5l =Wf  
aNU%OeQA  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) $=SYssg7La  
 ^52R`{  
If sFileName = "" Then 0(f;am0y  
    MsgBox "没有选择txt数据文件", , "运行宏" &_9eg  
    Exit Sub |Qm%G\oB?  
End If F9J9pgVP  
#l% \}OC  
Dim x, y, z As Double wT
bIS~!gF  
Dim s y'wW2U/1-  
Dim n As Integer c0p=/*s(  
Open sFileName For Input As #1 "$;
:dfrU  
n = 0 Xn'>k[}<k  
Do While Not EOF(1) 9T
S=>  
         Line Input #1, s LbI])M  
         n = n + 1 ^S2}0Nf  
Loop 5)i0g  
Close #1 e1}0f8%  
If n > 1024 Then HW,55#yG  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" kakWXGeR  
    Exit Sub RA67w&  
End If &c ~)z\$  
ReDim swSketchPt(n) I;Y`rGj  
Open sFileName For Input As #1 r:Cid*~m  
Set swSketchMgr = Part.SketchManager %d\+(:uu/  
    swSketchMgr.Insert3DSketch True *heQ@ww  
    swSketchMgr.AddToDB = True tV4aUve  
    n = 0 e2ZUl` {g  
    Do While Not EOF(1) hrt-<7U  
         Input #1, x FEswNB(]*  
         If EOF(1) Then nE%qm -  
         Exit Sub k5 l~  
         End If >maz t=,
 
         Input #1, y o-Arfc3Q  
         If EOF(1) Then x"De 9SB  
         Exit Sub K%Ml2V   
         End If R;2 -/MT-  
         Input #1, z zKT<QM!`  
         n = n + 1 $ayD55W4  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) J/2pS  
    Loop ZA@"uqa6b  
Close #1 VH65=9z  
End Sub

你好，解决了吗 -&tiM v  

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