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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 w y\0o  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 2d:5~fEJp  
[dXpz^Co  
宏贴出来如下： <aPbKDF~V  
P\nz;}nv  
d'okX
CG  
Sub main() m) -DrbE  
Dim swApp                       As SldWorks.SldWorks 5L!cS+QNU  
Set swApp = Application.SldWorks dsiQ~ [   
Set Part = swApp.ActiveDoc |GLh|hr  
Dim myModelView As Object 2K~<_.S  
If Part Is Nothing Then li +MnLt  
MsgBox "请先打开或者新建SolidWorks Part" :p|wo"=@Ge  
Exit Sub w{$X :Z  
End If {~y,.[Ga  
Set myModelView = Part.ActiveView Y48MCL  
myModelView.FrameState = swWindowState_e.swWindowMaximized  <j<V{Wc  
|l#<vw wE  
Dim sFileName As String ~M!9E])  
Dim fileConfig                  As String <8,,pOb  
Dim fileDispName                As String $.0l%
$7  
Dim fileOptions                 As Long .m^L,;+2  
Dim swSketchMgr                 As SldWorks.SketchManager er44s^$  
Dim swModel                     As SldWorks.ModelDoc2 CBrC   
Dim swSketchPt()                As SldWorks.SketchPoint pFW^  
(]}52%~  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) pOKs VS%fT  
+bhR[V{0g  
If sFileName = "" Then K K_  
    MsgBox "没有选择txt数据文件", , "运行宏" G oHdhne3  
    Exit Sub yOdh?:Imv  
End If *)|EWT?,  
P =jRof$  
Dim x, y, z As Double [/+}E X  
Dim s <{Pr(U*7}  
Dim n As Integer }9FAM@x1K&  
Open sFileName For Input As #1 *]#(?W.$w  
n = 0 d>wpG^"w  
Do While Not EOF(1)  qH9bo-6  
         Line Input #1, s ,ej89  
         n = n + 1 a^5.gfzA  
Loop Kwmtt  
Close #1 921m'WE  
If n > 1024 Then U
1y8Y/  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" AS-%I+ A  
    Exit Sub g[%^OT#  
End If /9o g
g  
ReDim swSketchPt(n) NSV;R~"  
Open sFileName For Input As #1 Pz77\DpFi  
Set swSketchMgr = Part.SketchManager (aUdPo8H^  
    swSketchMgr.Insert3DSketch True aJ3.D  
    swSketchMgr.AddToDB = True ~C31=\$  
    n = 0 ;%`oS.69  
    Do While Not EOF(1) ;QS(`SK l  
         Input #1, x G}V5PEF]`  
         If EOF(1) Then Muay6b?  
         Exit Sub DV!10NqUr  
         End If *P; cSx?2  
         Input #1, y R|g50Q  
         If EOF(1) Then 3bBCA9^se  
         Exit Sub Bbj%RF2,  
         End If ggL^*MV  
         Input #1, z Y=$PsDh!  
         n = n + 1 O-,0c1ts  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) H-C$Jy)f"  
    Loop (CR]96n  
Close #1 8_=MP[(H  
End Sub

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

你好，解决了吗 k@|Go)~