3D модель фундамента в acad - второй раз программа не запускается

(defun c:FrontDraw ( / id *error* res
                       DEEP1 COLUMN_B1 HEIGHT1 BASE1GHT1 WIDTH1 DIST1 ARNI1 )
                       
  (defun *error* (msg)
    (alert msg)
    (princ)
  )
 
  (if (< (setq id (load_dialog "mywindow45.dcl")) 0)
    (exit)
  )
 
  (if (not (new_dialog "prog45" id))
    (exit)
  )
 
  (action_tile "DEEP" "(setq DEEP1 $value)")
  (action_tile "COLUMN_B" "(setq COLUMN_B1 $value)")
  (action_tile "HEIGHT" "(setq HEIGHT1 $value)")
  (action_tile "BASE" "(setq BASE1GHT1 $value)")
  (action_tile "WIDTH" "(setq WIDTH1 $value)")
  (action_tile "DIST" "(setq DIST1 $value)")
  (action_tile "ARNI" "(setq ARNI1 $value)")
 
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  
  (setq res (start_dialog))
  (unload_dialog id)
 
  (if (= res 1)
    (progn
      (command "_-layer" "_s" "0" "" "")
      (DrawFront DEEP1 COLUMN_B1 BASE1 HEIGHT1 WIDTH1 DIST1 ARNI1)
    )
  )
 
  (*error* nil)
 
)