社区 › AutoLISP/Visual LISP 编程技术 › 讨论用grread动态时怎么输入实数

不死猫 发表于 2008-11-30 20:43:00

这个捕捉是grdraw 或是 grvecs生成的么?

露水2 发表于 2008-11-30 21:17:00

不死猫发表于2008-11-30 20:43:00static/image/common/back.gif这个捕捉是grdraw 或是 grvecs生成的么?

<p></p>grvecs

liminnet 发表于 2008-12-1 08:44:00

nonsmall 发表于 2008-12-1 08:51:00

<p>这样的话就只能用28楼那个传统的做法了</p><p>因为getreal必须要回车或空格才能下一步的</p>

liminnet 发表于 2008-12-1 09:09:00

露水2 发表于 2008-12-1 09:50:00

<p>干脆接着讨论捕捉吧</p><p>我是用 osnap 然后绘制捕捉模式符号</p>

wkq004 发表于 2016-1-23 11:49:57

本帖最后由 wkq004 于 2016-1-23 11:51 编辑

28楼zml84的

;;输入实数20081128zml84
(vl-load-com)
(defun c:tt ()
(setq      str "输入实数:"
      lst '()
)
(princ "\n")
(princ (strcat "\r" str))
(setq real nil)
(setq go T)
(while go
(setq tmp (grread t 1 1)
          mode (car tmp)
          val(cadr tmp)
    )
    (cond ((and      (= mode 2)
                (/= val 47)
                (<= 46 val 57)
         )
         (setq lst (cons val lst))
         (princ (strcat "\r"
                        str
                        (vl-list->string (reverse lst))
                        "               "
                  )
         )
          )
          ((and      (= mode 2)
                (or (= val 13) ;_回车键
                  (= val 32) ;_空格
                )
         )
         (if lst
             (progn
               (setq real (read (vl-list->string (reverse lst))))
;;;               (princ (strcat "\n" str (vl-list->string (reverse lst))))
               (setq lst '())
               (setq go nil)
             )
             (setq go nil)
         )
          )
          ((and      (= mode 2)
                (= val 8) ;_退格键
         )
         (setq lst (cdr lst))
         (princ (strcat "\r"
                        str
                        (vl-list->string (reverse lst))
                        "               "
                  )
         )
          )
    )
)
(princ "\n")
(princ real)
(princ)
)

wkq004 发表于 2016-1-23 11:59:09

查看完整版本: 讨论用grread动态时怎么输入实数