Question

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

最终，我将只需要导出特定点并将这些点组合在一起，以确定它们属于哪个部分。

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

Answer 1

我相信它可以做到，我要做的是搜索和选择CATProduct中的所有点，然后获取每个选定点的父级到部分，然后获取坐标（当然，你需要在Excel中写入所有内容）如果你有代码那里。）

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

Answer 2

点击此链接写入CSV文件，该文件可导入excel： http://www.coe.org/p/fo/et/thread=27438

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

关于您的积分信息：

为了向您展示如何向下钻取，我使用 Insert＆gt;基本点的对象分辨率，包括一些关于如何获取坐标以及循环的位置的注释。有一点需要注意，有些方法被“标记为限制”，这需要在使用“GetCoordinates”子之前将点对象设置为变量的中间“hack”。

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

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

2 个答案: