AutoCAD LISP Conditional programme for revising a drawing - batch

Hi, I WOULD LIKE FOR A BLOCK CALLED "HISTORYBLOCK" TO INSERT AT DIFFERENT LOCATIONS CONDITIONAL ON THE "REVNUMBER" ATTRIBUTE INSIDE OF A BLOCK CALLED "REVBLOCK" IF "REVNUMBER" ATTRIBUTE = "0" THEN INSERT AT ORIGIN OF BLOCK "REVPOINT0" IF "REVNUMBER" ATTRIBUTE = "1" THEN INSERT AT ORIGIN OF BLOCK "REVPOINT1" IF "REVNUMBER" ATTRIBUTE = "2" THEN INSERT AT ORIGIN OF BLOCK "REVPOINT2" IF "REVNUMBER" ATTRIBUTE = "3" THEN INSERT AT ORIGIN OF BLOCK "REVPOINT3" IF "REVNUMBER" ATTRIBUTE = "4" THEN INSERT AT ORIGIN OF BLOCK "REVPOINT4" IF "REVNUMBER" ATTRIBUTE = "5" THEN INSERT AT ORIGIN OF BLOCK "REVPOINT5" THE "REVPOINT*" BLOCKS ARE INSIDE OF THE "DBORDER" BLOCK. BLOCK TO INSERT -- "HISTORYBLOCK" LOCATION - (L:\PeCommon\SandI\BLOCK\HISTORYBLOCK) NEEDS TO MATCH SCALE TO DRAWING BORDER - BLOCK NAME "DBORDER" ONCE INSERTED NEEDS TO MATCH OR COPY ALL THE ATTRIBUTES FROM THE "REVBLOCK" BLOCK. THEN BURST ZOOM-E CLOSE AND SAVE PLAN TO USE AUTODESK SCRIPTPRO TO RUN ON A BATCH OF DRAWING. IF THERE IS A BETTER WAY PLEASE SUGGEST. CAN PROVIDE DWG EXAMPLES