[求助]：请教高手指点--外摆线程序

pearce

经过我的一翻修改我的外摆线程序已经可以运行，但生成图形和要求相差较远，还请高人指点：
;主函数
(defun C:main()
;系统备                                                   
        (setq sblip ( getvar "blipmode" ) )
        (setq scmde ( getvar "cmdecho" ) )
        (setvar "blipmode" 0 )
        (setvar "cmdecho" 0 )                                            
;参数输入
        (setq r ( getreal " \n输入针齿套半径：" ))
        (setq q ( getreal " \n输入针齿中心圆半径：" ))
        (setq k ( getreal " \n输入短幅系数：" ))
        (setq b ( getint " \n输入针轮齿数：" ))
        (setq g ( getint " \n输入摆线轮齿数：" ))
        (setq d ( getreal " \n输入计算步长："))  
;参数转化
        (setq s 0.001)
        (setq s (* pi (/ s 180.0)))
        (setq d (* pi (/ d 180.0)))                                                
;寻找摆线上东方零度起点
        (setq  l (* q (- (sin s ) (* (/ k b )(sin (* b s))))))
        (setq  m (* q (- (cos s ) (* (/ k b )(cos (* b s))))))
        (setq  w (sqrt ( - (+ (expt k 2) 1) (* (* 2 (cos(* g s )))k))))
        (setq  o (/ (- (* k (sin (* b s))) (sin s)) w))
        (setq  p (/ (- (* (* -1 (cos(* b s )))k) (sin s )) w))
        (setq  x (+ l (* r o)))
        (setq  y (- m (* r p)))
        (setq  u (list x y ))                                             
;迭代循环绘制摆线轮廓上的点
        ( command  "pline"  u )
        (while (< s (+ (* 2 pi ) 0.001))
                  (setq  l (* q (- (sin s ) (* (/ k b )(sin (* b s))))))
                  (setq  m (* q (- (cos s ) (* (/ k b )(cos (* b s))))))
                  (setq  w (sqrt ( - (+ (expt k 2) 1) (* (* 2 (cos(* g s )))k))))
                  (setq  o (/ (- (* k (sin (* b s))) (sin s)) w))
                  (setq  p (/ (- (* (* -1 (cos(* b s )))k) (sin s )) w))
                  (setq  x (+ l (* r o)))
                  (setq  y (- m (* r p)))
                  (setq  u (list x y ))  
                (setq  s (+ s d))
                (command u)
        )                                                               
;两维面内的曲线光滑拟合
        (command "" "pedit" "last" "c" "")                             
;恢复系统原来状态                  
        (setvar "blipmode" sblip)
        (setvar "cmdecho" scmde)                                       
        (princ)
  )                                                                     
;程序结束

xyp1964

试试偶的“经典曲线”程序。