이 리습좀 봐주세요… 부디…

어느 분께서 올려 주셨는데 사용이 되질 않네요…
되게만 해주시면 무지 감사하겠습니다….
글면 부디…. ㅜㅜ;

(defun C:DUD (/
ss_ent ans old_tvp old_tad new_tvp
)
(defun SETERR(s) ;릟툃 킕쒊엨鉀 몹톩
;If an error (CTRL-C) occurs when this command is active.
(if (/= s “Function cancelled”)
(if (= s “quit / exit abort”)
(princ “n*cancel*”)
(princ (strcat “nError ” s))
) ;of if
); of If
;Restore previous error handler
(setq *error* oer seterr nil)
(princ)
); of SETERR

(setq oer *error* *error* seterr)

(push-env)

(setq ss_ent (ssget)) ;DIM entityу?

(setq old_tvp (getvar “DIMTVP”)

old_tad (getvar “DIMTAD”))

(while (/= ss_ent nil)

(initget “Up Down”) ;
(setq ans (getkword “nUp/: “)) ; Up/Down у?
(if (= ans nil) (setq ans “Down”))
(cond
((= ans “Up”) (setq new_tvp 1)) ; UP/Down킕 쁝쏿 DIMTVP늯 ч몹
((= ans “Down”) (setq new_tvp -1))
) ;of cond

(setvar “DIMTAD” 0)
(setvar “DIMTVP” new_tvp)
(command “DIM1” “UPDATE” ss_ent “”)
(setvar “DIMTVP” old_tvp)
(setvar “DIMTAD” old_tad)
(setq ss_ent (ssget)) ;
) ;of while

(pop-env) ;
(princ)

(setq *error* oer seterr nil)

) ;of defun