Subspressing all chamfer or fillets with iLogic

[j_weber2]

Hi everybody,

i'm not an expert in iLogic.

So i ask my if it is possible to create a rule to subspress all filltes or chamfers in a part by an iLogic rule.

I found a rule by Curits where all solid in a part do this.

Perherps someone of the iLogic Experts have an idea for me.

thanks a lot

[xiaodong_liang · Accepted solution]

Hi,

I wrote a blog fo you

http://adndevblog.typepad.com/manufacturing/2014/03/subspressing-all-chamfer-or-fillets-with-ilogic....

[DeerSpotter]

Subspressing all chamfer or fillets with iLogic

Question: 
Is it possible to create a rule to subspress all filltes or chamfers in a part by an iLogic rule?

Solution: 
The code below self explains how to suppress the specific features.

'get part document
doc = ThisDoc.Document
'get part definition
oDef = doc.ComponentDefinition
 
Dim oEachF As PartFeature
'iterare each feature
For Each oEachF In oDef.Features
    'if it is a chamfer or fillet
    If TypeOf oEachF Is ChamferFeature Or TypeOf oEachF Is FilletFeature Then
        'suppress it
        oEachF.Suppressed = True
    End If
Next
 

 Guy above me did a great job +1

[j_weber2]

Thanks a lot.

I works fine.

thank you, good work

[m.hermann]

Hi all,

and how do i undo this, unsubspress?

[Ktomberlin]

create another rule with this line set to false, or you could make a message box window with a radio button for suppressed, unsuppressed options.

oEachF.Suppressed = False

or

ButtonParm = InputRadioBox("Add or Remove Fillets & Chamfers", "Yes", "No", booleanParam, Title := "SFAC ?")
'get part document 
'Created by xiaodong.liang
doc = ThisDoc.Document
'get part definition 
oDef = doc.ComponentDefinition
Dim oEachF As PartFeature
'iterare each feature
For Each oEachF In oDef.Features
    'if it is a chamfer or fillet
    If TypeOf oEachF Is ChamferFeature Or TypeOf oEachF Is FilletFeature Then
        'suppress it
		oEachF.Suppressed = ButtonParm
        'oEachF.Suppressed = False
    End If
Next