请问个位大哥。这个程序该怎么改

乖乖猪 · 发表于 2003-12-2 22:15:00

我要编一个将椭圆转换为弧段。
写了两个程序，想合并一下，但这两个程序都错误的，又不知道哪里错了
各位大哥能帮我看一下吗
(dufun c:w1()
  (setvar "blipmode" 0)
  (setvar "cmdecho" 0)
(setq p0 (getpoint "p0=" ))
(setq a (getreal "长半径a="))
(setq b (getreal "短半径b="))
(setq alf 0 alfk(*5 0.0174533))
(setq p(list(+(car p0)a)(cadr p0)))
(while (=alf alfin)(=alf alfin)(= alf alfin)
            (<= alf alfed)
      )
(setq px (+ (car p0) (* a (cos alf))))
(setq py (+ (cadr p0) (* b (sin alf))))
(setq pk (list px py))
(command "pline" p pk "")
(setq p pk)
(setq alf (+ alf alfk))
  )
  (setvar "blipmode" 1)
  (setvar "cmdecho" 1)
)
犯的毛病都跟我以前都一样，比如丢字了，少参数，还有变量没有赋值使用。其实掉字最讨厌了。刚才第二个程序中有(set po(getpoint” p0=”))。这里set掉了q编译就出问题。往往我们没有想到会在这里出问题，真是要气死人的。尤其最后改回系统变量blipmode和cmdecho把值掉了。不过，不要担心，很快就会好的。因为熟悉了，犯这样错误的几率小了，而且自己也知道怎么找了。

请问个位大哥。这个程序该怎么改

发表回复

精选推荐