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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 xHA0gZf  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 pG3k   
aYn^)6^  
宏贴出来如下： u<xo/=Z  
Na{Y}0=^y  
B1!kn}KlL{  
Sub main() u]*0;-tz  
Dim swApp                       As SldWorks.SldWorks UL$}{2N,_  
Set swApp = Application.SldWorks  #
xh_  
Set Part = swApp.ActiveDoc }UwO<#  
Dim myModelView As Object TrS8h^C
 
If Part Is Nothing Then O+q/4  
MsgBox "请先打开或者新建SolidWorks Part" k[j90C5  
Exit Sub dT"hNHaf  
End If > L2HET  
Set myModelView = Part.ActiveView Q\ppfc{,  
myModelView.FrameState = swWindowState_e.swWindowMaximized /]
^#b  
@(g_<@Jz  
Dim sFileName As String saf&dd  
Dim fileConfig                  As String KLWn?`  
Dim fileDispName                As String PNs~[  
Dim fileOptions                 As Long NPa\Cg[  
Dim swSketchMgr                 As SldWorks.SketchManager j=RRfFg)  
Dim swModel                     As SldWorks.ModelDoc2 NoE*/!Sr  
Dim swSketchPt()                As SldWorks.SketchPoint kYzKU2T\W  
hj%ye~|~  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) =@&cHY  
ElhRF{R  
If sFileName = "" Then :KJ pk:<  
    MsgBox "没有选择txt数据文件", , "运行宏" /P|fB]p  
    Exit Sub FY{e2~gi  
End If GzXUU@p  
CAq/K?:8  
Dim x, y, z As Double O/s$SX%g  
Dim s 8BOZh6BV  
Dim n As Integer %ts^Z*3u  
Open sFileName For Input As #1 >{gPN"S"a  
n = 0 sV"UI  
Do While Not EOF(1) -VxTx^)>  
         Line Input #1, s #'D" 'B  
         n = n + 1 ajR%c2G;  
Loop t7n(Qkrv  
Close #1 Z>c3  
If n > 1024 Then x+ncc_2n&D  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" `nM/l@
 
    Exit Sub ^bg2[FV  
End If N'r3`8tS  
ReDim swSketchPt(n) -}O1dEn.  
Open sFileName For Input As #1 {'?)FX*W  
Set swSketchMgr = Part.SketchManager x3jb%`o#!  
    swSketchMgr.Insert3DSketch True &qpr*17T  
    swSketchMgr.AddToDB = True
{;toI  
    n = 0 IG)s^bP  
    Do While Not EOF(1) `ps)0!L L`  
         Input #1, x @SZM82qU2z  
         If EOF(1) Then b2aF 'y/  
         Exit Sub \%PaceH  
         End If NI#X@  
         Input #1, y 5;0g!&-t#  
         If EOF(1) Then JD@J[YY5R  
         Exit Sub JlMT<;7\  
         End If /|#&px)G  
         Input #1, z { eCC$&"  
         n = n + 1 I2nF-JzD2a  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) H 0+dV3  
    Loop zi`b2h
 
Close #1 ee%fqVQ8P  
End Sub

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

你好，解决了吗 EwOV;>@T?