[求助]如何简化LISP的“回车”操作？

dengken204

如何简化LISP的“回车”操作？
如附件所示意的LISP是网上找的，是用来改变文字的图层的。
但是每次使用的时候，选取源文字，再选取目标文字后，目标文字不能马上改变图层，必须等再按一次回车或者空格才能完成。
请问，应该如何做，才能简化操作，取消这个”回车“的步骤？


(defun c:tll (/ key ent1 el en n ss th val vt)
  (setq val 8);设置为图层匹配
  (prompt "\n当前匹配设置: 文字图层")
  (while (/= "TEXT" (cdr (assoc 0 en)))
    (initget "Set")
    (setq ent1 (entsel "\n选择源文字对象 :"))
    (if (= 'STR (type ent1))
      (progn  
        (initget " L ")
        (setq key (getkword))
        (cond
          ((= key "L") (setq val 8 vt "文字图层"))
          (t (setq val 1 vt "文字内容"))
        );;;end cond
        ;;;(setq ent1 nil)
        (prompt (strcat "\n当前匹配设置: " vt))
      );;;end progn
      (if ent1 (setq en (entget (car ent1))))
    );;;end if
  );;;end while
  ;;;(setq en (entget ent1))
  (setq th (cdr (assoc val en)))
  (prompt "\n点取要修改的文字:")
  (setq ss (ssget '((0 . "TEXT"))))
  (if ss
    (progn
      (setq n 0)
      (command "undo" "group")
      (while (< n (sslength ss))
        (setq el (entget (ssname ss n)))
        (entmod
          (subst
            (cons (car (assoc val el)) th)
            (assoc val el)
            el
          )
        )
        (setq n (1+ n))
      );;;end while
      (command "undo" "end")
      (prompt "\n匹配成功！（CS制作）")
      (princ)
    );;;end progn
    (progn
      (prompt "\n没有选到任何文本,退出！")
      (princ)
    )
  );;;end if
)

sailorcwx

把
(setq ss (ssget '((0 . "TEXT"))))
改成
(setq ss (ssget ":S" '((0 . "TEXT"))))

dengken204

sailorcwx发表于2008-7-8 19:33:00把(setq ss (ssget '((0 . \"TEXT\"))))改成(setq ss (ssget \":S\" '((0 . \"TEXT\"))))

sailorcwx兄的修改，是使得每次选取源文字后，只能匹配一个文字图层，我是希望能够想MASSPROP命令一样，可以连续匹配特性。

也就是说，运行一次命令，可以连续匹配多个文字，而选择每个文字的过程中，都无需按回车

sailorcwx

那你加一个循环咯