新手关于UNDO的问题

ysq101

2. (defun c:1()
   
3. (setvar "cmdecho" 0)
   
4.    (command "")
   
5. (setq pt1 (getpoint"\n---->请输入文字起点:  "))
   
6. (setq txt (getstring"\n---->请输入文字内容:  "))
   
7. (entmake (list '(0 . "TEXT")(CONS 10 pt1) (CONS 40 2.5) (cons 1 txt)))
   
8.    
   
9. (princ)   
   
10.    )
    

(defun c:1()<br /> (setvar "cmdecho" 0)<br />    (command "")<br /> (setq pt1 (getpoint"\n---->请输入文字起点:  "))<br /> (setq txt (getstring"\n---->请输入文字内容:  "))<br /> (entmake (list '(0 . "TEXT")(CONS 10 pt1) (CONS 40 2.5) (cons 1 txt)))<br />    <br /> (princ)   <br />    )<br />

以上代码生成一行单行文字

问题来了:
我在运行完这段代码的时候输入U   回退的时候,会把我之前的一次操作也一起U掉了
当然,如果中间加个  (command "undo"  "b")     (command "undo"  "be")   的话就没有这样的问题

但是加了(command "undo"  "b")     (command "undo"  "be") 后
我在这段(setq txt (getstring"\n---->请输入文字内容:  "))  按了ECS之后(也是就是中断程序)
后面的 (command "undo"  "be")没被执行到,所以就没法按U回退
这样很麻烦

我知道可以加个错误处理,(新手只看了些资料,还没学会呢)但觉得这样很麻烦....哪位大神有更好的办法吗?  指点一下吧  谢谢了

newer

你说的都挺明白了，你只能把 (command "undo"  "be") 放到错误处理函数立面了，处理你按ESC时候。

eachy

加个包装

1. (defun c:tt ()
   
2.     (command "undo" "b")
   
3.     (vl-catch-all-apply
   
4.          (function
   
5.              (lambda ()
   
6.                 ;;以下为你的主程序
   
7.               
   
8.               )
   
9.            )
   
10.         )
    
11.         (command   "undo"  "end")
    
12.         (princ)
    
13. )
    

(defun c:tt ()<br />     (command "undo" "b")<br />     (vl-catch-all-apply <br />          (function<br />              (lambda ()<br />                 ;;以下为你的主程序<br />               <br />               )<br />            )<br />         )<br />         (command   "undo"  "end")<br />         (princ)<br /> )<br />

ysq101

newer 发表于 2013-8-24 23:49
你说的都挺明白了，你只能把 (command "undo"  "be") 放到错误处理函数立面了，处理你按ESC时候。

问题是还是看不懂有关于错误处理的用法~~~

ysq101

eachy 发表于 2013-8-25 07:00
加个包装

谢谢你的热心回答，
能说一下原理吗？

eachy

ysq101 发表于 2013-8-25 10:42
谢谢你的热心回答，
能说一下原理吗？

通俗说，lisp是逐句执行的，中断时后面的语句不再执行，这个catch内的语句可以理解为一句，但特殊的是catch内中断时，该句只返回错误，不中断整个程序，后面的语句继续执行

ysq101

eachy 发表于 2013-8-25 12:05
通俗说，lisp是逐句执行的，中断时后面的语句不再执行，这个catch内的语句可以理解为一句，但特殊的是c ...

有一点明白了...谢谢了啊~~~

ll_j

最简单的undo处理是最前面加一个“无聊”的command：

1. (defun c:1 ()
   
2.   (command "color" "")
   
3.   (setq pt1 (getpoint "\n---->请输入文字起点:  "))
   
4.   (setq txt (getstring "\n---->请输入文字内容:  "))
   
5.   (entmake (list '(0 . "TEXT")
   
6.                  (CONS 10 pt1)
   
7.                  (CONS 40 2.5)
   
8.                  (cons 1 txt)
   
9.            )
   
10.   )
    
11.   (princ)
    
12. )

(defun c:1 ()<br />   (command "color" "")<br />   (setq pt1 (getpoint "\n---->请输入文字起点:  "))<br />   (setq txt (getstring "\n---->请输入文字内容:  "))<br />   (entmake (list '(0 . "TEXT")<br />                  (CONS 10 pt1)<br />                  (CONS 40 2.5)<br />                  (cons 1 txt)<br />            )<br />   )<br />   (princ)<br /> )

wowan1314

ll_j 发表于 2013-8-25 13:18
最简单的undo处理是最前面加一个“无聊”的command：

我也是看了长老的文章才知道的。 你比我发的快了一步哈哈

2. (defun c:1()
   
3.     (setvar "cmdecho" 0)
   
4.     (command "_color" "")
   
5.     (setq pt1 (getpoint"\n---->请输入文字起点:  "))
   
6.     (setq txt (getstring"\n---->请输入文字内容:  "))
   
7.     (entmake (list '(0 . "TEXT")(cons 10 pt1) (cons 40 2.5) (cons 1 txt)))
   
8.     (princ)
   
9. )

(defun c:1() <br />     (setvar "cmdecho" 0)<br />     (command "_color" "")<br />     (setq pt1 (getpoint"\n---->请输入文字起点:  "))<br />     (setq txt (getstring"\n---->请输入文字内容:  "))<br />     (entmake (list '(0 . "TEXT")(cons 10 pt1) (cons 40 2.5) (cons 1 txt)))<br />     (princ)<br /> )

ysq101

ll_j 发表于 2013-8-25 13:18
最简单的undo处理是最前面加一个“无聊”的command：

• 
                                 
  登录/注册后可看大图
  (defun c:1()
  
• 
                                 
  登录/注册后可看大图
  (setvar "cmdecho" 0)
  
• 
                                 
  登录/注册后可看大图
     (command "")     
  
• 
                                 
  登录/注册后可看大图
  (setq pt1 (getpoint"\n---->请输入文字起点:  "))
  
  
  
  
  看清梦我第三行了吗？我是加了了个COMMAND的，只是我没有把“无聊”的命令加上去
  我记得我曾经在哪见过样的写法。。。只是没有加上实际命令加上去。。。。
  一句话，不懂就是不懂啊！！！！！
  谢谢长老指点!!!!
  
  

ysq101

wowan1314 发表于 2013-8-25 13:24
我也是看了长老的文章才知道的。 你比我发的快了一步哈哈

只能说你和长老是：英雄所见略同   {:soso_e113:}


高手就是高手啊~

ll_j

ysq101 发表于 2013-8-25 16:45

(defun c:1()

(setvar "cmdecho" 0)

其实你的第二行设置cmdecho的代码不应该出现在这里，或者说不应该这样出现。
多数情况下，我们都是设置cmdecho为0的，这样就应该有一个文件专门放置这些设置，比如我的acad.lsp的开头是这样：

1. (defun S::STARTUP()
   
2.   (setvar "cmdecho" 0)
   
3.   (defun *ERROR*(msg)
   
4.     (if msg
   
5.       (progn
   
6.         (princ "error:")
   
7.         (princ msg)
   
8.         (setvar "highlight" 1)
   
9.         (setvar "cmdecho" 0)
   
10.         (terpri)
    
11.       )
    
12.     )
    
13.   )
    
14.   (command "undefine" "end")
    
15.   (setvar "modemacro" "??")     ;可以在右下角显示一个提示词
    
16.   (gc)
    
17.   (princ)
    
18. )
    

(defun S::STARTUP()<br />   (setvar "cmdecho" 0)<br />   (defun *ERROR*(msg)<br />     (if msg<br />       (progn<br />         (princ "error:")<br />         (princ msg)<br />         (setvar "highlight" 1)<br />         (setvar "cmdecho" 0)<br />         (terpri)<br />       )<br />     )<br />   )<br />   (command "undefine" "end")<br />   (setvar "modemacro" "??")     ;可以在右下角显示一个提示词<br />   (gc)<br />   (princ)<br /> )<br />

这样，每次打开文件都自动设置cmdecho为0。
如果某个程序中需要对部分变量进行特别设计，应该在开始先保存变量，然后再设置，程序结束前（包括出错）进行恢复。

发一个“无聊”的命令是最简单的UNDO处理，一般在程序中没有其它使用command的情况下，命令虽无聊，但还是要“说清楚”的，但一个空回车输入是不行的。

st788796

一般都是写独立程序而且command也是尽量不用，对这个*error*就很少用，一般情况用catch包装，万不得以的时候才正常的定义myerr, 其实也可以用autodesk定义的*meerr*来自: Android客户端

ysq101

st788796 发表于 2013-8-25 17:59
一般都是写独立程序而且command也是尽量不用，对这个*error*就很少用，一般情况用catch包装，万不得以的时 ...

*error*   可是很人性化的，    毕竟不是你一个人在用这个LISP   
而且你不知道用户在什么时候会按ESC    所以弄个错误处理还是很有必要的
以上是新手的见解

ysq101

ll_j 发表于 2013-8-25 17:18
其实你的第二行设置cmdecho的代码不应该出现在这里，或者说不应该这样出现。
多数情况下，我们都是设置c ...

先谢谢你的热心回答



每次打开文件都自动设置cmdecho为0。  

像我这些常用COMMAND新手来说，有时候设置cmdecho为1  
会更方便找出程序的错误哦