We use this to link objects to google maps in our drawings such as vicmaps etc.
(defun C:DO_MAP (/ Project_name link_desc street_address street_name city_name map_link ent)
(setq link_desc "Link to Google Maps")
(initget 1)
(setq street_address (getint "\nEnter street address: "))
(setq street_name (getstring T "\nEnter street or road name <name only>: "))
(setq city_name (getstring T "\nEnter city or town name: "))
(setq map_link (strcat "https://www.google.com/maps/place/" (rtos street_address 2 0) " " street_name ", " city_name ", CA"))
(setq ent (car (entsel "\nSelect Object to Add Hyperlink: ")))
(command "-hyperlink" "insert" "object" ent "" map_link "" link_desc)
(Princ (strcat "\nSelected object is now linked to: " map_link " on google maps."))
);end DO_MAP