hexagon logo
Register Sign in
  • Replies 48 replies
  • Subscribers 233 subscribers
  • Views 1369 views
  • Users 0 members are here
Options
Related

This is my Excel Spreadsheet to "pull" dimensions from PC-DMIS

dtmtim
Hello,

Attached to this post is the latest version of the Excel spreadsheet I use to pull dimensions from PC-DMIS. This is especially useful when you have multiple parts to run and you want all the dimensions on one sheet.

There have been a few minor changes from the original. The most significant change was to add support for bonus tolerances on FCF dimensions. Key-ins are supported. Works in V2014.1 and most others, including V4.3

Feel free to suggest improvements but I have limited time and ability.

The original source code was written by Jared Hess at Wilcox a long ,long time ago ... in a galaxy far, far away. This version has been heavily modified (by me) over the years, and fortunately, I haven't completely ruined it yet.

Dimensional results are put into a column on the spreadsheet. Each part you run starts a new column.

This post will replace the one I have in "code samples"

Make sure you enable macros.

You may have to choose the correct library file depending on the version of PC-DMIS you are running.
Parents
  • You've been reading PCD2EXCEL Slight smile

    I've also made a spreadsheet like this, although yours have some more functionality than mine. Interesting to see someone else's take on a common problem.

    A little tip: Your clearing of all the cells is quite slow, try the following technique instead (it's always faster to work on many cells - a Range - at once): 
    '
' Clear result
'
  Range("A7", Cells.SpecialCells(xlLastCell, xlNumbers)).Select
  Selection.Clear
  Range("A1").Select
Reply
  • You've been reading PCD2EXCEL Slight smile

    I've also made a spreadsheet like this, although yours have some more functionality than mine. Interesting to see someone else's take on a common problem.

    A little tip: Your clearing of all the cells is quite slow, try the following technique instead (it's always faster to work on many cells - a Range - at once): 
    '
' Clear result
'
  Range("A7", Cells.SpecialCells(xlLastCell, xlNumbers)).Select
  Selection.Clear
  Range("A1").Select
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement