lisp程序如何得到上一次的命令名称

wszxf

请问大哥：lisp如何才能取得前一个命令的名称，或如果取得输入过的CAD的命令列表。谢谢

danxingpen

(defun test( / lastcmdname)
  (vl-cmdf "")
  (setq lastcmdname(getvar "cmdnames"))
  (vl-cmdf)
  lastcmdname
)
;;只能作为函数,调用的程序估计也只能作为函数来使用了

wszxf

谢谢，不过这样好像不行。本这个提取的命令要用在当前lisp里使用的。里面 (vl-cmdf "")相当于执行了一次命令。这样不行。

chen10jing

由于不知道如何发表新帖子，暂发在这里，请求大家帮忙。

一个任意点延长的程序，希望能进行优化。
(defun C:kxyc (/ PT1 S0 S1 S2)
(setvar "CMDECHO" 0)
(if (setq PT1 (getpoint "\n指定点位: "))
(progn
;;
(command "_.xline" "h" "non" PT1 "")
(setq S0 (entlast))
(command "_.xline" "v" "non" PT1 "")
(setq S1 (entlast))
;;
(command "_.EXTEND" S0 S1 "")
(while (setq S2 (entsel "\n点取对象: "))
(command S2)
)
(command "")
(command "_erase" S0 S1 "")
)
)
(setvar "CMDECHO" 1)
(princ)
) ;_结束 defun

优化的目标：1、能实现框选功能；2、中途ESC退出时辅助边界能消除。
谢谢了！

不好意思啊，占了大家的位置。