@exceed
looking at your gif, I suppose, you could avoid selecting twice... Perhaps, consider something like this (given the fact that one group of text entities is with starting syntax "CH*" (chainage) )...
...
(setq sstxt (ssget "_:L" '((0 . "TEXT")))) ;;; only single selection needed ;;;
(setq ss1 (ssget "_P" '((1 . "CH*"))))
...
(sssetfirst nil sstxt)
(setq ss2 (ssget "_I" '((1 . "~CH*"))))
...
Altentatively for ss2, you could also use (acet-ss-remove) function with sstxt and ss1...