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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 |>L|7>J{<d  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 {m
2lVzK  
La#otuw+?  
宏贴出来如下： dpWBY3(7a  
{Wp5Ane  
@#= ail  
Sub main() ej9|Y5D"S  
Dim swApp                       As SldWorks.SldWorks s`Z'5J;S  
Set swApp = Application.SldWorks ppu WcGo  
Set Part = swApp.ActiveDoc A,'JmF$d  
Dim myModelView As Object ;&v~tD7  
If Part Is Nothing Then &]mZp&  
MsgBox "请先打开或者新建SolidWorks Part" t
V5Uz&:b  
Exit Sub /,m!SRJ  
End If x]%'^7#v)  
Set myModelView = Part.ActiveView #\X="'/  
myModelView.FrameState = swWindowState_e.swWindowMaximized j9G1 _  
6I`Lszs  
Dim sFileName As String G(6MLh1  
Dim fileConfig                  As String eH9Ofhsry  
Dim fileDispName                As String mzkv/  
Dim fileOptions                 As Long f R?Xq@c  
Dim swSketchMgr                 As SldWorks.SketchManager ollk {N  
Dim swModel                     As SldWorks.ModelDoc2 X[{t
D#  
Dim swSketchPt()                As SldWorks.SketchPoint ]~H\X":[>  
G^Q8B^Lg  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) UZ` <D/  
gZLzE*NZ  
If sFileName = "" Then @CJ`T&  
    MsgBox "没有选择txt数据文件", , "运行宏" ]&mN~$+C  
    Exit Sub ]gHi5]\NC
 
End If eVy>  
m5/d=k0l  
Dim x, y, z As Double eAPNF?0yh  
Dim s tB i
16=  
Dim n As Integer 6bXR?0$*M.  
Open sFileName For Input As #1 8r46Wr7Q  
n = 0 Z+G.v=2q<  
Do While Not EOF(1) WFTXSHcG  
         Line Input #1, s -4!9cE  
         n = n + 1 8UahoNrSt  
Loop XzBnj7E  
Close #1 :g`j gn0  
If n > 1024 Then c4'k-\JvT  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" {hmC=j  
    Exit Sub ZWH9E.uj  
End If lPywrTG0  
ReDim swSketchPt(n) j~Cch%%G  
Open sFileName For Input As #1 +=Q/'g   
Set swSketchMgr = Part.SketchManager Z&VH7gi  
    swSketchMgr.Insert3DSketch True x #Um`  
    swSketchMgr.AddToDB = True c6@7>PM  
    n = 0 7i$)iNW  
    Do While Not EOF(1) xR`W9Z5  
         Input #1, x [$<\*d/  
         If EOF(1) Then +"i|)yUYy}  
         Exit Sub i
6Kcj  
         End If WX9ABh&5  
         Input #1, y dpPu&m+  
         If EOF(1) Then Tt.#O~2:9  
         Exit Sub ;;#_[Zl  
         End If \[57Dmo  
         Input #1, z ~Gz b^  
         n = n + 1 BM,]W
jfdj  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) ^z%ShmM&LZ  
    Loop ,@#))2<RK  
Close #1 A./VO  
End Sub

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