程序是否存在问题?

jackybridge

; This program is using for drawing a helix

　　(setq　b1　(getpoint　"请输入基点："))　　　

　　(setq　r　(getreal　"半径 r=："))

　　(setq　t1　(getreal　"节距 t1=："))

　　(setq　k　(getint　"段数 k=："))

　　(setq　n　(getint　"圈数 n=："))　

　　(setq　ta　(/　(*　2　3.14159)　k))

　　(setq　j1　(/　t1　k))

　　(setq　a　0)


        　　(setq　jj　0)

　　(setq　ii　0)

　　(command　"ucs"　"o"　b1)

　　(command　"3dpoly"　(list　r　0　0))

　　(repeat　n

　　(repeat　k

　　(setq　jj　(+　jj　1))

　　(setq　a　(+　ta　a))

　　(setq　x　(*　r　(cos　a)))

　　(setq　y　(*　r　(sin　a)))

　　(setq　z　(*　j1　jj))

　　(setq　p2　(list　x　y　z))

　　(command　p2)

　　)

　　(setq　ii　(+　ii　1))

　　(setq　z　(*　t1　ii))

　　)

　　(command　"" )
   这是一个圆柱螺旋线的程序,可是当我载入运行时却不能绘图,命令行有输入参数的提示,但输入以后就结束了 万分着急!!
  望那位老师对此程序作一修改,请多指教,多交流!我的E-MAIL:sonnigirl@163.com

mccad

jackybridge

我找到了,谢谢你的指点,希望以后能多多指教,不胜感激!