[求助]：我写的一段lisp程序，使数字移动时数值随光标移动而变化

zhuqingmo

此程序要求鼠标移动时数字随着光标移动，数值也发生相应变化，点左键时确认数字位置和数值，做其他任何操作时都视为终止程序运行。终止时要求数字回归原位原值。这段测试程序基本能满足要求，但是在按esc键时，数字无法回归原位原值。而且会出现不想看到的“*error*，函数被取消”这样的错误信息。请问如何解决问题？

2. 
   
3. (defun c:test1 (/ LOOP_ID ename dxf1 dxf11 vptent pty ent)
   
4.   (SETQ LOOP_ID T)
   
5.   (setq ename (car (entsel "\select a text: ")))
   
6.   (setq dxf1 (assoc 1 (entget ename)))
   
7.   (setq dxf11 (assoc 11 (entget ename)))
   
8.   (while LOOP_ID
   
9.     (setq vptent (grread t 4 0))
   
10.     (cond ((and vptent (= (car vptent) 5))
    
11.            (progn
    
12.              (setq pty (rtos (cadadr vptent)))
    
13.              (setq ent (entget ename))
    
14.              (setq ent (subst (cons 1 pty) (assoc 1 ent) ent))
    
15.              (entmod ent)
    
16.              (setq ent (subst (cons 11 (cadr vptent)) (assoc 11 ent) ent))
    
17.              (entmod ent)
    
18.              (entupd ename)
    
19.            )
    
20.           )
    
21.           ((= 3 (CAR vptent)) (SETQ LOOP_ID NIL))
    
22.           (T
    
23.            (progn
    
24.              (SETQ LOOP_ID NIL)
    
25.              (setq ent (subst dxf1 (assoc 1 ent) ent))
    
26.              (entmod ent)
    
27.              (entupd ename)
    
28.              (setq ent (subst dxf11 (assoc 11 ent) ent))
    
29.              (entmod ent)
    
30.              (entupd ename)
    
31.            )
    
32. 
    
33.           )
    
34.     )
    
35.   )
    
36. 
    
37. )

<br /> (defun c:test1 (/ LOOP_ID ename dxf1 dxf11 vptent pty ent)<br />   (SETQ LOOP_ID T)<br />   (setq ename (car (entsel "\select a text: ")))<br />   (setq dxf1 (assoc 1 (entget ename)))<br />   (setq dxf11 (assoc 11 (entget ename)))<br />   (while LOOP_ID<br />     (setq vptent (grread t 4 0))<br />     (cond ((and vptent (= (car vptent) 5))<br />            (progn<br />              (setq pty (rtos (cadadr vptent)))<br />              (setq ent (entget ename))<br />              (setq ent (subst (cons 1 pty) (assoc 1 ent) ent))<br />              (entmod ent)<br />              (setq ent (subst (cons 11 (cadr vptent)) (assoc 11 ent) ent))<br />              (entmod ent)<br />              (entupd ename)<br />            )<br />           )<br />           ((= 3 (CAR vptent)) (SETQ LOOP_ID NIL))<br />           (T<br />            (progn<br />              (SETQ LOOP_ID NIL)<br />              (setq ent (subst dxf1 (assoc 1 ent) ent))<br />              (entmod ent)<br />              (entupd ename)<br />              (setq ent (subst dxf11 (assoc 11 ent) ent))<br />              (entmod ent)<br />              (entupd ename)<br />            )<br /> <br />           )<br />     )<br />   )<br /> <br /> )

P.M.F.

自定义一个*error*函数就好了。

(defun err(s)
  (setq ent (subst dxf1 (assoc 1 ent) ent))
  (entmod ent)
  (entupd ename)
  (setq ent (subst dxf11 (assoc 11 ent) ent))
  (entmod ent)
  (entupd ename)
  (setq *error* olderr)
)

然后在你的原来的程序的最开始加上下面的代码：
(setq olderr *error*
         *error* err)
