hexagon logo
Register Sign in
  • Replies 29 replies
  • Subscribers 39 subscribers
  • Views 531 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]
  • Since it has come up a few times I thought I would share my solution to outputting data to a .csv file...

    For those that run PC-DMIS 4.0 and later, I'd rather recommend the PCD2Excel Wizard which is part of the PC-DMIS package. That way you also get FCF dimensions exported (something this script misses completely, as they didn't exist in 3.7).
  • You probably figured it out by yourself, but just in case:
    try to replace the Output keyword with Append in the Open command, e.g.: 

    Open strFileName For Append As #1



    Thanks very much for the code, but could you explain how to open the file to Append it? I would like to have it just add the data everytime instead of overwriting it.

    Thanks very much for your time and help.
  • For those that run PC-DMIS 4.0 and later, I'd rather recommend the PCD2Excel Wizard which is part of the PC-DMIS package. That way you also get FCF dimensions exported (something this script misses completely, as they didn't exist in 3.7).

    How do you output FCF dimensions with a VB script??
  • How do you output FCF dimensions with a VB script??

    You spend a couple of hours (or more!), looking at the VB code for PCD2EXCEL, which is supplied in the C:\Program Files (x86)\WAI\PC-DMIS 2012 MR1 (Release)\Wizards\PCD2Excel folder, trying to understand the code the Wilcox' programmer wrote. Then you experiment, copy & paste, test and test again, tear your hair, change a little, test again, and finally you think you have it...

    Or you use the PCD2EXCEL wizard right off from the beginning, and don't have to spend your money on new hair.
  • Sounds like you have lived it - does if have anything to do with FCF not being seen as a dimension type, and looking for ID type 184? At least tell me if I am getting warm!
  • It's not a dimension type, it's just a command of type = FEATURE_CONTROL_FRAME, and then just plain tables of data - no meaningful member names or anything. You'll need to verify the count of ten different tables, and decide what to do with them. 

    Const LINE1_SIZE_TABLE = 1
Const LINE2_POSITION_TABLE = 2
Const LINE3_POSITION_TABLE = 3
Const DATUM_SHIFT_TABLE = 4
Const SUMMARY_TABLE = 5
Const NOT_USED = 6
Const LINE2_ORIENTATION_TABLE = 7
Const LINE3_ORIENTATION_TABLE = 8
Const LINE2_BASIC_DIMENSION_TABLE = 9
Const LINE3_BASIC_DIMENSION_TABLE = 10


    with code like the following for each table type. Yech! 

    '
' LINE2_BASIC_DIMENSION_TABLE --> most simple FCF dimensions, one Or more features
'
  If cmd.GetFieldValue(RPT_DIMENSION_TABLES, LINE2_BASIC_DIMENSION_TABLE) = 1 Then

    For i = 1 To cmd.GetDataTypeCount(LINE2_FEATNAME)
      elValueType = cmd.GetFieldValue(LINE2_FEATNAME, i)
      elAct = cmd.GetFieldValue(LINE2_MEAS, i)
      elNom = cmd.GetFieldValue(LINE2_NOMINAL, i)
      elDev = cmd.GetFieldValue(LINE2_DEV, i)
      elMtol = cmd.GetFieldValue(LINE2_MINUSTOL, i)
      elPtol = cmd.GetFieldValue(LINE2_PLUSTOL, i)
      elOutTol = cmd.GetFieldValue(LINE2_OUTTOL, i)
      elStarted = 1
      PrintLine(fNum)
    Next i
  End If


    'Just' look through the code of the PCD2EXCEL wizard - all I know is what I found there (and in the type library - can be viewed in VBA in Excel).
  • what is FCF dimensions ??

    any coursebook about PC-DMIS V4.2 OR LATER????
  • what is FCF dimensions ??

    any coursebook about PC-DMIS V4.2 OR LATER????

    Xactmeasure dimensioning for building Feature Control Frames (FCF)

    Legacy dimensioning is the alternative.
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement