[求助]关于动态拖拽右键退出问题？（献花至谢！）

xhq1954425 · 发表于 2009-4-11 04:39

本帖最后由作者于 2009-4-11 9:40:55 编辑

以前下载了一个本论坛一位高手的原程序如下：

在学习这个程序编制方法的过程中遇到一个问题不知如何处理，就是怎样控制在击右键时能正常退出来，并取消文字？

麻烦大家指点一下！谢谢！

;例2 拖拽一个文字。在文字左对齐的前提下，更新文字的插入点坐标可以使文字移动。
(defun c:cs(/ ENTD MOUSE PT)
(command "text" (cadr (setq mouse (grread T 5 0))) 300 0 "拖拽测试") ;在当前鼠标位置生;成一个文字，这里grread函数返回的是(5 鼠标坐标值)，因此我们用cadr函数把鼠标坐标值提取出;来做为文字插入点坐标
(command "zoom" "c" (cadr mouse) "2000")
(setq entd (entget (entlast))) ;取得文字的图元资料
(while (/= (car (setq mouse (grread mouse 5 0))) 3) ;点击左键退出循环，即退出拖拽状态
(setq pt (cadr mouse)) ;取得鼠标当前位置坐标
(setq entd (subst (cons 10 pt) (assoc 10 entd) entd)) ;替换文字插入点坐标
(entmod entd) ;更新文字数据
)
(princ) ;静默退出
)

caoyin · 发表于 2009-4-11 11:29

(defun C:TT (/ TAG A)
(setq TAG T)
(while TAG
    (princ "\n右键退出。")
    (setq A (grread nil 12 2))
    (if (member A '((11 0) (2 32) (2 13)))
        ;;(11 0) 右键
        ;;(2 32) 空格
        ;;(2 13) 回车
      (setq TAG nil)
    )
)
A
)

Saging · 发表于 2009-4-11 11:46

(defun c:cs()
(command "text" (cadr (setq mouse (grread t 5 0))) 300 0 "拖拽测试") ;在当前鼠标位置生;成一个文字，这里grread函数返回的是(5 鼠标坐标值)，因此我们用cadr函数把鼠标坐标值提取出;来做为文字插入点坐标
(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)) ;取得鼠标当前位置坐标
(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 · 发表于 2009-4-11 12:19

caoyin发表于2009-4-11 11:29:00 (if (member A '((11 0) (2 32) (2 13))) ;;(11 0) 右键 ;;(2 32) 空格 &nbs

为什么我的右键是这种形式??(25 XXX)

它的返回值跟什么东西有关??

carrot1983 · 发表于 2009-4-11 12:29

Saging发表于2009-4-11 12:19:00为什么我的右键是这种形式??(25 XXX)它的返回值跟什么东西有关??

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=72328

这个贴里面有12和25的原因~~~

xhq1954425 · 发表于 2009-4-11 12:48

感谢caoyin和Saging的帮助，再次表示谢意……！

Saging · 发表于 2009-4-11 12:53

谢谢 carrot1983

caoyin · 发表于 2009-4-11 13:23

返回值跟 grread 参数有关

xhq1954425 · 发表于 2009-4-11 15:51

本帖最后由作者于 2009-4-12 14:48:43 编辑

基本上弄会了。

账号		自动登录	找回密码
密码			注册