Export Work Points to Excel from Inventor 2015

Anonymous — Thu, 05 Oct 2017 17:14:02 GMT

Is there a way to Export Work Points to Excel from Inventor 2015

Re: Export Work Points to Excel from Inventor 2015

FrodoZhou — Thu, 05 Oct 2017 18:11:48 GMT

Hello,

There is no UI workflows allow you to do that yet, however, this little VBA code will help you collect all the work points data in a part document and save the data to a text file under your C drive. Hope this is helpful.

Sub CollectWorkPoints()
Dim oComp As PartComponentDefinition
Set oComp = ThisApplication.ActiveDocument.ComponentDefinition

Dim oWorkPoint As WorkPoint
Dim oPoint As Point

Dim oFSO As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")

Dim oFileout As Object
Set oFileout = oFSO.CreateTextFile("C:\WorkPoints.txt", True, True)

For Each oWorkPoint In oComp.WorkPoints
Set oPoint = oWorkPoint.Point

oFileout.Writeline oPoint.X & "," & oPoint.Y & "," & oPoint.Z
Next

oFileout.Close
End Sub

Re: Export Work Points to Excel from Inventor 2015

Anonymous — Wed, 11 Oct 2017 12:29:12 GMT

use this

http://modthemachine.typepad.com/my_weblog/2011/06/writing-work-points-to-an-excel-file.html

topic Export Work Points to Excel from Inventor 2015 in Inventor Forum

Export Work Points to Excel from Inventor 2015

Re: Export Work Points to Excel from Inventor 2015

Re: Export Work Points to Excel from Inventor 2015