[求助]求高手，一个自动加前后缀程序

晓雨

有没有高手知道这个问题啊？

“还有一个小问题：为什么我执行这个命令以后，当我撤消这一个命令时，也就是“Ctrl+Z”，却把这个命令之前的命令也撤消了？”

ZZXXQQ

在程序开头defun后加一行：(command ".UNDO" "BE")
未尾闭括弧前加一行：(command ".UNDO" "E")

弱水三千

我的程序(defun c:m0()
;;;  (command "mspace")
  (VL-LOAD-COM)
  (setq ename (car (entsel "\nPick a object:")))
  (setq e1 (vlax-ename->vla-object ename))
想选择一个已经画好的实体然后对其进行切层操作，加载运行后出现
Pick a object:; 错误: 参数类型错误: lentityp #<VLA-OBJECT IAcad3DSolid 18f22ed4>
这是怎么回事？能帮帮我吗？