텍스트연속수정

 연속수정하는 리습을 사용중인데요..
 순서대로 찍은후에 창이 떠서 수정할수있게 할순 없을까요?
 전에 2002에서 작업할땐 창이 떠서 수정했었던것 같은데..
 2006이여서 안먹는건지.. 명령어 창에서 수정이 되네요..
 리습에서 수정해줘야하는건지 아시는분 부탁드려요~ 
 
 (defun c:FD (/ A B C D E)
  (prompt “nSelect text to edit: “)
  (setq A (ssget))
  (setq B (sslength A))
  (setq C 0)
  (while (<= 1 B)
    (setq D (ssname A C))
    (if (eq (cdr (assoc 0
      (entget D))) “TEXT”)
    (progn
    (redraw D 3)
    (prompt “nNew text string <“)
    (princ (cdr (assoc 1 (entget d))))
    (princ “>:”)
    (setq E (getstring T ))
    (if (= E “”)(setq E (cdr (assoc 1
      (entget D)))))
    (entmod (subst (cons 1 E)(assoc 1
      (entget D)) (entget D)))
    (redraw D 4)))
    (setq B (- B 1))
    (setq C (+ C 1))
  )
 (princ )
)