[求助]：高手们帮忙看下以下源码，我想按空格键退出WHILE循环，不知怎么做

tjuzkj · 发表于 2009-4-28 16:17:11

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

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

×

(defun c:plgj ()
  (setq sn (entsel "\n选择文字"))
  (setq sb (car sn)
p1 (cadr sn)
      txtbasepoint (cdr (assoc 10 (entget sb)))
p2 t
i  1
  )
  (while (and (< i 9) p2)
(command "copy" sb "" txtbasepoint pause "")
      (setq txt (entlast)
      txt_list (entget txt)
   txtbasepoint (cdr (assoc 10 txt_list))
)
(setq sb txt)
(setq old_wbnr_list (assoc 1 txt_list))
(cond ((= i 1) (setq new_wbnr_list (cons 1 "DN25")))
   ((or (= i 3) (= i 2)) (setq new_wbnr_list (cons 1 "DN32")))
   ((= i 4) (setq new_wbnr_list (cons 1 "DN40")))
   ((and (>= i 5) (<= i 8))
   (setq new_wbnr_list (cons 1 "DN50"))
   )
)
(setq txt_list (subst new_wbnr_list old_wbnr_list txt_list))
(entmod txt_list)
(setq i (1+ i))
  )
)

Underway · 发表于 2009-4-28 17:46:39

(setq sn (entsel "\n选择文字"))

您给个调试用文件,才好选择文字呀

(SETQ EN (GRREAD T 1 0))
您这个 en 变量并未被使用, 有何作用?

tjuzkj · 发表于 2009-4-28 20:56:19

(SETQ EN (GRREAD T 1 0))已经删除.本来想在COPY命令中输入空格,来退出循环,就是没法实现.

Underway · 发表于 2009-4-29 08:17:46

还是没能厘清您的思路?
退出循环应是有解啦 ....

tjuzkj · 发表于 2009-4-29 09:05:29

我的思路是这样的，按上面的程序，必须循环八次才能退出。但是我有时候需要循环的次数小于八次，因此我想在达到需要循环的次数后，按空格键退出循环。

Underway · 发表于 2009-4-29 09:10:24

...达到需要循环的次数...
那么就在达到需要循环的次数后
(setq i 9) or (setq p2 nil)

tjuzkj · 发表于 2009-4-29 11:27:23

解决了，谢谢!

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

[求助] [求助]：高手们帮忙看下以下源码，我想按空格键退出WHILE循环，不知怎么做

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

相关帖子