AnsweredAssumed Answered

Compute Surface Area for All Configurations

Question asked by Stephane Morvan on Dec 7, 2020
Latest reply on Dec 8, 2020 by Stephane Morvan

Like • Show 0 Likes0
Comment • 2

Hello,

I have a Solidworks file with about 700 configurations in it of a reasonably complex part (so hand calculations are out of the questions). There is a single body resulting from all the different features and operations in the function tree.

I would like to compute the surface area for all 700 configurations and output this to a .txt file, as in 'Configuration = XX' where the number is the computed surface area.

That script should also spot any transient error in the configuration change (every now and then, I get a rebuild error which disappear when I force a rebuild by opening and closing the equations).

I will most likely have to let the PC run the macro overnight, since each configuration change takes on average 30s.

Has anyone come across anything similar?

TIA!

S.M.

No one else has this question

Outcomes

Fifi Riri Dec 8, 2020 12:29 AM

Hello. Try this:

Option Explicit
Dim FilePath As String
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim configNames() As String
Dim configName As Variant
Dim swMass As SldWorks.MassProperty
FilePath = "C:\Temp\SurfaceArea.txt"
If Dir(FilePath) <> "" Then Kill FilePath
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then MsgBox "Open a Part": Exit Sub
If swModel.GetType <> swDocumentTypes_e.swDocPART Then MsgBox "Open a Part": Exit Sub
configNames = swModel.GetConfigurationNames
For Each configName In configNames
swModel.ShowConfiguration2 configName
Set swMass = swModel.Extension.CreateMassProperty
If swModel.Extension.GetWhatsWrongCount > 0 Then
Debug.Print "Rebuild error in config: " & configName
WriteFile configName & " = " & swMass.SurfaceArea * 1000000# & " - With rebuild error"
Else
WriteFile configName & " = " & swMass.SurfaceArea * 1000000#
End If
Next
End Sub

Sub WriteFile(txt As String)
Dim fileNmb As Integer
fileNmb = FreeFile
Open FilePath For Append As #fileNmb
Print #fileNmb, txt
Close #fileNmb
End Sub

Actions

Stephane Morvan @ Fifi Riri on Dec 16, 2020 9:43 AM

Thanks! Looks like it will work. I will give it a shot over the entire file and revert back to you.

Edit (12/15/2020): Finally got around to test it, works like a charm. Thanks again!

Actions

2 Replies

Fifi Riri Dec 8, 2020 12:29 AM
Mark Correct
Correct Answer
Hello. Try this:
Option Explicit
Dim FilePath As String
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim configNames() As String
Dim configName As Variant
Dim swMass As SldWorks.MassProperty
FilePath = "C:\Temp\SurfaceArea.txt"
If Dir(FilePath) <> "" Then Kill FilePath
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then MsgBox "Open a Part": Exit Sub
If swModel.GetType <> swDocumentTypes_e.swDocPART Then MsgBox "Open a Part": Exit Sub
configNames = swModel.GetConfigurationNames
For Each configName In configNames
swModel.ShowConfiguration2 configName
Set swMass = swModel.Extension.CreateMassProperty
If swModel.Extension.GetWhatsWrongCount > 0 Then
Debug.Print "Rebuild error in config: " & configName
WriteFile configName & " = " & swMass.SurfaceArea * 1000000# & " - With rebuild error"
Else
WriteFile configName & " = " & swMass.SurfaceArea * 1000000#
End If
Next
End Sub

Sub WriteFile(txt As String)
Dim fileNmb As Integer
fileNmb = FreeFile
Open FilePath For Append As #fileNmb
Print #fileNmb, txt
Close #fileNmb
End Sub
Like • Show 1 Like1
Actions
- Stephane Morvan @ Fifi Riri on Dec 16, 2020 9:43 AM
  Mark Correct
  Correct Answer
  Thanks! Looks like it will work. I will give it a shot over the entire file and revert back to you.
  
  Edit (12/15/2020): Finally got around to test it, works like a charm. Thanks again!
  Like • Show 0 Likes0
  Actions

Compute Surface Area for All Configurations

Outcomes

Related Content

Recommended Content