How to delete all feature control frames in my sheet

[artemijs.nille]

i would like to delete all feature control frame in my sheet (see picture below)

Launching this code:

Dim oDoc As Document = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Dim oFCF As FeatureControlFrame

For Each oSheet In oDoc.Sheets
	For Each oFCF In oSheet.DrawingDimensions
			oFCF.Delete
	Next 
Next

i get following message:

Unable to cast COM object of type 'System.__ComObject' to interface type 'Inventor.FeatureControlFrame'. This operation failed because the QueryInterface call on the COM component for the interface with IID '{F3E768AB-B2BC-42B4-B95F-ED49BE550257}' failed due to the following error: Schnittstelle nicht unterstützt (Exception from HRESULT: 0x80004002 (E_NOINTERFACE)).

how can get this code to work?

[bradeneuropeArthur]

Put a 

Try

##.delete

Catch

End try

And the code between.

Regards,

Arthur 

[artemijs.nille]

Thank you for a reply.

I dont get an erroe message anymore, but all FCF are still there.

So the code doesnt work.

Any ideas?

[bradeneuropeArthur]

Will have a look!

[artemijs.nille]

Hi,

could you find a reason why it does not work?

Thank you in advance.

[WCrihfield · Accepted solution]

Hi @artemijs.nille.  Simple mistake is causing Type mismatch.

For Each oFCF In oSheet.DrawingDimensions

Should be:

For Each oFCF In oSheet.FeatureControlFrames

[artemijs.nille]

Thank you very much it helped