It is done in the part doc, but why does the error occur in the assembly doc?

[Anonymous]

Sub RemoveAllModelAnnotations()
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
Dim oCompDef As ComponentDefinition
Set oCompDef = oDoc.ComponentDefinition
Do While oCompDef.ModelAnnotations.Count > 0
oCompDef.ModelAnnotations.Item(oCompDef.ModelAnnotations.Count).Delete
Loop
End Sub

[johnsonshiue]

Hi! Inventor's 3D Annotation can be created in Part and Assembly. Is it possible there could be 3D Annotations at the assembly level? Could you share an example that exhibits the behavior?

Many thanks!

[Anonymous]

 

[sundars]

Hi @Anonymous 

Thank you for reporting this issue. I have verified that this is a problem that the delete API for 3d annotations is not working in the assembly environment. Unfortunately, I am not seeing a workaround for the moment but if i find one i will update you.

I have created a defect for this and we will investigate this. You can refer to this ticket if you need more information: INVGEN-39350.

Thanks for reporting this. Good catch!

-shiva

[Anonymous]

 Dim oCommandMgr As CommandManager
Set oCommandMgr = ThisApplication.CommandManager
Dim oControlDef As ControlDefinition
Set oControlDef = oCommandMgr.ControlDefinitions.Item("This")

Do you know the named internal name?

[sundars]

Hi @Anonymous 

You could try "AppDeleteCmd".

ThisApplication.CommandManager.ControlDefinitions.Item("AppDeleteCmd").Execute

Thanks

-shiva

[Anonymous]

Thank you.