4 Replies Latest reply on Mar 21, 2017 6:06 AM by Ivana Kolin

    Macro doesn't import each file and point

    Tristan Clark

      I have a macro that loops through .sldcrv files with XYZ coordinates in each as a point. For some reason, it'll run through every other file each time it is run. Also, it won't import all the points on the first run. I end up having to run the macro multiple times before all the points are imported. Any ideas? Here is the macro I am using:

       

      Dim swApp As Object

      Sub main()

       

      Set swApp = Application.SldWorks

      Set Part = swApp.ActiveDoc

      swApp.ActiveDoc.ActiveView.FrameState = 1

       

      Dim skPoint As Object

      Dim num1 As Integer

      Dim nsec As Integer

       

          nsec = 21

          For num1 = 1 To nsec

          Open "\sec" & num1 & ".sldcrv" For Input As #num1

          Part.SketchManager.Insert3DSketch True

          Do While Not EOF(num1)

          Input #num1, X, Y, Z

          Set skPoint = Part.SketchManager.CreatePoint(X, Y, Z)

          Loop

          Part.InsertCurveFileEnd

          Close #num1

          Next num1

       

      Part.ShowNamedView2 "*Isometric", 7

      Part.ViewZoomtofit2

      End Sub

       

      Thanks.