;;;Rahmen wechseln
(vmon)
(defun rahmen (p1)
  (F:CMDoff)
  (command "zoom" "f" "0,0" "408,287")
  (command "layer" "mach" "Rahmen" "aus" "~Rahmen" "")
  (command "limiten" "aus")
  (command "_erase" "k" "0,0" "15,15" "")
  (command "_insert" p1 "0,0" "1" "1" "0")
  (command "layer" "ein" "*" "mach" "hp" "")
  (command "zoom" "g")
  (princ)
  ; (F:CMDon)
)