리습 수정 부탁 드릴께요

R14에서는 유용하게 썼던 리습입니다. 2002에서는 먹히지가 않네요..ㅠㅠ
에러 메세지만 뜨고..부탁 드릴께요.. 두개입니다…
(defun c:ED (/ sset ssl nsset temp
sslen unctr olderr s m_cmdecho
m_texteval start_day last_update pg_name
pg_ver ddedits_error
)
(setq start_day “1994. 8. 22.”
last_update “1994. 10. 12.”
pg_name “DDEDITS”
pg_ver “2.1”
)
(defun ddedits_error (s)
(setvar “cmdecho” m_cmdecho)
(setvar “texteval” m_texteval)
(if mouse
(menucmd “b=buttons7”)
(menucmd “b=buttons1”)
)
(if dokeaby
(menucmd “b=buttons6”)
)
(setq *error* olderr)
(princ)
)
(setq olderr *error*
*error* ddedits_error
)
(setq m_cmdecho (getvar “cmdecho”))
(setq m_texteval (getvar “texteval”))
(menucmd “b=buttons9”)
(setvar “cmdecho” 0)
(lc_logo)
(setq sset (ssget))
(lc_no_sel sset)
(setq ssl (sslength sset)
nsset (ssadd)
)
(while (> ssl 0)
(setq temp (ssname sset (setq ssl (1- ssl))))
(if (= (cdr (assoc 0 (entget temp))) “TEXT”)
(ssadd temp nsset)
)
)
(setq ssl (sslength nsset)
sset nsset
unctr 0
)
(print ssl)
(princ “text entities found. “)
(setq sslen (sslength sset))
(setvar “texteval” 1)
(while (> sslen 0)
(redraw (setq sn (ssname sset (setq sslen (1- sslen)))) 3)
(command “.ddedit” sn “”)
(redraw sn 1)
)
(setvar “cmdecho” m_cmdecho)
(setvar “texteval” m_texteval)
(if mouse
(menucmd “b=buttons7”)
(menucmd “b=buttons1”)
)
(if dokeaby
(menucmd “b=buttons6”)
)
(setq *error* olderr)
(princ)
)
——————————————————;;
(defun c:se(/ t p1 p2 e1)
(graphscr)
(setvar “plinewid” 0.0)
(setq t 1)
(command “ortho” “off”)
(setq p1 (getpoint “nStart point :”))
(setq p2 (getpoint p1 “nTo point :”))
(command “ortho” “off”)
(command “pline” p1 p2)
(while t (setq p2 (getpoint “nTo point :” p2)))
(command p2)
(if (= p2 nil) (setq t nil))
(setq e1 (entlast))
(command “pedit” e1 “f” “”)
(command “ortho” “on”)
(princ)
)