Way to go Lee. I don't know how many of you use Civil3D. Specially with the Grading Elevation Labels. By changing the filter to that it makes stretching those spot shots a lot easier than clicking / griping.
(defun c:test ( / p q s )
(if (and (setq p (getpoint "\nSpecify first corner of crossing window: "))
(setq q (getcorner p "\nSpecify opposite corner: "))
)
;; (if (setq s (ssget "_C" p q '((0 . "MULTILEADER"))))
(if (setq s (ssget "_C" p q '((0 . "AECC_SURFACE_ELEVATION_LABEL") (8 . "0-SRF-LBL"))))
(vl-cmdf "_.stretch" s "" "\\" "\\")
(princ "\nNo multileaders found in crossing window.")
)
)
(princ)
)