vba - CATIA V5 の .catpart からの測定値の抽出

Question

.CATPART があり、手動で測定を行いました。CAT VBA でマクロを作成し、.CATPART から測定値を抽出して Excel にエクスポートしたいと考えています。

Answer 1

最も単純な状況を想像してください:

Sub CATMain()

''Get ActiveDocument
Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

''Get Part
Dim part1 As Part
Set part1 = partDocument1.Part

''Get list of parameter of part
Dim oParams As Parameters
Set oParams = part1.Parameters

Dim PatternFind As String
PatternFind = "Measure"

''MsgBox all values of the parameter that contains 'Measure'
For Each item In oParams
    If InStr(item.Name, PatternFind) <> 0 Then
        MsgBox (item.Name & " = " & item.value)
    End If
Next

End Sub

【ツリービューの見方】

• パート1
• 対策
  • MeasureEdge.1
    • 長さ=10mm
  • MeasureEdge.2
    • 長さ=100mm

Excel にエクスポートするには、必要な変更を行う必要があります。