请高人给检查一下，这个程序哪里出现错误，加载之后提示参数类型错误，numberp：nil

gprspda

(defun c:flx(/ p p0 p1 p2 p3 p4 p5 p6  v c h w r1 r2 b1 b2 b3 α e)
(setq v (getint"\n输入指示空速"))
(setq c (getint"\n输入与ISA的差值"))
(setq h (getint"\n输入高度（米）"))
(setq w (getint"\n输入风速"))
(setq p (getpoint"\n确定起始点"))
(setq α(getangle"\n输入转弯坡度角"))
(setq p0 (polar p 0 r1))
(setq t (/(* v 171233 (expt(-(+ 288 c) (* 0.006496 h))0.5))(expt(- 288 (* 0.006496 h))2.628))));真空速
(setq r2 (/(* 3431 (/(sin（* (/ α 180) pi))(cos((/ α 180) pi)))(* pi v)))
(if (> r2 3) (setq r2 "3"))
(setq r1 (/ v (* 20 pi r2)))
(setq e (/ w (* 40 r2)))
(setq p1 (polar p0 (/ pi 2) e))
(setq p2 (polar p0 0 e))
(setq p3 (polar p0 (/ (-pi) 2) e))
(setq b1 (expt(+(* r r)(* e e))0.5))
(setq b2 (+ r e))
(setq b3 (+ r (* 2 e)))
(setq p4 (polar p1 (/ pi 2) b1))
(setq p5 (polar p2 0 b2))
(setq p6 (polar p3 (/ (-pi) 2) b3))
(command "_arc" "c" p0 p4 p)
(command "_arc" "c" p0 p5 p4)
(command "_arc" "c" p0 p6 p5)   
(princ))

yjr111

问题有点多，也不懂你这个程序画什么，纯粹给你挑了挑一些看得见的毛病。。。。
(defun c:flx(/ p p0 p1 p2 p3 p4 p5 p6  v c h w r1 r2 b1 b2 b3 α e)
(setq v (getint"\n输入指示空速"))
(setq c (getint"\n输入与ISA的差值"))
(setq h (getint"\n输入高度（米）"))
(setq w (getint"\n输入风速"))
(setq p (getpoint"\n确定起始点"))
(setq α(getangle"\n输入转弯坡度角"))
  (setq r1 100);;要赋初值
(setq p0 (polar p 0 r1))
(setq t1 (/(* v 171233 (expt(-(+ 288 c) (* 0.006496 h))0.5))(expt(- 288 (* 0.006496 h))2.628)));真空速t改成t1
(setq r2 (/(* 3431 (/(sin(* (/ α 180) pi))(cos(/(/ α 180) pi)))) (* pi v)));;;sina后面的括弧要西文括弧
(if (> r2 3) (setq r2 3));;"3"不行
(setq r1 (/ v (* 20 pi r2)))
(setq e (/ w (* 40 r2)))
(setq p1 (polar p0 (/ pi 2) e))
(setq p2 (polar p0 0 e))
(setq p3 (polar p0 (/ (- pi) 2) e));;;-pi 改成- pi
(setq b1 (expt(+(* r1 r1)(* e e))0.5));;原文的r是哪来的
(setq b2 (+ r1 e))
(setq b3 (+ r1 (* 2 e)))
(setq p4 (polar p1 (/ pi 2) b1))
(setq p5 (polar p2 0 b2))
(setq p6 (polar p3 (/ (- pi) 2) b3));;;-pi 改成- pi
(command "_arc" "c" p0 p4 p)
(command "_arc" "c" p0 p5 p4)
(command "_arc" "c" p0 p6 p5)   
(princ))

gprspda

yjr111 发表于 2011-9-25 15:03
问题有点多，也不懂你这个程序画什么，纯粹给你挑了挑一些看得见的毛病。。。。
(defun c:flx(/ p p0 p1 p ...

你好，我把你指出的错误修改了一下，在加载的时候提示第一行列表输入有缺陷，这是什么原因？另外，程序里的r1是通过r2计算出来的，所以不能给r1赋值。

gprspda

yjr111 发表于 2011-9-25 15:03
问题有点多，也不懂你这个程序画什么，纯粹给你挑了挑一些看得见的毛病。。。。
(defun c:flx(/ p p0 p1 p ...

你好，我运行程序之后始终得不到需要的图形，这个网址是我作图的一些资料，可否帮我看一下，这个程序该如何写http://bbs.mjtd.com/thread-89475-1-1.html