Create & Insert block - by grabbing info from another dwg to user specified XY

I have a drawing that contains a map area to XY coordinates (MAP.dwg)

I am trying to create a lisp that will create & insert a block by grabbing element info from the MAP.dwg area (using user input) to XY co-ordinates

The lisp would need to open the MAP.dwg, copy elements from specified user XY co-ords, then insert as a block into the current drawing. I want the inserted block to be a consistent sized square.

Can anyone help or has anyone done something similar?

How far you're with the lisp?

I am currently using the below multiple lisps, one at a time, but want to automate it into one click.

\\INSERTS UKMAP

(defun C:insert_railmapuk ( )
(command "insunits" "4")	 
(command "osmode" "0" )
(command "-layer" "set" "0" "")
(command "-insert" "*UK" "0,0" "1" "0")
(princ)
)

\\INSERTS RAIL LOCATION MAP BOX

(defun C:INSERTZZMAP ( ) 
(command "INSUNITS" "4")
(command "-insert" "*scalemapmodel" pause "1" "0")
(princ)
)

\\CREATES MAP BLOCK

(defun C:CREATEZZMAP ( )
(command "-BLOCK" "MAP" "Y" pause)
(princ)
)

\\DELETES UKMAP IGNORES MAP BLOCK

(defun c:DELZZMAP (/ ss i sset e)
 (if
   (setq ss (ssget "_x" '((8 . "_ACM-BLCK-UKMAP-LANDLINE,_ACM-BLCK-UKMAP-RAIL,_ACM-BLCK-UKMAP-STATION,_ACM-BLCK-UKMAP-STATION NAME"))))
   (repeat
     (setq i (sslength ss))
     (setq sset (ssname ss (setq i (1- i))))
     (setq e (entget sset))
     (if (not (eq (cdr (assoc 2 e))"MAP"))
       (entdel sset)
     )
   )
   (princ)
 )
 (princ)
)


\\SCALES MAP BLOCK IN PAPER SPACE

(defun C:SCALEZZMAP ( ) 
(sssetfirst nil (ssget "_x" '((0 . "INSERT")(2 . "MAP"))))
(command "SCALE" "p" "" "1059,397.2416" "0.01")
(princ)
)


\\INSERTS RED DOT
(defun C:LOCATEZZMAP ( )
   (command "insunits" "4")	 
   (command "osmode" "0" )
   (command "-layer" "set" "0" "")
   (command "-insert" "*reddot" pause "1" "0")
   (princ)
)

If you look into writing a script its pretty do able, just open master dwg it writes the xy to a txt file open second dwg via script block is inserted, you can do stuff like jump between dwgs code is it a bit more complex. A script can run multiple lisps one after each other.