[请教] 如何拾取装配体重心？

芳华1335

可以先点装配体的质量特性按钮，软件计算出重心的XYZ坐标，记下这个坐标，在装配体中插入三维草图，新建一草图点，手动设置草图点的XYZ坐标为刚记下的坐标值就可以了。这是手动的笨方法，只有我这种笨人才用，改了图要手动改点坐标才行。
下面是转载的高手的方法，我试用过了，好像有问题，可能是版本的问题吧。（以下为转载）
3D草图点可以通过宏程序和重心进行关联，具体操作方式步驟如下1. 功能表>工具>宏/巨集>新增
2. 選擇儲存位置及給予有意義的名字
3. 刪除新宏內所有內容，貼上以下的程序碼

• Function swmRebuild(swApp As Object, ModelDoc As Object, Feature As Object) As Variant
  
• Dim nStatus As Long
  
• vMassProp = ModelDoc.Extension.GetMassProperties(1, nStatus)
  
• Parents = Feature.GetParents
  
• vPoints = Parents(0).GetSpecificFeature2.GetSketchPoints2
  
• Set Point = vPoints(0)
  
• Point.X = vMassProp(0): Point.Y = vMassProp(1): Point.Z = vMassProp(2)
  
• End Function
  
• Sub main()
  
• Set swApp = Application.SldWorks
  
• Dim ModelDoc As SldWorks.ModelDoc2: Set ModelDoc = swApp.ActiveDoc
  
• ThisFile = swApp.GetCurrentMacroPathName
  
• Dim Methods(8) As String: Methods(0) = ThisFile: Methods(1) = "Module1": Methods(2) = "swmRebuild"
  
• ModelDoc.SketchManager.Insert3DSketch True
  
• ModelDoc.SketchManager.CreatePoint 0, 0, 0
  
• ModelDoc.SketchManager.InsertSketch True
  
• Set MacroFeature = ModelDoc.FeatureManager.InsertMacroFeature2("MassCenter_Update", "", (Methods), Empty, Empty, Empty, Empty, Empty, Nothing, Empty, 0)End Sub
  

5. 立即咝幸部桑?虻阶远?x工具列，新增一個圖示方便使用
由于程序簡短編寫，因此有很多禁忌必須注意：
1. 必定在裝配內咝