如何将CATIA产品中的点坐标导出到Excel

Question

我正在寻找的是用excel或CATIA编写的VB脚本，该脚本可以将CATProduct中的点的坐标导出到excel电子表格。 由于我要处理的问题很多，因此该过程需要尽可能自动化。

最终，我将只需要导出特定点并将这些点分组为4，以标识它们属于哪个部分。

我有一个excel脚本，该脚本允许导入点，但这仅从几何图形集中获取点，而我要查看的产品中的点位于零件主体中。

Answer 1

我相信这是可以做到的，我要做的是搜索并选择CATProduct中的所有点，然后为零件上的每个选定点获取父级，然后获取坐标（当然，如果有，您需要在Excel中编写所有内容那里的代码）。

我不知道您是否可以在这里上传excel vba，但应该不会那么困难。

Answer 2

单击此处链接以写入可导入excel的CSV文件： http : //www.coe.org/p/fo/et/thread=27438

您需要将excel VBA引用文件添加到Catia VBA Project中。

关于您的积分信息：

只是为了向您展示如何向下钻取一点，我使用了基本点的“ 插入”>“对象分辨率” ，并包括了一些有关如何获取坐标以及在何处循环的注释。 需要注意的是，某些方法被“标记为受限”，这需要在将“点坐标”对象设置为变体之前进行中间“破解”，然后才能使用“ GetCoordinates”子对象。

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