그렇군요.
자료 연구해 보겠습니다.

Z값 0으로 마추니까 가공 되는데요

요거 리습 써보세요

좋아용

(defun c:zz ( / ss a)
 (mapcar '(lambda (x)
  ((lambda (a)
   ((lambda (b c d e f)
    (if (= (cadddr b) -1)
     (progn    
      (setq a (entmod (subst (cons 210 '(0.0 0.0 1.0)) b a)))
      (setq a (entmod (subst (cons 10 (cons (* (cadr c) -1) (cddr c))) c a)))
      (if (= (cdr (assoc 0 a)) "ARC")
       (progn      
        (setq a (entmod (subst (cons 50 (* (+ (cdr e) f) -1)) d a)))
        (setq a (entmod (subst (cons 51 (* (+ (cdr d) f) -1)) e a)))
       )
      )
     )
    )
   )
   (assoc 210 a) (assoc 10 a) (assoc 50 a) (assoc 51 a) (* pi (/ 180 180.0))))
  (entget x)))
 (vl-remove-if 'listp (mapcar 'cadr (ssnamex (if (not (setq ss (ssget '((0 . "CIRCLE,ARC"))))) (exit) ss)))))
 (princ)
)