Question

AUTOLISP写的画直齿轮的代码，运行总是提示错误: 参数类型错误: numberp: nil。哪位大侠帮忙给改一下啊。

小弟感激不尽！代码如下：
(setq phi 0)
(setq r rb)
(setq x (* rb (+ (cos phi) (* phi (sin phi))))) ;起点的x坐标
(setq y (* rb (- (sin phi) (* phi (cos phi))))) ;起点的y坐标
(command B"pline"(list x y));从基圆开始绘制齿廓
(while (< r ra) ;ra为齿顶圆半径
　　(setq phi (+ phi 0.01))
　　(setq x (* rb (+ (cos phi) (* phi (sin phi))))) ;任意点的x坐标
　　(setq y (* rb (- (sin phi) (* phi (cos phi))))) ;任意点的y坐标
　　(setq r (sqrt (+(* xx) (* y y)))) ;任意点的向径
　　(command (list x y))
)
　　(command"")
(setq p (list x y)) ;P为渐开线与齿顶圆的交点
(setq ckqx (ssget"L")) ;建立渐开线的选择集ckqx
(setq theta 0.0149044) ;theta为分度圆展角
(setq thetap (angle (list 0 0) p)) ;thetap为P点的方向角
(setq angf (/ (/ (* pi m) 2.) rf)) ;angf为分度圆齿厚的圆心角
(setq angfhalf (/ angf 2.)) ;angfhalf为分度圆半齿厚的圆心角
(setq thetap1 (+ angfhalf theta)) ;thetap1为P1点的方向角
(setq p1 (polar (list 0 0) thetap1 r)) ;p1为齿顶中点
(setq angb (+ angf (* 2 0.0149044))) ;angb为基圆齿厚的圆心角
(setq thetap2 (-angb thetap)) ;齿顶圆弧另一端点P2的方向角
(setq p2 (polar (list 0 0) thetap2 r))
(command"mirror"ckqx""(list 0 0) p1"") ;绘制另一侧渐开线
(command"arc"p p1 p2);画齿顶圆弧
(setq lcdm (ssget"L")) ;建立轮齿端面轮廓选择集
　(command"extrude"lcdm""h 0) ;将轮齿端面轮廓拉伸成一轮齿
　(setq lc (ssget"L")) ;建立轮齿选择集
　(command"circle"(list 0 0) rf) ;画齿根圆
　(setq ydm (ssget"L")) ;建立选择集
　(command"extrude"ydm""h 0) ;将齿根圆拉伸成圆柱
　(command"array"lc"""P"(list 0 0) z 360"y") ;阵列轮齿
　(command"vpoint"(list (-0 1) (-0 1) 1)) ;设置视点
　(command"hide") ;消隐
)

Answer 1

把关键的变量设为断点，看看是哪一步不对，再改过来就可以了

追问

可不可以帮忙改一下啊。初学者实在是找不出来。感激不尽！

追答

对不起,我也不是专业人士,帮不了你