Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub GetPointData()
- '---- Begin resolution script for object : Point.1
- Dim partDocument1 As PartDocument
- Set partDocument1 = CATIA.ActiveDocument
- Dim part1 As Part
- Set part1 = partDocument1.Part
- Dim hybridBodies1 As HybridBodies
- Set hybridBodies1 = part1.HybridBodies
- Dim hybridBody1 As HybridBody
- Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")
- Dim hybridShapes1 As HybridShapes
- Set hybridShapes1 = hybridBody1.HybridShapes
- Dim hybridShapePointCoord1 As HybridShapePointCoord
- Dim XYZ(2) As Variant
- Dim var As Variant
- 'BEGIN LOOP THROUGH YOUR POINTS HERE
- Set hybridShapePointCoord1 = hybridShapes1.Item("Point.1")
- Set var = hybridShapePointCoord1
- var.GetCoordinates XYZ
- 'WRITE XYZ TO CSV
- 'NEXT POINT
- 'END LOOP
- '---- End resolution script
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement