inventor工程图中如何方便的标注重心

三维建膜中出重心容易，但是在工程图中要标注出来却很麻烦．
我一般只能采用最笨的办法，先计算出重心的坐标，然后和圆心坐标计算，再表出坐标．这个时候圆心如果给的比较好的话，那是一件很方便的事情，但是给的不好的话，那却是一件废神的事情了，请问各位高手是怎样处理这样的事情的

工程图里有选项。

先在模型图中得了一个表示“质心”的工作点，这个点如何得到，inventor没有提供直接的功能，可以搜索以前的贴，有一个插件可以方便做到，另外利用VBA也可以方便做到。
然后在工程图中“包含”这个点就得到一个可标尺寸的点。
两张简单图：

看来要充分利用软件提供的信息，还需要会编写VBA程序了！ [s:16]

yandong28 发表于 2025-12-30 17:23
工程图里有选项。...

iProperty Collection V2.4这个插件我安装了 怎么仍然不显示质心 我装的2008中文版

yandong28 发表于 2025-12-30 17:23
工程图里有选项。...

iProperty Collection V2.4这个插件我安装了 怎么仍然不显示质心 我装的2008中文版

要保存才显示吧，我没有用那个插件。
我用的是自己写的VBA，我等会儿发个VBA程序上来吧。

下面的代码为生成与质心对应的工作点，不能保存时生成，不能模型改变后自动调整，需要自己运行宏生成和更新位置。这些基础的东东，有需要的自己研究吧。
如果该代码运行时出现问题请跟贴说明。

Sub 质心() '质心生成固定工作点
    If ThisApplication.ActiveDocumentType <> kPartDocumentObject Then
        Exit Sub
    End If
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument
    Dim fd As BrowserNodeDefinition
  On Error Resume Next
    Dim oCenterOfMass As Point
    Set oCenterOfMass = oDoc.ComponentDefinition.MassProperties.CenterOfMass
    Dim oWorkPoint As WorkPoint
    Set oWorkPoint = oDoc.ComponentDefinition.WorkPoints.Item("质心")
    If Err.Number = 0 Then
        Dim oFixedDef As FixedWorkPointDef
        Set oFixedDef = oWorkPoint.Definition
        oFixedDef.Point = oCenterOfMass
        oDoc.Update
    Else
        Set oWorkPoint = oDoc.ComponentDefinition.WorkPoints.AddFixed(oCenterOfMass)
        oWorkPoint.Name = "质心"
        End If
End Sub

lichaoren 发表于 2025-12-31 19:09
要保存才显示吧，我没有用那个插件。
我用的是自己写的VBA，我等会儿发个VBA程序上来吧。 ......

谢谢 已经可以看见了

lichaoren 发表于 2025-12-31 19:09
要保存才显示吧，我没有用那个插件。
我用的是自己写的VBA，我等会儿发个VBA程序上来吧。 ......

增加下面代码后，可在保存时自动更新质心位置

Public Sub Autosave()
Call ThisDocument.质心
End Sub