Question

我试图制作一个点测量工具，但每当我的循环偶然发现一个非更新点时，它就会崩溃我的可测量值。我该如何衡量呢？

Answer 1

搜索后，您似乎无法测量任何未更新的几何图形。

您可以使用MecMod Part库中的UpdateObject方法更新一个对象。然后，在您拥有更新的对象时运行可测量的方法。

像这样：

CurPart.UpdateObject Obj1

如果几何体无法更新，由于几何体问题，您可以随时通过错误检查（草率）跳过它，或使用命令＆＃34; IsUpToDate＆＃34;检查几何是否更新。

像这样：

If CurPart.IsUpToDate(Obj1) = true then
     Meas.GetPoint PTArr
End If

确保将对象名称保留在数组中，以便您可以提示用户列出所有未测量的对象。

Answer 2

你可以随时隔离几何体，然后你可以测量并删除它，如果你不再需要它..

这是一个示例，它创建第一个几何图形集中第一个点的孤立副本，更新与否，而原始图形完整无缺。

Sub makePointDatum()
    Dim sPoint As HybridShapePointExplicit, oPart As Part, oHSF As HybridShapeFactory
    Set oPart = CATIA.ActiveDocument.Part
    Set oHSF = oPart.HybridShapeFactory

    Set sPoint = oHSF.AddNewPointDatum(oPart.HybridBodies.Item(1).HybridShapes.Item(1))
    oPart.UpdateObject sPoint
    oPart.HybridBodies.Item(1).AppendHybridShape sPoint
End Sub

如何在CATIA VBA中测量未更新的点？

2 个答案: