You're welcome. I've made some revisons and the code now works as I think you intended. I've added a few comments (probably not enough) so hopefully you can see what I did. The biggest thing is that there is no use for Previous selections sets.....they just are duplicates of the original, unsorted, SS's. That's why I had the sort function return a list of the data you need. I also remove the (nentselp) and replaced it with a filtered selection set using the Fence option between the 2 text inserts. This insures the line you want is selected.....it would pickup ANY Acad entity , depending on your zoom level, before.
Note that the code of yours I no longer use I just commented out, instead of deleting it, so you can better see what I did. There are other things I would have done differently, but they are more personal preference than anything else.
I hope this helps you get to your end result.
Jeff
(defun c:VPT (/ ent cma ele eleveql elevinfo
elevnfo elevset elevset1 elevset2 elevstrn elevstrt
elevx elevxyz elevy equ line line1
line2 lnpnt mtxtpnt mtxtptx mtxtpty picx
picx1 picy picy1 pls pnta pntax
pntay pntb pntbx pntby pvi sta
stadta stainfo stapls staset staset1 stastrt
stax staxyz stay strnsta timera txtpnty
lineset
)
;;ROUTINE TO SORT THE SELECTION SETS BY THE XVALUE
(defun sortSSbyX (ss / ent elist objlist)
(while (setq ent (ssname ss 0))
(setq elist (entget ent))
(setq objlist (cons elist objlist))
(ssdel ent ss)
)
(vl-sort objlist
'(lambda (x1 x2)
(< (cadr (assoc 10 x1)) (cadr (assoc 10 x2)))
)
)
)
;;SOME GENERIC VARABLES I MAY NEED LATER FOR FORMATTING
(SETQ ELE "Elev ")
(SETQ STA "STA ")
(SETQ PLS "+")
(SETQ EQU "=")
(SETQ PVI " PI")
(setQ CMA ",")
;;STATION SELECTION SET
(setq STASET (SSGET "x"
'((0 . "TEXT")
(8 . "60 VERT TEXT")
(1 . "*STA =*")
(-4 . "<AND")
(-4 . ">")
(50 . 1.570795)
(-4 . "<")
(50 . 1.570797)
(-4 . "AND>")
)
)
)
;;RUNS THE SELECTION SET THRU THE SORTER
(setq STASET1 (sortSSbyX STASET))
;;CREATES A SELECTION SET OF JUST THE ENTITY NAMES FROM THE SORTED SELECTION SET
;;(SETQ STASET2 (SSGET "P")) ;;;;not used
;;ELEVATION SELECTION SET
(setq ELEVSET (SSGET "x"
'((0 . "TEXT")
(8 . "60 VERT TEXT")
(1 . "*ELEV =*")
(-4 . "<AND")
(-4 . ">")
(50 . 1.570795)
(-4 . "<")
(50 . 1.570797)
(-4 . "AND>")
)
)
)
;;RUNS THE SELECTION SET THRU THE SORTER
(setq ELEVSET1 (sortSSbyX ELEVSET))
;;CREATES A SELECTION SET OF JUST THE ENTITY NAMES FROM THE SORTED SELECTION SET
;;(SETQ ELEVSET2 (SSGET "P"));;; not used
;;;;; added a (mapcar) and removed the Repeat
(mapcar '(lambda (stainfo elevinfo)
;;(setq STAINFO (entget (SSNAME STASET2 TIMERA)))
;;THIS PULLS THE STRING INFORMATION OUT OF THE TEXT
(setq STRNSTA (cdr (assoc 1 STAINFO)))
;;THIS PULLS OUT THE X, Y, AND Z VALUE OF THE TEXT PLACEMENT
(setq STAXYZ (cdr (assoc 11 STAINFO)))
;;; ;;THIS PULLS OUT THE X VALUE
;;; (SETQ STAX (CAR STAXYZ))
;;;
;;; ;;THIS PULLS OUT THE Y VALUE
;;; (SETQ STAY (CADR STAXYZ))
;;;
;;THIS FINDS THE + NEEDED FOR THE STRING EXTRACTION OF THE NUMBER
(SETQ STAPLS (VL-STRING-POSITION (ASCII "+") STRNSTA))
;;THIS ADDS 2 SPACES TO THE SUBSTR FOR THE BEGINING OF THE STRING I WANT
(SETQ STASTRT (+ STAPLS 2))
;;THIS STRIPS OUT THE NUMBER I WANT FROM THE STRING
(SETQ STADTA (SUBSTR STRNSTA STASTRT))
;;THIS REPEATS THE SAME PROCESS FOR THE ELEVATION SELECTION SET
;;(setq ELEVINFO (entget (SSNAME ELEVSET2 TIMERA)))
;;THIS PULLS THE STRING INFORMATION OUT OF THE TEXT
(setq ELEVSTRN (cdr (assoc 1 ELEVINFO)))
;;THIS PULLS OUT THE XYZ FROM THE TEXT STRING
(setq ELEVXYZ (cdr (assoc 11 ELEVINFO)))
;;; ;;tHIS PULLS OUT THE X VALUE
;;; (SETQ ELEVX (CAR ELEVXYZ))
;;;
;;; ;;tHIS PULLS OUT THE Y VALUE
;;; (SETQ ELEVY (CADR ELEVXYZ))
;;;
;;tHIS FINDS THE = NEEDED FOR THE STRING EXTRACTION OF THE NUMBER
(SETQ ELEVEQL (VL-STRING-POSITION (ASCII "=") ELEVSTRN))
;;THIS ADDS 3 SPACES TO THE SUBSTR FO THE BEGINING OF THE STRING I WANT
(SETQ ELEVSTRT (+ ELEVEQL 3))
;;THIS STRIPS OUT THE NUMBER I WANT FROM THE STRING
(SETQ ELEVNFO (SUBSTR ELEVSTRN ELEVSTRT))
;;; ;;THIS FINDS THE MIDPOINT BETWEEN THE 2 XVALUES
;;; (SETQ PICX (/ (+ STAX ELEVX) 2))
;;;
;;; ;;THIS FINDS THE MIDPOINT BETWEEN THE 2 Y VALUES
;;; (SETQ PICY (/ (+ STAY ELEVY) 2))
;;;
;;; ;;THIS CONVERTS THE X AND Y NUMBER INTO STRINGS
;;; (SETQ PICX1 (RTOS PICX))
;;; (SETQ PICY1 (RTOS PICY))
;;THIS SELECTS THE LINE GIVEN THE X,Y POINT WE DETERMINDED ABOVE INBETWEEN THE 2 STRINGS OF TEXT THAT WE'LL USE TO PLACE THE MTEXT BOX AND OUR NEWLY FORMATTED TEXT
;;; (setq
;;; LNPNT (car (NentselP (list (DISTOF PICX1) (DISTOF PICY1))))
;;; )
;;getsthe Line between the 2 in a Selection Set
(setq LINESET (SSGET "f" (list staxyz elevxyz)
'((0 . "LINE")
(8 . "60 VERT TEXT")
)
)
)
;;THIS GETS THE INFORMATION FROM THE LINE
(SETQ LINE (ENTGET (ssname lineset 0)))
;;THIS PULLES THE X AND Y FROM ONE END OF THE LINE
(setq PNTA (cdr (assoc 10 LINE)))
;;THIS PULLES THE X AND Y FROM THE OTHER END OF THE LINE
(setq PNTB (cdr (assoc 11 LINE)))
;;THIS PULLS THE X FROM PNTA
(SETQ PNTAX (CAR PNTA))
;;THIS PULLS THE Y FROM PNTA
(SETQ PNTAY (CADR PNTA))
;;THIS PULLS THE X FROM PNTB
(SETQ PNTBX (CAR PNTB))
;;THIS PULLS THE Y FROM PNTB
(SETQ PNTBY (CADR PNTB))
;;THIS DECIDES WHICH Y VALUE IS GREATER AND CHOOSES IT
(IF (> PNTAY PNTBY)
(SETQ TXTPNTY PNTAY)
(SETQ TXTPNTY PNTBY)
)
;;THIS SETS THE X AND Y POINTS TO STRINGS
(SETQ MTXTPTX (RTOS PNTBX))
(SETQ MTXTPTY (RTOS TXTPNTY))
;;THIS SETS AND COMBINES THE CALCULATED X AND Y PLACEMENT FOR THE MTEXT STRING
(setq MTXTPNT (list (distof MTXTPTX) (distof MTXTPTY)))
;;THIS ASSEMBLES THE VARIABLES INTO THE COMPANIES ORDER
(SETQ LINE1 (STRCAT STADTA PVI))
(SETQ LINE2 (STRCAT ELE ELEVNFO PVI))
;;THIS PLACES THE MTEXT BOX AT THE END OF THE LINE AND FILLES IT WITH THE CORRECT FORMATT
(COMMAND ".-MTEXT" MTXTPNT "rotation" "90"
"justify" "mr" "@" line1 line2
""
)
)
staset1
elevset1
;;(SETQ TIMERB (+ TIMERA 1)
)
;;END OF REPEAT
;;RESETS TIMER VARIABLE FOR THE LOOP INCASE NEEDED TO RE-RUN COMMAND.
;;; (SETQ TIMERA 0)
;;; (SETQ TIMERB 0)
(princ)
)