Z좌표가 맞지 않기 때문입니다.

다음 LISP으로 Z축을 0으로 바꾸면 Fillet 명령을 사용할 수 있습니다.

Support 폴더의 acad2000.lisp(AutoCAD 2002의 경우) 에 붙여넣기 하시고

AutoCAD를 재실행하시면 됩니다.

;/////////////////////////////////////////////////////////////////////;z값을 0으로 바꾸는 명령
;/////////////////////////////////////////////////////////////////////
(defun c:z0 (/ ss n k ptz en spt ept ptz sptx spty eptx epty)
(prompt “nCommand: 2D Entity…”)
(prompt “nZ값을 0으로 하고자하는 대상 선택-> “)
(setq ss (ssget))
(setq n (sslength ss))
(setq k 0)
(setq ptz 0)
(while (<= 1 n)
(setq en (ssname ss k))
(setq spt (cdr (assoc 10 (entget en))))
(if (/= spt nil)(progn
(setq sptx (car spt) spty (cadr spt))
(setq spt (list sptx spty ptz))
(entmod (subst (cons 10 spt) (assoc 10 (entget en))(entget en)))
))
(setq ept (cdr (assoc 11 (entget en))))
(if (/= ept nil)(progn
(setq eptx (car ept) epty (cadr ept))
(setq ept (list eptx epty ptz))
(entmod (subst (cons 11 ept) (assoc 11 (entget en))(entget en)))
))
(setq elept (cdr (assoc 38 (entget en))))
(if (/= elept nil)(progn
(entmod (subst (cons 38 0) (assoc 38 (entget en))(entget en)))
))
(setq n (- n 1))
(setq k (+ k 1))
)
(princ)
)
;/////////////////////////////////////////////////////////////////////