Importing very large IGES files

Apr 05, 2005 3 Replies

Does anyone know a way to import Pro-E assys (1000+ parts) as iges files into SW without SW automatically suppressing all the parts. It takes for ever to go through all the sub assys and unsuppress everything.



Thanks all,



Jim Pixley Designer - DSG Gloucester, Ma


Jim,

I'd be thankfull you can even read them at this point.

There may be something you can do with the API, maybe Baren-Boym has an add in

Regards

Mark

Can't you just unsupress with dependants? You may also try exporting a step file instead of the iges. Step files import faster, but they don't keep the part colors.

But, if it was me I would leave the assembly in Pro/E and drop Soldworks as it will choke when trying to work on an assembly with 1000+ parts...

We use assemblys between 1000 and 2000 parts with little problems here is a macro that will recurse the assembly tree and unsupress all parts, let me know how it works I didn't do too much testing.

Dim swApp As SldWorks.SldWorks Dim Assy As SldWorks.ModelDoc2 Dim Config As SldWorks.Configuration

Sub main() Dim rootComp As Component2

Set swApp = Application.SldWorks Set Assy = swApp.ActiveDoc Set FeatMan = Assy.FeatureManager Set Config = Assy.GetActiveConfiguration Set rootComp = Config.GetRootComponent

RecurseAssy rootComp, 0

End Sub

Sub RecurseAssy _ ( _ swComp As SldWorks.Component2, _ nLevel As Long _ )

Dim vChildComp As Variant

Dim swChildComp As SldWorks.Component2

Dim swCompConfig As SldWorks.Configuration

Dim sPadStr As String

Dim i As Long

Dim SplitStr As Variant

Dim NewComp As Boolean

For i = 0 To nLevel - 1

sPadStr = sPadStr + " "

Next i

vChildComp = swComp.GetChildren

For i = 0 To UBound(vChildComp)

Set swChildComp = vChildComp(i) Debug.Print swChildComp.Name2 superr = swChildComp.SetSuppression2(swComponentResolved) Select Case superr Case swSuppressionError_e.swSuppressionBadComponent Debug.Print "swSuppressionBadComponent" Case swSuppressionError_e.swSuppressionBadState Debug.Print "swSuppressionBadState" Case swSuppressionError_e.swSuppressionChangeFailed Debug.Print "swSuppressionChangeFailed" Case swSuppressionError_e.swSuppressionChangeOk 'Debug.Print "swSuppressionChangeOk" End Select

RecurseAssy swChildComp, nLevel + 1

Next i

End Sub

paste this into a new macro and hit play on the main sub

Join the Discussion

Have something to add? Share your thoughts — no account required.

Didn't find your answer?

Ask the community — no account required