[求助]怎么样才能删除上一个程序所做的事情

robin43257 · 发表于 2003-5-5 18:16:00

请问怎么样才能删除上一个程序所做的事情
   我在程序的起始处使用(command "undo" "be") 在程序的未端(command "undo" "e")
我用下面的方法却不行。
　(defun c:useundo()
   (command "undo" "be")
   (setq ent1 (entsel"\n请选择一条线：")
　　 ( InitGet 7 "1 2 ")
   (setq M (getkword "\n请输入——红(1)/黑线(2): "))
         (cond ((= M "1") (setq CC 6))
               ((= M "2") (setq CC 3))
      )
(command "change" ent1 "" "p" "c" cc"" )
　　(command "undo" "e")
　　(princ)
　)

lcl2094 · 发表于 2003-5-5 19:31:00

在(command "undo" "e") 后面，再加一个(command "u"),试试吧！
我的竹叶：LCL的CAD世界！http://luocl-cad.myrice.com

[求助]怎么样才能删除上一个程序所做的事情

发表回复

精选推荐

浏览过的版块