在程序的最后加上下面的代码：
(setq *error* olderr)

另外还要把ent ename dxf1 dxf11改成全局变量

yshf

试试这个

2. (defun c:test1 (/ cmde olderr ename ent loop dxy vptent)
   
3.   (setq cmde (getvar "cmdecho") olderr *error*)
   
4.   (setvar "cmdecho" 0)
   
5.   (defun *error*(msg)
   
6.       (command "_undo" "b")
   
7.       (setq *error* olderr)(setvar "cmdecho" cmde)(princ)
   
8.   )
   
9.   (command "_undo" "m")
   
10.   (if (setq ename (entsel "\nselect a text:"))
    
11.       (if (= (cdr (assoc 0 (setq ent (entget (setq ename (car ename)))))) "TEXT")
    
12.           (progn
    
13.              (setq loop t
    
14.                    dxy  (mapcar '- (cdr (assoc 11 ent)) (cdr (assoc 10 ent)))
    
15.              )
    
16.              (while loop
    
17.                  (setq vptent (grread t 4 0))
    
18.                  (cond ((and vptent (= (car vptent) 5))
    
19.                             (setq ent (entget ename)
    
20.                                   ent (subst (cons 1 (rtos (cadadr vptent))) (assoc 1 ent) ent)
    
21.                                   ent (subst (cons 10 (cadr vptent)) (assoc 10 ent) ent)
    
22.                                   ent (subst (cons 11 (mapcar '+ dxy (cadr vptent))) (assoc 11 ent) ent)
    
23.                             )
    
24.                             (entmod ent)
    
25.                        )
    
26.                        ((= 3 (car vptent)) (setq loop nil))
    
27.                        (t  (setq loop nil) (command "_undo" "b"))
    
28.                 )
    
29.              )
    
30.           )
    
31.           (alert "所选择的图元不是单行文本！")
    
32.       )
    
33.       (alert "没有选取任何图元！")
    
34.   )
    
35.   (setq *error* olderr)(setvar "cmdecho" cmde)(princ)
    
36. )

(defun c:test1 (/ cmde olderr ename ent loop dxy vptent)<br />   (setq cmde (getvar "cmdecho") olderr *error*)<br />   (setvar "cmdecho" 0)<br />   (defun *error*(msg)<br />       (command "_undo" "b")<br />       (setq *error* olderr)(setvar "cmdecho" cmde)(princ)<br />   )<br />   (command "_undo" "m")<br />   (if (setq ename (entsel "\nselect a text:"))<br />       (if (= (cdr (assoc 0 (setq ent (entget (setq ename (car ename)))))) "TEXT")<br />           (progn<br />              (setq loop t<br />                    dxy  (mapcar '- (cdr (assoc 11 ent)) (cdr (assoc 10 ent)))<br />              )<br />              (while loop<br />                  (setq vptent (grread t 4 0))<br />                  (cond ((and vptent (= (car vptent) 5))<br />                             (setq ent (entget ename)<br />                                   ent (subst (cons 1 (rtos (cadadr vptent))) (assoc 1 ent) ent)<br />                                   ent (subst (cons 10 (cadr vptent)) (assoc 10 ent) ent)<br />                                   ent (subst (cons 11 (mapcar '+ dxy (cadr vptent))) (assoc 11 ent) ent)<br />                             )<br />                             (entmod ent)<br />                        )<br />                        ((= 3 (car vptent)) (setq loop nil))<br />                        (t  (setq loop nil) (command "_undo" "b"))<br />                 )<br />              )<br />           )<br />           (alert "所选择的图元不是单行文本！")<br />       )<br />       (alert "没有选取任何图元！")<br />   )<br />   (setq *error* olderr)(setvar "cmdecho" cmde)(princ)<br /> )

zhuqingmo

非常感谢，本人受益非浅。

小菜

在拖动过程中怎样从最初的起点拉一条皮筋线到当前光标位置呢？