hexagon logo
Register Sign in
  • Replies 29 replies
  • Subscribers 39 subscribers
  • Views 528 views
  • Users 0 members are here
Options
Related

my solution to .CSV output

EHines
Since it has come up a few times I thought I would share my solution to outputting data to a .csv file. I originally wrote this in VB express but I have converted it and tested it in 3.7's basic script editor and it works.

The output will be formatted as such: Dimension name, feature name, measured axis, nominal, + tolerance, - tolerance, measurement.

LOC1,LIN1,Y,-0.415,0.5,0.5,-0.40984622932167

Any other work that I need to do with the data I do in Excel after I import the file.

The data will output to the c:\ in a file named PCD Output.csv but with a little tweaking you can change this as you like.

I have done a lot more with this in VBE, but as far as the basics go it get's the job done.


There is a function call in the program but that makes it too long for a single post so you will need to get that from the next post. 
[SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Sub main[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      'Delare variable for file name to write to[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim strFileName As String[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      'connect to PCD program[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim ObjApp As Object[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim ObjPP As Object[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim ObjCmds As Object[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim ObjCmd As Object[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim ObjPart As Object[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim lngNumCmds As Long[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Set ObjApp = CreateObject("PCDLRN.Application")[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Set ObjPart = ObjApp.ActivePartProgram[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Set ObjCmds = ObjPart.Commands[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      set lngNumCmds = ObjCmds.Count[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      'Declare variables used for gather output info[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim StrDimID As String[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim StrDimFeature As String[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim StrDimType As String[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim StrDimNominal As String[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim StrDimUTol As String[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim StrDimLTol As String[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim StrDimMeasure As String[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      'Declare variable for creating CSV text like[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Dim StrOutputLine As String[/COLOR][/SIZE]
 
[SIZE=2][COLOR=#0000ff]              'Build and assign file name[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      strFileName = "C:\PCD output.txt"[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Open strFileName For Output As #1[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      For Each ObjCmd In ObjCmds[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]          If ObjCmd.IsDimension Then[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]              If Not (ObjCmd.DimensionCommand.IsLocationAxis Or ObjCmd.DimensionCommand.IsTruePosAxis) Then[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]                  StrDimID = ObjCmd.DimensionCommand.ID[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]                  StrDimFeature = ObjCmd.DimensionCommand.Feat1[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]              End If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]              StrDimType = FncCmdType(ObjCmd.Type)[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]              StrDimNominal = CStr(ObjCmd.DimensionCommand.Nominal)[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]              StrDimUTol = CStr(ObjCmd.DimensionCommand.Plus)[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]              StrDimLTol = CStr(ObjCmd.DimensionCommand.Minus)[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]              If StrDimType <> "TPDM" Then[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]                  StrDimMeasure = CStr(ObjCmd.DimensionCommand.Measured)[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]              Else[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]                  StrDimMeasure = CStr(ObjCmd.DimensionCommand.Deviation)[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]              End If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]              If Not (StrDimType = "Start_Loc" Or StrDimType = "Start_TP") Then[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]                  StrOutputLine = StrDimID + "," + StrDimFeature + "," + StrDimType + "," + StrDimNominal + "," + StrDimUTol + "," + StrDimLTol + "," + StrDimMeasure[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]                  print #1, StrOutputLine[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]              End If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]          End If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Next[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      Close #1[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]      MsgBox("File save complete")[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]End Sub[/COLOR][/SIZE]
[/COLOR][/SIZE]
Parents
  • I haven't had a chance to test any of this out but I would probably go down the line of setting the values to variables in the part program and passing those to the script. 

    Dim txtPartName as object
Dim txtSerialNumber as object
Set txtPartName = objPart.GetVariableValue ("[I]whatever you name the variable in the program[/I]")
Set txtSerialNumber = objPart.GetVariableValue("[I]whatever you name the variable in the program[/I]")
 
Dim strFile as string
    strFile = txtPartName & " " & txtSerialNumber & ".txt"


    and change the line: 
    [SIZE=2]strFileName = "C:\PCD output.txt"[/SIZE]



    to 

    [SIZE=2]strFileName = ObjPart.Path & strFile [/SIZE]


    (Thanks vpt!!)

    Like I said I haven't had a chance to test any of this but this would probably be the approach I would take. As for the file overwriting if you are indexing the serial number properly that shouldn't happen as you have a new file name every time but if you open the file for Append it would add new data to the end of the old. Not an ideal solution but at least you have the old data still.

    I'm using 4.2MR1. In order for me to get this to work, I had to add ".StringValue" as shown below. 

    Dim txtPartName as object
Dim txtSerialNumber as object
Set txtPartName = objPart.GetVariableValue ("[I]whatever you name the variable in the program[/I]")
Set txtSerialNumber = objPart.GetVariableValue("[I]whatever you name the variable in the program[/I]")
 
Dim strFile as string
    strFile = txtPartName[U].StringValue[/U] & " " & txtSerialNumber[U].StringValue[/U] & ".txt"


    Once it did that, it worked great.

    Thanks for the great code.
Reply
  • I haven't had a chance to test any of this out but I would probably go down the line of setting the values to variables in the part program and passing those to the script. 

    Dim txtPartName as object
Dim txtSerialNumber as object
Set txtPartName = objPart.GetVariableValue ("[I]whatever you name the variable in the program[/I]")
Set txtSerialNumber = objPart.GetVariableValue("[I]whatever you name the variable in the program[/I]")
 
Dim strFile as string
    strFile = txtPartName & " " & txtSerialNumber & ".txt"


    and change the line: 
    [SIZE=2]strFileName = "C:\PCD output.txt"[/SIZE]



    to 

    [SIZE=2]strFileName = ObjPart.Path & strFile [/SIZE]


    (Thanks vpt!!)

    Like I said I haven't had a chance to test any of this but this would probably be the approach I would take. As for the file overwriting if you are indexing the serial number properly that shouldn't happen as you have a new file name every time but if you open the file for Append it would add new data to the end of the old. Not an ideal solution but at least you have the old data still.

    I'm using 4.2MR1. In order for me to get this to work, I had to add ".StringValue" as shown below. 

    Dim txtPartName as object
Dim txtSerialNumber as object
Set txtPartName = objPart.GetVariableValue ("[I]whatever you name the variable in the program[/I]")
Set txtSerialNumber = objPart.GetVariableValue("[I]whatever you name the variable in the program[/I]")
 
Dim strFile as string
    strFile = txtPartName[U].StringValue[/U] & " " & txtSerialNumber[U].StringValue[/U] & ".txt"


    Once it did that, it worked great.

    Thanks for the great code.
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement