Rotate 3D solids to align with WCS and export them.

I need a piece of code that when passed the object id of a 3D solid and run, will rotate the 3D object and align it with the world coordinate system (WCS). The code must be able to be called from VB6. Make a copy of the 3D solid within itself. Then explode the NEW 3D solid 2 times, so that there are line entities left. Then list the lines and get their lengths and then compare them in a bigger then, less then statement to find the longest line. There may be many lines that are longest, so at this point, you choose one of them. You now retrieve the start point and end point of that line. Then execute the ALIGN command, selecting all the lines and the original 3D solid and then; Set the first origin point to the start point of the line we are using. Example: 10,45,75 and set the destination point to 0,0,0. Set the second origin point to the end point of the line we are using. Example: 33,65,.025 and set the destination point to 0,10,0. Then finish the command. This will align all the lines and the original 3D solid to the Y of the WCS. Now you list the lines again and look for the shortest line that is at 0,0,0. You get the start point and end point of that line. You now run the align command again, selecting everything. Set the first origin point to the start point of the line we are using. Example: 0,0,0 and set the destination point to 0,0,0. Set the second origin point to the end point of the line we are using. Example: 12,4,.7 and set the destination point to 0, 0,10. This will align the object to the Z of the WCS. The 3D solid, regardless of its original position and rotation in space, should be square with the WCS and laid flat so the smallest side is aligned with the Z of the WCS and the longest side is aligned to the Y of the WCS. Please the attached zip / word doc for complete description. ## Deliverables 1) Functional code is exceptable, as I am planning on modifing it. 2) Deliverables must be in ready-to-run condition, as follows? (depending on the nature? of the deliverables): a)? For web sites or? other server-side deliverables intended to only ever exist in one place in the Buyer's environment--Deliverables must be installed by the Seller in ready-to-run condition in the Buyer's environment. b) For all others including desktop software or software the buyer intends to distribute: A software? installation package that will install the software in ready-to-run condition on the platform(s) specified in this bid request. 3) All deliverables will be considered "work made for hire" under U.S. Copyright law. Buyer will receive exclusive and complete copyrights to all work purchased. (No GPL, GNU, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site per the coder's Seller Legal Agreement). ## Platform Windows 98se, 2000, ME, XP home and Pro. AutoCAD 2000 though 2005.