[求助]关于grread函数疑惑？请帮忙看看，谢谢！

xhq1954425

在这个程序中，不用红色表示的那两句，右键可以正常退出，

要是用上了，右键将按出错退出，不知原因何在……？

请大家给指点一下，非常感谢！

(defun c:test()
(command "SHORTCUTMENU" 2 )
(command "text" (cadr (setq mouse (grread t 5 0))) 300 0 "拖拽测试") ;在当前鼠标位置生;成一个文字 
;(command "zoom" "c" (cadr mouse) "2000")
 
(setq entd (entget (entlast))) ;取得文字的图元资料
(setq mouse (grread mouse 7 0))
(while (= (car mouse) 5)  ;点击左键退出循环，即退出拖拽状态

(setq mouse (grread mouse 7 0))
(setq pt (cadr mouse)) ;取得鼠标当前位置坐标
 
 ;(setq ptx(car pt))
 ;(print ptx)
 
 (print (car mouse))
 
(if (= (car mouse) 25)
   (progn
     (princ "\n右键退出")
     (entdel (cdr(assoc -1 entd))))
   (progn
     (setq entd (subst (cons 10 pt) (assoc 10 entd) entd)) ;替换文字插入点坐标 
     (entmod entd);更新文字数据   
   )
))  
(princ) ;静默退出 
)

Saging

(if (or (= (car mouse) 25) (= (car mouse) 12));最好写成这样
   (progn
     (princ "\n右键退出")
     (entdel (cdr(assoc -1 entd))))
   (progn
      (setq ptx(car pt))
      (print ptx)
  
      (setq entd (subst (cons 10 pt) (assoc 10 entd) entd)) ;替换文字插入点坐标 
     (entmod entd);更新文字数据   
   )
)

应该这样，因为如果按鼠标右键所返回的mouse是这样的（25 xxx）而左键是(3 (x y z))所以如果是右键那（CADR （MOUSE））返回PT的是XXX，而不是表，再调用（CAR PT）就会失败。

xhq1954425

谢谢你的再次帮助，根据你的提示，我把那句改成：

(if (/= (car mouse) 25) (setq ptx(car pt)))就成了，非常感谢……

hyccai

谢！！！！

栗江涛

顶好人