Facebook
From Chocolate Kitten, 4 Years ago, written in Visual Basic.
Embed
Download Paste or View Raw
Hits: 210
  1. '------------  PRINTING COORDINATES ------------------
  2. '==========================================================================
  3. Private Sub printCoordinates(oProduct As Product)
  4.  
  5. Dim NWUList(11)
  6. Dim Coords
  7.  
  8. Dim doProduct
  9. Set doProduct = oProduct
  10.  
  11. 'get coordiates from CATIA
  12. doProduct.Position.GetComponents NWUList
  13.  
  14. 'get roll, pitch and yaw
  15. Coords = fromNWUToXYZYPR(NWUList)