怎么让while自加数字一次隔一次实现?

sfzyr

又是个算法问题，编程最需要的就是有算法，论坛高手多多啊！

梦醒才知原是梦

学习中~~~~

sundy1020

mccad 发表于 2012-5-2 15:11
每次加0.5，再取整

是不是这样？ (setq b (fix (+ 0.5 b)))

功夫佬

搞一个对话窗口吧
、

caoyin

(defun c:ecn ()
   (setq b (getint "\n请输入三角内开始数字："))
       (setvar "cmdecho" 0)
  (setq TAG T)
   (while (setq a (getpoint "\n请输入基点："))
(progn
   (setvar "cmdecho" 0)
   (command "polygon" 3 a "c"  1.43 "")
   (command "text" "j" "mc" a 2.5 "" b )
  (if (setq TAG (not TAG))
       (setq b (1+ b))
     )
    )
   )
   
   )

chg

我的程序没有问题啊，我在我机子上运行，可以实现你的要求，不过第一个只有1个1，以后是2 2 3 3 ......，如果要两个1，可以改为一下：
(defun c:ecn ()
  (setq b (getint "\n请输入三角内开始数字："))
      (setvar "cmdecho" 0)
(setq i 0)
  (while (setq a (getpoint "\n请输入基点："))
(progn
  (setvar "cmdecho" 0)
  (command "polygon" 3 a "c"  1.43 "")
  (command "text" "j" "mc" a 2.5 "" b "")
  (if (= i 1)
  (setq i 0  b (1+ b))
   
        (setq i 1)
)
    )
   
  )
  
  )
曹版的程序和我的是一样的，只不过他的更容易理解，我是用0和1代表T和F。