Alright CAB, I tried your way, coulda sworn I checked it with just a few and now that I have all the villages loaded, it doesn't work.. Take a look if you will and see if you see any glaring errors. Main thing I did is change the name from xld to xx and added all those dang villages. FYI, the T: is a network drive but, I don't think that's a problem.
(defun c:xx (/ ac_list ac filen tmp)
(setq ac_list
(list
(list "231" "T:\\PRM\\Birch Creek\\221OA.DWG")
(list "237" "T:\\PRM\\newtokk\\237oa.DWG")
(list "238" "T:\\PRM\\alakanuk\\238oa.DWG")
(list "256" "T:\\PRM\\tuntutuliak\\256oa.DWG")
(list "293" "T:\\PRM\\nikolai\\293oa.DWG")
(list "295" "T:\\PRM\\livengood\\295oa.DWG")
(list "298" "T:\\PRM\\takotna\\298oa.DWG")
(list "358" "T:\\PRM\\rampart\\358oa.DWG")
(list "427" "T:\\PRM\\toksook bay\\427oa.DWG")
(list "438" "T:\\PRM\\st marys\\438oa.DWG")
(list "467" "T:\\PRM\\chuathbaluk\\467oa.DWG")
(list "477" "T:\\PRM\\kasigluk\\477oa.DWG")
(list "478" "T:\\PRM\\stevens village\\478oa.DWG")
(list "493" "T:\\PRM\\togiak\\493oa.DWG")
(list "496" "T:\\PRM\\nunam iqua\\496oa.DWG")
(list "520" "T:\\PRM\\central\\520oa.DWG")
(list "524" "T:\\PRM\\mcgrath\\524oa.DWG")
(list "525" "T:\\PRM\\twin hills\\525oa.DWG")
(list "526" "T:\\PRM\\lime village\\526oa.DWG")
(list "527" "T:\\PRM\\nunapitchuk\\527oa.DWG")
(list "536" "T:\\PRM\\eek\\536oa.DWG")
(list "543" "T:\\PRM\\bethel\\543oa.DWG")
(list "549" "T:\\PRM\\pilot station\\549oa.DWG")
(list "553" "T:\\PRM\\atmautluak\\553oa.DWG")
(list "556" "T:\\PRM\\quinhagak\\556oa.DWG")
(list "557" "T:\\PRM\\kongiganak\\557oa.DWG")
(list "558" "T:\\PRM\\scammon bay\\558oa.DWG")
(list "573" "T:\\PRM\\chenega bay\\573oa.DWG")
(list "584" "T:\\PRM\\russian mission\\584oa.DWG")
(list "587" "T:\\PRM\\arctic village\\587oa.DWG")
(list "588" "T:\\PRM\\kwigillingok\\588oa.DWG")
(list "589" "T:\\PRM\\napakiak\\589oa.DWG")
(list "591" "T:\\PRM\\mt village\\591oa.DWG")
(list "624" "T:\\PRM\\unalakleet\\624oa.DWG")
(list "628" "T:\\PRM\\beaver\\628oa.DWG")
(list "647" "T:\\PRM\\nightmute\\647oa.DWG")
(list "652" "T:\\PRM\\tununak\\652oa.DWG")
(list "672" "T:\\PRM\\manley hs\\672oa.DWG")
(list "674" "T:\\PRM\\l minchumina\\674oa.DWG")
(list "679" "T:\\PRM\\marshall\\679oa.DWG")
(list "695" "T:\\PRM\\tuluksak\\695oa.DWG")
(list "737" "T:\\PRM\\napaskiak\\737oa.DWG")
(list "757" "T:\\PRM\\kwethluk\\757oa.DWG")
(list "758" "T:\\PRM\\hooper bay\\758oa.DWG")
(list "765" "T:\\PRM\\akiak\\765oa.DWG")
(list "798" "T:\\PRM\\minto\\798oa.DWG")
(list "825" "T:\\PRM\\akiachak\\825oa.DWG")
(list "827" "T:\\PRM\\mekoryuk\\827oa.DWG")
(list "848" "T:\\PRM\\chalkyitsik\\848oa.DWG")
(list "849" "T:\\PRM\\venetie\\849oa.DWG")
(list "858" "T:\\PRM\\chevak\\858oa.DWG")
(list "867" "T:\\PRM\\chefornak\\867oa.DWG")
(list "896" "T:\\PRM\\kipnuk\\896oa.DWG")
(list "899" "T:\\PRM\\kotlik\\899oa.DWG")
(list "949" "T:\\PRM\\emmonak\\949oa.DWG")
(list "967" "T:\\PRM\\goodnews bay\\967oa.DWG")
(list "979" "T:\\PRM\\platinum\\979oa.DWG")
(list "984" "T:\\PRM\\savoonga\\984oa.DWG")
(list "985" "T:\\PRM\\gambell\\985oa.DWG")
)
)
(if (setq ac (getstring "\nEnter the area code for the project to load. "))
(if (setq filen (assoc ac ac_list))
(progn
(setq filen (cdr filen))
;; from Kerry Brown
(if (setq tmp (findfile filen))
(vla-activate
(vla-open (vla-get-documents (vlax-get-acad-object)) tmp)
)
(alert (strcat "Can't find file : " filen))
)
)
(alert (strcat filen " is not in the list."))
)
)
(princ)
)
(prompt "\n*** XX loaded, enter XX followed by the area code to run [XX 321].")
(princ)
Thanks for the help guys and dolls!!