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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 (}9cD^F0n  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 eVJ= .?r  
h1n*WQ-  
宏贴出来如下： n>u.3wL  
s4x'f$r  
976E3u"Vt  
Sub main() B0 6s6Q  
Dim swApp                       As SldWorks.SldWorks C/SapX  
Set swApp = Application.SldWorks &B?@@6  
Set Part = swApp.ActiveDoc kTr6{9L  
Dim myModelView As Object @~JB\j9  
If Part Is Nothing Then Rbx97(wK  
MsgBox "请先打开或者新建SolidWorks Part" n/ui<&(  
Exit Sub KK@ &q  
End If }9{dR4hD  
Set myModelView = Part.ActiveView K%98;e9  
myModelView.FrameState = swWindowState_e.swWindowMaximized ,O$Z,J4VL  
`Af{H/qiI  
Dim sFileName As String qXXYF>Z-  
Dim fileConfig                  As String 83mlZ1jQz  
Dim fileDispName                As String *!._Ais,\  
Dim fileOptions                 As Long pw0Px  
Dim swSketchMgr                 As SldWorks.SketchManager u)<Ysx8G  
Dim swModel                     As SldWorks.ModelDoc2 *rS9eej  
Dim swSketchPt()                As SldWorks.SketchPoint b7?U8/#'  
<8}KEe4  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) ~%olCxfO  
Ah6wU|_-g  
If sFileName = "" Then O<}ep)mr  
    MsgBox "没有选择txt数据文件", , "运行宏" 17J}uXA  
    Exit Sub ~5lKL5w  
End If Yh}zt H  
!F=|*j  
Dim x, y, z As Double N BV}4  
Dim s !7ei1  
Dim n As Integer M'pb8jf  
Open sFileName For Input As #1 ap Fs UsE  
n = 0 yw;ghP;  
Do While Not EOF(1) [5>S-Z  
         Line Input #1, s lcu("^{3  
         n = n + 1 +")qi=
 
Loop 9oZ} h&  
Close #1 8QkWgd7y  
If n > 1024 Then )e4WAlg8c  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" i /O1vU#  
    Exit Sub g*:ae;GP  
End If "Y
"t2l_n  
ReDim swSketchPt(n) $=e&q  
Open sFileName For Input As #1 r Iya\z1W  
Set swSketchMgr = Part.SketchManager Ss"|1]acP  
    swSketchMgr.Insert3DSketch True [@,OG-"&  
    swSketchMgr.AddToDB = True pFpQ\xc9$  
    n = 0 YQN]x}:E+4  
    Do While Not EOF(1)
GM)\)\kNF  
         Input #1, x 6F|Hg2tpz  
         If EOF(1) Then P<j4\zJ  
         Exit Sub c!'A)JD@  
         End If 37j\D1Y  
         Input #1, y an*]62l  
         If EOF(1) Then @<@R=aqE  
         Exit Sub Wrf^O2  
         End If Tf&f`/

 
         Input #1, z 5}.,"Fbr  
         n = n + 1 p9FA_(`^  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) Bo\a  
    Loop D..{|29,:  
Close #1 AijPN  
End Sub

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

你好，解决了吗 J[j/aDdP