问题描述:在SolidWorks中进行二次开发时,在程序中如何实现获得质量特性里的信息,如体积、表面积、重心等。
问题解决:
程序如下(语言类型是VB)
Option Explicit
Public Enum swMassPropertyMoment_e
swMassPropertyMomentAboutCenterOfMass = 0
swMassPropertyMomentAboutCoordSys = 1
End Enum
Public Enum swMassPropertiesStatus_e
swMassPropertiesStatus_OK = 0
swMassPropertiesStatus_UnknownError = 1
swMassPropertiesStatus_NoBody = 2
End Enum
Public Enum swBodyType_e
swSolidBody = 0
swSheetBody = 1
swWireBody = 2
swMinimumBody = 3
swGeneralBody = 4
swEmptyBody = 5
End Enum
Public Enum swUserPreferenceDoubleValue_e
swMaterialPropertyDensity = 7
End Enum
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDocExt As SldWorks.ModelDocExtension
Dim swMass As SldWorks.MassProperty
Dim swSelMgr As SldWorks.SelectionMgr
Dim swComp As SldWorks.Component2
Dim vBodyArr As Variant
Dim vCoM As Variant
Dim vMoI As Variant
Dim vPrinAoIx As Variant
Dim vPrinAoIy As Variant
Dim vPrinAoIz As Variant
Dim vPrinMoI As Variant
Dim nDensity As Double
Dim bRet As Boolean
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDocExt = swModel.Extension
Set swMass = swDocExt.CreateMassProperty
Set swSelMgr = swModel.SelectionManager
Set swComp = swSelMgr.GetSelectedObjectsComponent2(1)
vBodyArr = swComp.GetBodies2(swSolidBody): Debug.Assert Not IsEmpty(vBodyArr)
bRet = swMass.AddBodies((vBodyArr)): Debug.Assert bRet
vCoM = swMass.CenterOfMass
vMoI = swMass.GetMomentOfInertia(swMassPropertyMomentAboutCenterOfMass)
vPrinAoIx = swMass.PrincipleAxesOfInertia(0)
vPrinAoIy = swMass.PrincipleAxesOfInertia(1)
vPrinAoIz = swMass.PrincipleAxesOfInertia(2)
vPrinMoI = swMass.PrincipleMomentsOfInertia
Debug.Print "File = " & swModel.GetPathName
Debug.Print " Comp = " & swComp.Name2
Debug.Print " Config = " & swComp.ReferencedConfiguration
Debug.Print " Density = " & swMass.Density & " kg/m^3"
Debug.Print ""
Debug.Print " CenterOfMass = (" & vCoM(0) * 1000# & "," & vCoM(1) * 1000# & "," & vCoM(2) * 1000# & ") mm"
Debug.Print " Volume = " & swMass.Volume * 1000000000# & " mm^3"
Debug.Print " Area = " & swMass.SurfaceArea * 1000000# & " mm^2"
Debug.Print " Mass = " & swMass.Mass & " kg"
Debug.Print ""
Debug.Print " Ix = (" & vPrinAoIx(0) & "," & vPrinAoIx(1) & "," & vPrinAoIx(2) & ")"
Debug.Print " Iy = (" & vPrinAoIy(0) & "," & vPrinAoIy(1) & "," & vPrinAoIy(2) & ")"
Debug.Print " Iz = (" & vPrinAoIz(0) & "," & vPrinAoIz(1) & "," & vPrinAoIz(2) & ")"
Debug.Print ""
Debug.Print " Px = " & vPrinMoI(0) & " kg*m^2"
Debug.Print " Py = " & vPrinMoI(1) & " kg*m^2"
Debug.Print " Pz = " & vPrinMoI(2) & " kg*m^2"
Debug.Print ""
Debug.Print " Lxx = " & vMoI(0) & " kg*m^2"
Debug.Print " Lxy = " & vMoI(1) & " kg*m^2"
Debug.Print " Lxz = " & vMoI(2) & " kg*m^2"
Debug.Print " Lyx = " & vMoI(3) & " kg*m^2"
Debug.Print " Lyy = " & vMoI(4) & " kg*m^2"
Debug.Print " Lyz = " & vMoI(5) & " kg*m^2"
Debug.Print " Lzx = " & vMoI(6) & " kg*m^2"
Debug.Print " Lzy = " & vMoI(7) & " kg*m^2"
Debug.Print " Lzz = " & vMoI(8) & " kg*m^2"
End Sub