(defun msVPakttausch ( / )
(setq msliste nil)
(setq m1 nil)
  (foreach ms (dictsearch (namedobjdict) "ACAD_SCALELIST")
    (if (and (= 350 (car ms))(/= m1 "1:100"))
     (progn
      (setq msliste (append (list (cons (strcase (cdr (assoc 300 (entget (cdr ms))))) (cdr (assoc -1 (entget (cdr ms)))))) msliste))
      (setq m1 (cdr (assoc 300 (entget (cdr ms)))))
      (print "m1: ")(princ m1)(terpri)
     );end progn
    );end if
  );end foreach
(print "mlist: ")(princ msliste)(terpri)
(setq mslistobjname (cdr (car msliste)));Objektname von m1
(setq akttab (getvar "CTAB"))
;(foreach teil (layoutlist)(setvar "ctab" teil)
(foreach teil
(mapcar
  'cadr
  (ssnamex (ssget "_x"
  (list (cons 0 "VIEWPORT")(cons 69 1)(cons 410 (getvar "ctab")));
  )
  )
);end mapcar - holt Objektnamen aller Papierbereich-Ansichtsfenstern
(if (and (> (cdr (assoc 69 (entget teil))) 1)(= (getvar "cvport") 1))
(command "_.mspace")
)
(if (and (= (cdr (assoc 69 (entget teil))) 1)(/= (getvar "cvport") 1))
(command "_.pspace")
)
(setvar 'CVPORT (cdr (assoc 69 (entget teil))))
(setq ENTScale
  (entget (cdr (assoc
340
(entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget teil)))))))
               )
          )
  )
)
(print "Entityliste: ")(princ "VIEWPORT")(princ " - ")(princ (entget teil))(terpri)
(print "Entityliste: ")(princ "DICTIONARY")(princ " - ")(princ (entget (cdr (assoc 360 (entget teil)))))(terpri)
(print "Entityliste: ")(princ "XRECORD")(princ " - ")(princ (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget teil))))))))(terpri)
(print "Entityliste: ")(princ "SCALE")(princ " - ")(princ (entget (cdr (assoc 340 (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget teil)))))))))))(terpri)(setq xrecordlst (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget teil))))))))
(setq xrecordnam (cdr (car (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget teil))))))))))
(print "Objektname: ")(princ "XRECORD")(princ " - ")(princ xrecordnam)(terpri)
;(setq xrecordnewlst (subst (cons 340 mslistobjname) (assoc 340 xrecordlst) xrecordlst))
;(entmod xrecordnewlst)
);end foreach
;);end foreach - wechslet duch alle Layouts, damit alle Papierbereich-Ansichtfenster erfasst werden können
);end defun
;----------
(msVPakttausch)