Here is a quick and dirty suppress chamfers routine. I am working on a program to
work with all the various features.
Private Sub Suppress_Chamfers()
Dim oApp As Application
Set oApp = ThisApplication
Dim oDoc As PartDocument
Set oDoc = oApp.ActiveDocument
Dim i As Integer
For i = 1 To oDoc.ComponentDefinition.Features.Count
If oDoc.ComponentDefinition.Features(i).Type = kChamferFeatureObject Then
oDoc.ComponentDefinition.Features(i).Suppressed = True
End If
Next
End Sub
--
Kent Keller
http://kwik-mcad.scriptmania.com/
"mozy01" wrote in message
news:f098344.-1@WebX.maYIadrTaRb...
> I can't suppress a feature. Help!
> Thanks
> Simon
>
