[求助]：undo问题

animal212

用pline画线时如果画错了用undo可以实现后退一步，而不是取消整条画的线。请问这样的程序用undo命令要怎么写？
需要用到这两行函数吗？
(command "._undo" "be")
(command "._undo" "_end")

gysjy

(setq p (getpoint "\n第一点:")   (command "pline" p)
  (while p
    (initget " U ")
    (cond
      ((eq p "U") (command "u"))
      (t ......)
    )
  )

颦颦

pline 的后退一步并不是UNDO/REDO的概念，而是该命令支持的特殊功能

animal212

gysjy ：
二楼的程序不能用啊，不知道是什么原理。能不能再修改下，或解释清楚点

gysjy

2. 
   
3.   [FONT=courier new]
   
4. (defun c:pline1( / lst p p1)
   
5.   (setvar "cmdecho" 0)
   
6.   (graphscr)
   
7.   (setq p (getpoint "\n第一点:") p1 p lst (cons p '()))
   
8.   (command "pline" p)
   
9.   (while p
   
10.     (initget "U C")
    
11.     (setq p (getpoint "\nC闭合/U回退/<下一点>:" p1))
    
12.     (cond
    
13.       ((eq p "U")(if (> (length lst) 1)
    
14.         (progn (setq lst (cdr lst) p1 (car lst))(command "u"))
    
15.         (princ "\n                                 **不能再回退!**"))
    
16.       )
    
17.       ((eq p "C")(command "c")(setq p nil))
    
18.       (t
    
19.         (if (= (type p) 'list)
    
20.           (progn
    
21.             (command p)
    
22.             (setq p1 p lst (cons p lst))
    
23.           )
    
24.           (command "")
    
25.         )
    
26.       )
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )
    
31.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:pline1( / lst p p1)<br />   (setvar "cmdecho" 0)<br />   (graphscr)<br />   (setq p (getpoint "\n第一点:") p1 p lst (cons p '()))<br />   (command "pline" p)<br />   (while p<br />     (initget "U C")<br />     (setq p (getpoint "\nC闭合/U回退/<下一点>:" p1))<br />     (cond<br />       ((eq p "U")(if (> (length lst) 1) <br />         (progn (setq lst (cdr lst) p1 (car lst))(command "u"))<br />         (princ "\n                                 **不能再回退!**"))<br />       )<br />       ((eq p "C")(command "c")(setq p nil))<br />       (t <br />         (if (= (type p) 'list)<br />           (progn <br />             (command p) <br />             (setq p1 p lst (cons p lst))<br />           )<br />           (command "")<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />   [/FONT]<br />

animal212

太棒了，谢谢gysjy 大师