Alternatively, you could use something like this:
(setq pth "C:\\Users\\Tony Clean Install\\#Advance\\Blocks\\Cameras\\Camera HD Detail.dwg"
blk (vl-filename-base pth)
)
(if (or (tblsearch "block" blk)
(and
(or (findfile pth)
(prompt (strcat "\n" pth " not found."))
)
(or (progn
(command "_.-insert" pth nil)
(tblsearch "block" blk)
)
(prompt (strcat "\n" blk " could not be defined."))
)
)
)
(command "_.-insert" (strcat "*" blk) "\\" 1 0)
)