请求帮助

zhhui3297

我输入了一个简单程序，如下，运行后，提示“函数类型错误”，我检查了几遍检查不出来，程序是画一个键槽： defun c:jiancao(/ a b p0 r x0 xe ye ce p1 p2 p3)
(setq a (getreal "a=:"))
(setq b (getreal "b=:"))
(setq p0 (getpoint "enter stare point :"))
(set r (getreal "r=:"))
(setq x0 (car p0) y0 (cadr p0))
(setq xe (- x0 (/ a 2.0)))
(setq ye (+ y0 (sqrt (- (* r r) (* a a 0.25))
)
)
)
(setq ce (list xe ye))
(setq p1 (list (- x0 a) y0))
(setq p2 (list (-x0 a) (- y0 b)))
(setq p3 (list x0 (- y0 b)))
(command "pline" p0 "a" "ce" ce p1 "l" p2 p3 "c")
)

ZZXXQQ

2. (defun c:jiancao(/ a b p0 r x0 xe ye ce p1 p2 p3)
3.    (setq a (getreal "a=:"))
4.    (setq b (getreal "b=:"))
5.    (setq p0 (getpoint "enter stare point :"))
6.    (setq r (getreal "r=:"))
7.    (setq x0 (car p0) y0 (cadr p0))
8.    (setq xe (- x0 (/ a 2.0)))
9.    (setq ye (+ y0 (sqrt (- (* r r) (* a a 0.25))
10.                  )
11.              )
12.   )
13.   (setq ce (list xe ye))
14.   (setq p1 (list (- x0 a) y0))
15.   (setq p2 (list (- x0 a) (- y0 b)))
16.   (setq p3 (list x0 (- y0 b)))
17.   (command "pline" p0 "a" "ce" ce p1 "l" p2 p3 "c")
18. )

(defun c:jiancao(/ a b p0 r x0 xe ye ce p1 p2 p3)    (setq a (getreal "a=:"))    (setq b (getreal "b=:"))    (setq p0 (getpoint "enter stare point :"))    (setq r (getreal "r=:"))    (setq x0 (car p0) y0 (cadr p0))    (setq xe (- x0 (/ a 2.0)))    (setq ye (+ y0 (sqrt (- (* r r) (* a a 0.25))                  )              )   )   (setq ce (list xe ye))   (setq p1 (list (- x0 a) y0))   (setq p2 (list (- x0 a) (- y0 b)))   (setq p3 (list x0 (- y0 b)))   (command "pline" p0 "a" "ce" ce p1 "l" p2 p3 "c") )

zhhui3297

ZZXXQQ：how are you .


我看不出来错误何在？

ZZXXQQ

原程序第五行(set r (getreal "r="))


应改为(setq r (getreal "r="))；setq少写了字母q。


原程序第十四行(setq p2 (list (-x0 a) (- y0 b)))应改为


(setq p2 (list (- x0 a) (- y0 b)))；减号与x0之间要用空格。

zhhui3297

ZZXXQQ:How are you.


ok! thanks.