grread 的问题！

范建威 · 发表于 2014-10-25 18:09:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(setq st t)
(while (and st (setq get (grread 1 7 0)))
(cond
  ((= (car get) 5)
(progn
(setq pt1 (cadr get))
(print (list "敲击键盘" pt1))
(entmakex (list (cons 0 "CIRCLE") (cons 62 1) (cons 10 pt1) (cons 40 1.0)))
   )
  )
  ((= (car get) 3)
(progn
(setq pt2 (cadr get))
(princ (list "鼠标左键"(cadr get)))
(entmakex (list (cons 0 "CIRCLE") (cons 62 1) (cons 10 pt2) (cons 40 1.0)))
(setq st nil)
)
  )
)
)

为什么会无限生成圆！求解求帮助！！

XDSoft · 发表于 2014-10-25 18:35:38

发错论坛了，帮你移动到LISP论坛。

XDSoft · 发表于 2014-10-25 18:38:33

用 grread 搜索论坛。

绘制向量，在鼠标移位后，你要把原来的“抹除”，再画新的。

czx663 · 发表于 2014-10-25 18:46:21

第一个情况(= (car get) 5)时生成的没有处理掉

iLisp · 发表于 2014-10-25 21:21:45

5 是entmod 吧

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

[求助] grread 的问题！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。