topic Re: Annotation in Inventor Programming Forum

Annotation

Thetigerpirro — Wed, 17 Jun 2020 11:08:08 GMT

Hi, I would like to add a code that automatically puts a Annotation in my model but i cant seem to find how.
What I'm doing is measuring the flat pattern and if it goes above my recommended size, i want it to show up as a annotation. Pop-ups wont work well and are way to intrusive for this. I also want the note to get deleted when it goes under my specified value.

All the measuring and stuff I can do myself but I dont know how to call the API to make/delete Annotations.

Re: Annotation

WCrihfield — Wed, 17 Jun 2020 11:34:21 GMT

Under the PartComponentDefinition, you should find ModelAnnotations, then depending on what type of model annotation you want, you can either go the ModelDimensions, ModelGeneralNotes, or ModelLeaderNotes (or others), then you should find options for adding one.

Re: Annotation

Thetigerpirro — Thu, 18 Jun 2020 06:14:39 GMT

Thanks. I have gotten a little bit further but I dont have a good grasp on how to work against API.
This is my code so far:

Dim partcompdef As PartComponentDefinition
partcompdef = ThisApplication.ActiveDocument.ComponentDefinition

partcompdef.ModelGeneralNoteDefinition.Add("kaka")

Any pointers?

Re: Annotation

JhoelForshav — Thu, 18 Jun 2020 09:23:38 GMT

Hi @Thetigerpirro

This code will add the note:

Dim partcompdef As PartComponentDefinition
partcompdef = ThisApplication.ActiveDocument.ComponentDefinition

Dim noteDef As ModelGeneralNoteDefinition = partcompdef.ModelAnnotations.ModelGeneralNotes.CreateDefinition("kaka", True)
Dim onote As ModelGeneralNote = partcompdef.ModelAnnotations.ModelGeneralNotes.Add(noteDef)
oNote.Name = "KAKA NOTE"

And this code will delete it:

Dim partcompdef As PartComponentDefinition
partcompdef = ThisApplication.ActiveDocument.ComponentDefinition

On Error Resume Next
Dim oNote As ModelGeneralNote = partcompdef.ModelAnnotations.ModelGeneralNotes.Item("KAKA NOTE") 'Name of note
oNote.Delete

Hope it helps! 🙂

Re: Annotation

Luisfmts — Tue, 05 Jan 2021 11:13:20 GMT

hi @JhoelForshav,

First code, in an assembly environment, for adding the General Note works fine. But the second one the method for deleting fails.

Do you know why? I also tried the Proxy but not sure if the implementation is similar.

Regards,
Luís

Re: Annotation

JhoelForshav — Tue, 05 Jan 2021 11:39:01 GMT

Hi @Luisfmts

I see that... I guess it's just a bug that you cannot delete ModelGeneralNotes in Assembly Environment.

Something like this as a workaround will have to do 🙂

Dim oAsm As AssemblyDocument = ThisDoc.Document
Dim odef As AssemblyComponentDefinition = oAsm.ComponentDefinition
Dim selSet As SelectSet = oAsm.SelectSet
selSet.Clear
On Error Resume Next
selSet.Select(odef.ModelAnnotations.ModelGeneralNotes.Item("KAKA NOTE")) 'Name of note
ThisApplication.CommandManager.ControlDefinitions("AppDeleteCmd").Execute

Re: Annotation

Luisfmts — Wed, 06 Jan 2021 08:23:31 GMT

Hi @JhoelForshav,

It worked perfectly. It is always nice to learn some new workarounds like this 😄

Thank you!

Re: Annotation

ngdnam88 — Wed, 13 Oct 2021 09:10:49 GMT

Hi @JhoelForshav
Can you share Code that delete all General Note in 3D Model?

Thanks,

Re: Annotation

WCrihfield — Wed, 13 Oct 2021 15:20:28 GMT

Hi @ngdnam88. Here is an iLogic rule you can try for deleting all ModelGeneralNote objects from a Part or Assembly document. It can be used on either a Part or an Assembly, and can also be used as an external rule if needed.

Sub Main Dim oDoc As Document = ThisApplication.ActiveDocument Dim oMA As ModelAnnotations If oDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then Dim oADoc As AssemblyDocument = oDoc oMA = oADoc.ComponentDefinition.ModelAnnotations ElseIf oDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then Dim oPDoc As PartDocument = oDoc oMA = oPDoc.ComponentDefinition.ModelAnnotations Else MsgBox("A Part or Assembly must be 'Active' for this rule to work. Exiting.", vbExclamation, "iLogic") Exit Sub End If If oMA.ModelGeneralNotes.Count = 0 Then Exit Sub For Each oMGN As ModelGeneralNote In oMA.ModelGeneralNotes oMGN.Delete Next End Sub

