Problem with annotative text

[CADaSchtroumpf]

I have a problem with my program that I don't know how to solve.
You can run my lisp in a new drawing.
You will be prompted to draw a polyline or select one. (make sure that its total length is around 1000 units for a good rendering)
With the contextual menu you can choose the type of pipe, after this choice the polyline will go to a specific layer and its 'Dnxxx' will be written at the chosen places.
You can create as many as you want and even re-select one already defined to change its type, in this case the texts already in place will be updated.

MY PROBLEM: If I save my drawing and reopen it later, my program no longer works.
Here is the returned error (in French): ; erreur: Erreur Automation Echec de l'appel SetObjectId d'une méthode sur une interface IAcadBaseObject

I know it's the ennotative text that's causing the error, but I don't know how to resolve this error.
Any help would be really welcome!

[ВeekeeCZ · Accepted solution]

Unless I am missing something, I don't experience this issue. I can save it and reopen it, select pipe to edit or create a new one. No such error occurred.

Btw how it's designed to exit labeling? I did not look into it... it always shows "Abnormal order shutdown" and keeps on running until I hit ESC.

[CADaSchtroumpf]

@ВeekeeCZ 

I can save it and reopen it, select pipe to edit or create a new one. No such error occurred.

Ho I'm surprise! I have Autocad Map 2019

Btw how it's designed to exit labeling? I did not look into it... it always shows "Abnormal order shutdown" and keeps on running until I hit ESC.

Click-Left for put Mtext, click-rigth for quit. Esc work, but not recommended (grread)

[ВeekeeCZ]

It's C3D 2020 as ACAD here.

RT click (car tmp)=12 does not work (exit) for me. It just keeps on firing that Abnormal line.

[Sea-Haven]

Had a look for any grread I have and found this by Lee-mac  (grread 't 15 2) v's yours (grread t 5 1) . Can you see subtle difference. Tested with 't did not fix problem is in grread not letting go.

[CADaSchtroumpf]

@ВeekeeCZ 

Thanks to your comment that it works when reopening the drawing, I understood where the error came from.
This doesn't actually come from the code I gave, but from my personalization...
In my 'menu.mnl' I automatically loaded a function (defun-q s::startup () (echel_perso))
This function was intended to systematically put the 'ACAD_SCALELIST' scale definitions to my liking.
It worked by dumping all the scales in the dictionary and recreating them even if the list was already as I had defined it: A priori this step is not a good idea! The ID of dictionnary is lost.
I commented it in my mnl and now it works

For (grread) you can comment line 245:

;							(T (princ "\nAbnormal order shutdown"))

It is not of much use and so see if the behavior you have disappears

The suggestion to convert (grread t 5 1) to (grread 't 15 2) for me doesn't change anything on the behavior other than seeing the cursor position and shape in select mode.