循环切换

Jack_PC · 发表于 2011-7-10 23:29:03

如何才能做到可以循环切换,例如:我按以下[绘制圆]和[绘制圆弧]为例不成功,请教高手指点!

(while
(progn
(initget "Cir Arc")
(setq kw(getkword "请输入绘制类型Cir Arc <Arc>:"))
  (if (= kw nil) (setq kw "Arc"))
   (cond ((= kw "Cir") (绘制圆))
            ((= kw "Arc") (绘制圆弧))
      ) 　
))

caoyin · 发表于 2011-7-11 00:00:13

1.说清楚，什么叫循环切换，切换到那
2.(progn ...)永远不会返回nil，while的退出机制在哪？

ljpnb · 发表于 2011-7-11 06:04:15

不知道是不是这个意思
(setq key T)
(setq en (entlast))
(while key
  (initget "Cir Arc")
  (setq kw (getkword "请输入绘制类型Cir Arc <Arc>:"))
  (if (= kw nil)
(setq kw "Arc")
  )
  (cond ((= kw "Cir") (绘制圆))
((= kw "Arc") (绘制圆弧))
  )
  (If (null (setq en (entnext en)))
(setq key nil)
  )
)

Jack_PC · 发表于 2011-7-11 18:20:46

本帖最后由 Jack_PC 于 2011-7-11 19:03 编辑

ljpnb 发表于 2011-7-11 06:04
不知道是不是这个意思
(setq key T)
(setq en (entlast))

谢谢各位! 需要知道的就是这个

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

[基础] 循环切换