I am adding a weldment cut-list and bounding box to imported parts.  I need to use the lines to add a coordinate system (at least three intersecting lines).  I plan to use the longest line as X, the shortest line as Z, and the remaining line as Y.  For my needs, it doesn't really matter which three intersecting lines.

Can anyone help me get the coordinates of three intersecting lines from the cut-list bounding box - using VBA?

(I've attached a sample part)

Thank you.