Seems to work good here also Alan. I noticed that the text will always move to the same spot when you modify the line object, but you can move the text object by itself, and it won't relocate until you modify the line object. Just something I noticed.
Also you might have to release the reactor object, as it is still there when you erase the text object and then modify the line object. The erased object ( in the quoted command section below ) is the text object, and then the stretch command is applied to the same line object each time. Notice that the reactor is still firing eventhough there is no reactor returned by the function ' AssociatedReators '.
Command: e ERASE
Select objects: Specify opposite corner: 1 found
Select objects:
Command: Specify opposite corner:
Command:
** STRETCH **
Specify stretch point or [Base point/Copy/Undo/eXit]:
Reactor has be removed because the text object has been erased.
Command:
** STRETCH **
Specify stretch point or [Base point/Copy/Undo/eXit]:
Reactor has be removed because the text object has been erased.
Command:
** STRETCH **
Specify stretch point or [Base point/Copy/Undo/eXit]:
Reactor has be removed because the text object has been erased.
Command:
** STRETCH **
Specify stretch point or [Base point/Copy/Undo/eXit]:
Reactor has be removed because the text object has been erased.
Command: (AssociatedReactors (vlax-ename->vla-object (car (entsel))))
Select object: nil
Command:
** STRETCH **
Specify stretch point or [Base point/Copy/Undo/eXit]:
Reactor has be removed because the text object has been erased.