Annotation Attribiute block . Plaese help

Hi . I am trying to convert my blocks to annotative , but i have serious problem with the scales. I use this pointsin.lsp to insert topographic data (points ftom txt file) to autocad. Before i run the point sin.lsp i use a lisp to give scale the scale i want to the blocks.(My blocks is not annotaded yet)

here is the code for the scale

( DEFUN C:SETSC ()
 (COMMAND "_PDMODE" "32"); point style
 (COMMAND "_PDSIZE" "0.5");point size
 (setvar "OSMODE" 
   (SETQ CURSC (getvar "useri1" ))
   (princ "the print scale is 1:")(princ cursc)
   (setq newsc (getint "\nNew scale  1:"))
   (setvar "useri1" newsc)
     (setq a1 (getvar "useri1"))
       (princ "\n the print scale is 1:")(princ newsc)(princ)
)

In the test.dwg will see all my template settings and the annotation scales i want to use . I have problem with the point.dwg because when i try to change the annotation settings become a mess.

Is any way when i change the annotation scale the block all together just be scaled?

Thanks

pointsin.lsp

Point.dwg

test.dwg

Any options ?