(defun c:gc ()
(prompt "\nPlease select multiple lines: ")
(setq st1 (ssget))
(setvar "OSMODE" 0)
(if st1
(progn
(setq i 0)
(setq isum (sslength st1))
(while (< i (sslength st1))
(setq ent1 (ssname st1 i))
(setq data1 (entget ent1))
(setq start-pt (cdr (assoc 10 data1)))
(setq end-pt (cdr (assoc 11 data1)))
(setq x1 (car (if (< (cadr start-pt) (cadr end-pt))
start-pt
end-pt
)
)
)
(setq y1 (cadr (if (< (cadr start-pt) (cadr end-pt))
start-pt
end-pt
)
)
)
(setq x2 (- x1 125))
(setq y2 (- y1 19))
(setq x3 (- x2 2))
(setq y3 (+ y2 1))
(setq x4 (+ x2 2))
(setq y4 (- y2 1))
(setq pt2 (list x2 y2))
(setq pt3 (list x3 y3))
(setq pt4 (list x4 y4))
(command "_.rectangle" pt3 pt4)
(setvar "OSMODE" 0)
(setq st2 (ssget "C" pt4 pt3))
(princ "\n")
(if st2
(progn
(setq j 0)
(setq jsum (sslength st2))
(while (< j (sslength st2))
(setq ent2 (ssname st2 j))
(setq data2 (entget ent2))
(if (= (cdr (assoc 0 data2)) "TEXT")
(progn
(setq k1 (cdr (assoc 1 data2)))
(setq j (sslength st2))
)
)
(setq j (1+ j))
)
(princ k1)
)
(princ "not found anything")
)
(setq i (1+ i))
)
)
(princ "not selected anything")
)
)