;;;SUB zum auslesen des Auswahlsatz in Elementnamen	
(defun bau_elemli (asatz / n elemli)
  (setq n 0)
  (repeat (sslength asatz)
    (setq elemli(cons (ssname asatz n) elemli)
	  n (1+ n))
    )
  elemli
);defun



;;;FehlerSUB						
(defun myerr (s)
  (setq *error* alterr
	alterr nil)
  (princ (strcat "\narcn001 abgebrochen! - " s ))
);defun



;;;Hauptprogramm					
(defun c:arcn001 ( / obj)
  (command "_.undo" "_G")

  (setq	alterr *error*
	*error* myerr
        akt_cmdecho	(getvar "cmdecho")
        objli		(ssget "X" '((0 . "ARC")(210 0.0 0.0 -1.0)))
      )
  
  (if objli (setq objli (bau_elemli objli)))
       
  (mapcar '(lambda (X)
		(setq	obj (entget X)
			obj (subst '(210 0.0 0.0 1.0) (assoc 210 Obj) obj))
		(entmod obj)
	   );lambda
    	objli
  	);mapcar

 (ssget "_p")
  
 (command "_mirror" "_p" "" "0,0" "0,1" "_y")
 (command "_.undo" "_E")
 (setq *error* alterr)
 (setvar "cmdecho" akt_cmdecho)
);defun

;;;										;;;

(princ "\arcn001.lsp Aufruf mit \"arcn001\" ")
(princ)