돌출 없애고 싶어요..

;;======================================================================
; 돌출방향 되돌리기(2007.5.29 주말농부)
; -> db210 돌출방향을 바꿔줌
;;———————————————————————-
(defun c:q(/ os cm ss ssn k en ed db210);q가 명령어,변경후 사용
(setq os (getvar “osmode”) cm (getvar “cmdecho”))
(prompt ” 돌출방향을 되돌림…”)
(setq ss (ssget ))
(if ss (progn
(setvar “osmode” 0) (setvar “cmdecho” 0)
(setq k 0 ssn (sslength ss))
(repeat ssn
(setq en (ssname ss k) ed (entget en) db210 (cdr (assoc 210 ed)) )
(if (< (caddr db210) 0.0)(progn
(setq db210 (list (car db210) (cadr db210) (abs (caddr db210)))
ed (subst (cons 210 db210) (assoc 210 ed) ed) )
(entmod ed)
(command “mirror” en “” “0,0” “0,100” “y”)
) )
(setq k (+ k 1))
)
(setvar “osmode” os)
(setvar “cmdecho” cm)
))
(prin1))

출처 : http://cafe.daum.net/archimore
만든이 : 아키모아 ezqcad 주말농부님.

파일을 받아서… appload 로 파일을 올린뒤…명령어…q 엔터 객체선택 엔터 하시면 됩니다..appload 하는 방법은..tip&tech 에 자세히 나와있습니다.

좀 틀리군염..해당 리습으로는 안될겁니다… 다른경우라서..

그래서 방금 하나 만들었습니다..

아래 리습 실행후..li 로 찍어보시면…ucs돌출방향이 없어졌을겁니다.

(defun c:asd(/ ss k ed x210)
(setq ss (ssget))
(setq k 0)
(repeat (sslength ss)
(setq ed (entget (ssname ss k)))
(setq x210 (list 0 0 1))
(entmod (subst (cons 210 x210) (assoc 210 ed) ed))
(setq k (1+ k))
)
(princ)
)