Fix default values

Author: hemerfc

ag_base.lsp

@@ -168,7 +168,7 @@
   ;; (eval (read var_name)) read from var
   ;; (set (read var_name) x) write x on var 
 
-  (if (null (eval (read var_name))) (set (read var_name) 2000))
+  (if (null (eval (read var_name))) (set (read var_name) 720))
   (setq msg (strcat "\n" name " <" (itoa (eval (read var_name))) ">: "))
   (initget 4)
   (if (setq comp (getint msg))

ag_pdrm.lsp

@@ -5,7 +5,7 @@
 (defun ag:Pdrm (n passo comp_ant comp_port1 comp_port2 comp_post vel cor point ang / larg rect blockname)
 
   (setq blockname (CreateBlkName
-                    (list "PSRM"
+                    (list "PDRM"
                           (itoa n)
                           (itoa passo)
                           (itoa comp_ant)