AnsweredAssumed Answered

Suppress feature

Question asked by Sanya Shmidt on May 4, 2014
Latest reply on May 4, 2014 by Sanya Shmidt
  • Comment • 5

Hello everybody,

 

can you please help me with the code, I`m trying to suppress a feature in a part. Feature name is known as "VertObr_Pattern" it is a pattern of obrounds.

 

I`ve found a lot of examples but they seems very complicated to me. Wondering if there is something easy like in inventor ilogic -

 

Feature.IsActive("OBROUNDS")=False  ' supresses OBROUND feature. Simple and easy.

 

 

I found the following code, but not sure if it will work for a single part and how to modify it to suppress one feature?

 

             

            swFeat.Name = "VertObr_Pattern" ' I tried this - but it gives me a error

           featName=swFeat.Name

 

            swEditPart = swEditModel

            swFeat = swEditPart.FeatureByName(featName) : Debug.Assert(Not swFeat Is Nothing)

            retval = swFeat.Select2(False, 0) : Debug.Assert(retval)

            retval = swEditModel.EditSuppress2: Debug.Assert(retval)

            swAssy.EditAssembly()

 

 

Any help is appreciated.

 

Thank you,

Artem Taturevych
Artem Taturevych May 4, 2014 9:05 PM
Correct Answer

Hi Sanya,

 

Please try this code:

 

Dim swApp As SldWorks.SldWorks

Dim swPart As SldWorks.PartDoc

Dim swFeat As SldWorks.Feature

 

Sub main()

 

    Set swApp = Application.SldWorks

 

    Set swPart = swApp.ActiveDoc

   

    Set swFeat = swPart.FeatureByName("VertObr_Pattern")

   

    If Not swFeat Is Nothing Then

        swFeat.SetSuppression2 swFeatureSuppressionAction_e.swSuppressFeature, swInConfigurationOpts_e.swThisConfiguration, ""

    End If

       

End Sub

______________________________________________

Regards, Artem Taturevych | Snr. Developer | IC3D ANZ

 

IC3DSteel – New Steel Solution for SolidWorks

translationXpert – SolidWorks files language translator

LinkedIn - SolidWorks API Group

See the reply in context
No one else had this question

Outcomes