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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 =^*EM<WG)  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 &"T7KXx  
47*2QL^zj  
宏贴出来如下： o.|36#Fa  
K%t&aRjS  
SJLs3iz_)  
Sub main() n[y^S3}%;  
Dim swApp                       As SldWorks.SldWorks I~p*~mLh'  
Set swApp = Application.SldWorks #wvGS%
 
Set Part = swApp.ActiveDoc fMW=ss^fu-  
Dim myModelView As Object }z\t}lven  
If Part Is Nothing Then rAW7Zp~KK  
MsgBox "请先打开或者新建SolidWorks Part" R\5fl[  
Exit Sub <~v4BiQ3l^  
End If u|"YS-dH  
Set myModelView = Part.ActiveView @raJB'  
myModelView.FrameState = swWindowState_e.swWindowMaximized 1
7;9>*O'  
l9+CJAmq  
Dim sFileName As String F2<Q~gQ;  
Dim fileConfig                  As String J &=5h.G$  
Dim fileDispName                As String P$AHw;n[R  
Dim fileOptions                 As Long Xf{p>-+DL  
Dim swSketchMgr                 As SldWorks.SketchManager C deV3  
Dim swModel                     As SldWorks.ModelDoc2 ,?%Y*?v  
Dim swSketchPt()                As SldWorks.SketchPoint :AuKQ`c  
DSp~k)  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) R&P^rrC@B5  
z1tCSt}7f  
If sFileName = "" Then U%VFr#  
    MsgBox "没有选择txt数据文件", , "运行宏" +mKII>{  
    Exit Sub F60m]NUM)c  
End If l#+@!2z  
$}YN`:{  
Dim x, y, z As Double l#>A.-R*`  
Dim s XIM?$p^  
Dim n As Integer PqyR,Bcx0  
Open sFileName For Input As #1 F<2gM#jLB  
n = 0 XC/M:2$  
Do While Not EOF(1) !l.^]|  
         Line Input #1, s 7s:c
g  
         n = n + 1 a~-k} G5  
Loop 1O)m(0tb[  
Close #1 cauKG@:2F  
If n > 1024 Then 0.(7R,-  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" 6Ol)SQE,  
    Exit Sub = P$7 "  
End If i5*/ZA_  
ReDim swSketchPt(n) LR"7e  
Open sFileName For Input As #1 D42!#  
Set swSketchMgr = Part.SketchManager [Mv'*.7  
    swSketchMgr.Insert3DSketch True N#:W#C{16w  
    swSketchMgr.AddToDB = True Zjc0R   
    n = 0 $V_w4!:Q  
    Do While Not EOF(1) *t
DxwD7  
         Input #1, x -Zg@#H  
         If EOF(1) Then ?i~mt'O  
         Exit Sub $KGRpI  
         End If  {qH+S/  
         Input #1, y bD1IY1  
         If EOF(1) Then zj1_#=]  
         Exit Sub +]C|y ,r  
         End If :pP l|"
 
         Input #1, z reoCyP\!!  
         n = n + 1 !
JjNm*F[  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) T(+*y  
    Loop -li;w tCS  
Close #1 w~e$ul(IQM  
End Sub

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

你好，解决了吗 2&:w_KJ