If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click (LIKE or KUDOS) 👍.

If you want and have time, I would appreciate your Vote(s) for My IDEAS 💡 or you can Explore My CONTRIBUTIONS

Re: Annotation

ngdnam88 — Wed, 13 Oct 2021 16:19:05 GMT

Thanks @WCrihfield
It's working perfectly!

Re: Annotation

ngdnam88 — Sat, 16 Oct 2021 03:56:22 GMT

Hi @WCrihfield

I just tested one more times and got a problem with assembly. Please help me. Thanks,

Re: Annotation

ngdnam88 — Sun, 17 Oct 2021 06:31:01 GMT

Hi @WCrihfield

I just tested one more times and got a problem with assembly. Please help me. Thanks,

Re: Annotation

JhoelForshav — Mon, 18 Oct 2021 12:21:20 GMT

Hi @ngdnam88

The code @WCrihfield posted works for inventor 2022. For older versions though (don't know about 2021, but at least 2020 and earlier), there's a bug when it comes to deleting annotations in assemblies. That's why I wrote a workaround for that earlier in this thread. I have modified @WCrihfield's code to use this workaround for assemblies. Hope it helps!

Sub Main
	Dim oDoc As Document = ThisApplication.ActiveDocument
	Dim oMA As ModelAnnotations
	If oDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
		Dim oADoc As AssemblyDocument = oDoc
		oMA = oADoc.ComponentDefinition.ModelAnnotations
	ElseIf oDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
		Dim oPDoc As PartDocument = oDoc
		oMA = oPDoc.ComponentDefinition.ModelAnnotations
	Else
		MsgBox("A Part or Assembly must be 'Active' for this rule to work.  Exiting.", vbExclamation, "iLogic")
		Exit Sub
	End If

	If oMA.ModelGeneralNotes.Count = 0 Then Exit Sub
	If oDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject
		Dim oSelSet As SelectSet = oDoc.SelectSet
		Dim oCol As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection
		For Each oMGN As ModelGeneralNote In oMA.ModelGeneralNotes
			oCol.Add(oMGN)
		Next
		oSelSet.SelectMultiple(oCol)
		ThisApplication.CommandManager.ControlDefinitions("AppDeleteCmd").Execute
	Else
		For Each oMGN As ModelGeneralNote In oMA.ModelGeneralNotes
			oMGN.Delete
		Next
	End If
End Sub

Re: Annotation

ngdnam88 — Mon, 18 Oct 2021 15:49:47 GMT

I'm using Inventor 2018.3. Your code is working perfectly!
Thanks you very much!

Re: Annotation

ngdnam88 — Fri, 06 Jan 2023 06:53:21 GMT

Dears @JhoelForshav @WCrihfield
Is possible rename it to new name?

Thanks,

Re: Annotation

WCrihfield — Fri, 06 Jan 2023 13:10:44 GMT

Hi @ngdnam88. Yes. Much like before, you just have to dig down to that ModelGeneralNote object, then change the value of its Name property to something else. The following code is just a very basic example for doing that in an assembly, which has just one ModelGeneralNote. It just had its default name before running the code, then when I ran this code, it change its name to "INFO", just like in your image.

Dim oADoc As AssemblyDocument = ThisDoc.Document Dim oMAs As ModelAnnotations = oADoc.ComponentDefinition.ModelAnnotations Dim oMGN As ModelGeneralNote = oMAs.ModelGeneralNotes.Item(1) oMGN.Name = "INFO"

If this solved your problem, or answered your question, please click ACCEPT SOLUTION .
Or, if this helped you, please click (LIKE or KUDOS) 👍.

Re: Annotation

DeckTechnick — Wed, 18 Jan 2023 16:43:08 GMT

Re: Annotation

DeckTechnick — Wed, 18 Jan 2023 16:42:27 GMT

Hi,

I have a similar problem:

I tried to put a note baseded in user parameter (kind "int_ref=1.234") into a model general note (into kUpperLeftQuadrant), and when i use

"<Parameter Resolved='True' ComponentIdentifier='" & oDoc.FullDocumentName & "' Name='int_ref' Precision='2'>" & Parameter("int_ref") & "</Parameter>"

it keep me sending the same error:

"The parameter is incorrect. (Exception from HRESULT: 0x80070057 (E_INVALIDARG))"

The error persist in assamblies and parts documents.

Can u tell what is wrong ?