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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 o%4&1^ Vg  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 0'\FrG  
w371.84
 
宏贴出来如下： l|ZzG4
]+l  
WnJLX ^;  
G7/?hky 0.  
Sub main() A=qW]Im  
Dim swApp                       As SldWorks.SldWorks /K1$_  
Set swApp = Application.SldWorks ,syA()  
Set Part = swApp.ActiveDoc /ie3H,2  
Dim myModelView As Object Iu1Sj`A  
If Part Is Nothing Then }lNufu  
MsgBox "请先打开或者新建SolidWorks Part" ,8J*S  
Exit Sub ,3@15j  
End If Yyo9{4v+p{  
Set myModelView = Part.ActiveView n7,6a  
myModelView.FrameState = swWindowState_e.swWindowMaximized JIY ^N9_  
#nc@!+  
Dim sFileName As String -YRL>
]1  
Dim fileConfig                  As String (;2J(GZ:$U  
Dim fileDispName                As String soqNzdTB2  
Dim fileOptions                 As Long L"[wa.<  
Dim swSketchMgr                 As SldWorks.SketchManager WW\)B-}T  
Dim swModel                     As SldWorks.ModelDoc2 $p6Xa;j$9  
Dim swSketchPt()                As SldWorks.SketchPoint hml\^I8Q>F  
H8t{ >C)]  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName)  Sj{rvW  
>e$^#\D  
If sFileName = "" Then h[`Op#^x3  
    MsgBox "没有选择txt数据文件", , "运行宏" .f92^lu9  
    Exit Sub 5k%N<e``  
End If <R~~yW:H  
AXU!-er$  
Dim x, y, z As Double S~a:1 _Wl  
Dim s Etr8lm E  
Dim n As Integer ZvnZ}t>?  
Open sFileName For Input As #1 ZnhuIAAG  
n = 0 [;CqvD<S  
Do While Not EOF(1) Lx
:9@3'7'  
         Line Input #1, s f\F_?s)_y  
         n = n + 1 ik:)-GV;s  
Loop Q!+{MsZ  
Close #1 w`#0 Y9O  
If n > 1024 Then 9y|&T  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" #L4Kwy  
    Exit Sub 9uq+Ve>  
End If /DG`Hg  
ReDim swSketchPt(n) Tk#&Ux{ZJ  
Open sFileName For Input As #1 '3_B1
iAv  
Set swSketchMgr = Part.SketchManager Q0"F>%Cn  
    swSketchMgr.Insert3DSketch True =3v 1]7X  
    swSketchMgr.AddToDB = True
hPXVPLm7I  
    n = 0 p|9ECdU>;  
    Do While Not EOF(1) =|5bhwU]  
         Input #1, x &CeF^  
         If EOF(1) Then K9N0kBJ0<  
         Exit Sub %J ( }D7-,  
         End If f({-j%m  
         Input #1, y gl7vM  
         If EOF(1) Then +uiH0iGS  
         Exit Sub ]Y: W[p  
         End If qT>& v_<  
         Input #1, z _:=OHURc  
         n = n + 1 dR, NC-*  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) +i_f.Ipp  
    Loop bZ22O"F  
Close #1 gJFpEA {  
End Sub

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

你好，解决了吗 TN@JP
oH