(defun c:showcamera ()
(if (setq elem (ssget "_X" '((0 . "CAMERA"))))
   (progn
   (setq elem (entget(tblobjname"LAYER"(cdr(assoc 8 (entget(ssname elem 0)))))))
   (entmod
       (subst'(70 . 0)(assoc 70 elem)
          (subst(cons 62 (abs (cdr(assoc 62 elem))))(assoc 62 elem)elem)
       )
   )
   )
 (alert"keine Kamera in der Datei gefunden !")
)
)