求大大发一个sw在一个文件夹中批量导入txt并生成xyz曲线的宏

mainsquall · 发表于 2015-10-28 11:12:37

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏，原帖如下：http://www.3dportal.cn/discuz/forum.php?mod=viewthread&tid=1436548
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。

mainsquall · 发表于 2015-10-31 16:04:12

人工置顶，召唤大神！~~

mainsquall · 发表于 2015-10-31 16:23:08

把宏贴出来如下：
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()
Dim swApp                      As SldWorks.SldWorks
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Dim myModelView As Object
If Part Is Nothing Then
MsgBox "请先打开或者新建SolidWorks Part"
Exit Sub
End If
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized

Dim sFileName As String
Dim fileConfig                As String
Dim fileDispName             As String
Dim fileOptions                As Long
Dim swSketchMgr                As SldWorks.SketchManager
Dim swModel                   As SldWorks.ModelDoc2
Dim swSketchPt()             As SldWorks.SketchPoint

sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName)

If sFileName = "" Then
MsgBox "没有选择txt数据文件", , "运行宏"
Exit Sub
End If

Dim x, y, z As Double
Dim s
Dim n As Integer
Open sFileName For Input As #1
n = 0
Do While Not EOF(1)
      Line Input #1, s
      n = n + 1
Loop
Close #1
If n > 1024 Then
MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏"
Exit Sub
End If
ReDim swSketchPt(n)
Open sFileName For Input As #1
Set swSketchMgr = Part.SketchManager
swSketchMgr.Insert3DSketch True
swSketchMgr.AddToDB = True
n = 0
Do While Not EOF(1)
      Input #1, x
      If EOF(1) Then
      Exit Sub
      End If
      Input #1, y
      If EOF(1) Then
      Exit Sub
      End If
      Input #1, z
      n = n + 1
      Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000)
Loop
Close #1
End Sub

mainsquall · 发表于 2015-11-7 13:46:44

大神快来冒个泡啊

		自动登录	找回密码
密码			注册

通知

[求助] 求大大发一个sw在一个文件夹中批量导入txt并生成xyz曲线的宏

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块