Public Sub WorkPointAtMassCenter()
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
' 获取重心.
Dim oCenterOfMass As Point
Set oCenterOfMass = oDoc.ComponentDefinition.MassProperties.CenterOfMass
On Error Resume Next
Dim oWorkPoint As WorkPoint
Set oWorkPoint = oDoc.ComponentDefinition.WorkPoints.Item("Center Of Mass")
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 = "Center Of Mass"
End If
End Sub效果图:
装配图及普通零件的重心标记(VBA)
未经允许不得转载:酷居科技 » 装配图及普通零件的重心标记(VBA)
相关推荐
-      Autodesk Inventor 2022.4 Update
-      CNC绘图写字机以及solidworks 插件
-      图形化替换零部件插件(Visual Replace) for Autodesk Inventor 2015-2021
-      Autodesk Inventor增加装配体约束API样例
-      Autodesk Inventor BOM表API使用样例(VBA)
-      Autodesk 2021 全系列注册机+序列号+密钥
-      Autodesk Inventor插件开发之代码实现装配体放置零件的功能
-      Inventor工程图批量替换文本-ilogic外部规则
很好的分享!
默默的学习怎么做。