错误:参数类型错误 为什么？

jianjian88

当我运行程序后，输入插入点，提示：错误:参数类型错误：numberp: nil   为什么？
我用autolisp编制绘向心球轴承的二维图形，程序如下：
' B& H# w& G5 ]0 T) m(defun c:zch1 (/ p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 pc1 pc2 a fx1 fx2 t1 )
: N  i. k- B2 v4 U, ^: [: T(setq d (getreal"\n 输入轴承外径"))
(setq d1 (getreal"\n 输入轴承内径"))
(setq b (getreal"\n 输入轴承宽度"))
* W' I$ }5 R# k8 u1 k, n4 k(if (> d 40)
(setq t1 1.5)               ;t1为绘制刨面线的线间距比例因子
1 v2 N/ \) L3 X& P& H$ I+ g (setq t2 0.7)
)
(setq a (/ (- d d1) 2.0) )     ;计算三个中间参数值
* |  b( r) C% S4 T9 M7 M(setq fx1 (/ pi 2))
8 Z% ?  V  l- ~: V(setq fx2 (/ (* 3 pi) 2))
# [0 e  M# U  g% S)
6 F/ \7 E6 Y( t# @; a' ~(setq p0 (getpoint"\n 输入图形插入点："))
6 ?7 S  ~8 y* M' v(setq p1 (polar p0 fx1 (/ d 2.0)))
(setq p2 (polar p1 0 b))
(setq pc1 (list (+ (car p0) (/ b 2.0)) (+ (cadr p0) (/ (- d a) 2.0))))
2 @1 W8 ~/ p" ^. A3 G(setq pc2 (polar pc1 fx2 (- d a)))      
(setq p9 (polar pc1 (/ (* pi 11) 6) (/ a 4)))
(setq p8 (polar pc1 (/ (* pi 7) 6) (/ a 4)))
(setq p4 (polar pc1 (/ pi 6) (/ a 4)))
/ c7 m7 t# c- I  K$ m& w! Y(setq p5 (polar pc1 (/ (* pi 5) 6) (/ a 4)))
(setq p3 (list (car p2) (cadr p4)))
( j" `5 H1 R6 u5 J8 N(setq p6 (list (car p1) (cadr p5)))
3 [" {1 `0 e: t! j(setq p7 (list (car p1) (cadr p8)))
(setq p10 (list (car p2) (cadr p9)))
2 P/ ?# w) J# j4 R7 ^9 n(setq p11 (polar p2 fx2 a))
(setq p12 (polar p1 fx2 a))
# Q% c3 y6 c, d  [5 a4 X3 Y" B7 `(setq p13 (polar p0 fx2 (/ d1 2.0)))
0 f  N! `+ C: A& K( i1 }3 H(setq p14 (polar p13 0 b))
% m5 Q2 C3 ^5 V/ x) e. w2 F(setq p15 (polar p2 fx2 (/ d 2.0)))
(setq p16 (polar p15 0 b))
$ Z3 w; A) r% y4 T
(nlayer)                                          ;调用层设置函数
+ X- _1 b3 d0 i+ a7 v( ^6 ^5 v7 g(command "zoom" "w" (polar p1 fx1 10) (polar p16 fx2 10))
& Z6 \$ E. T  z  V) ?(command "layer" "s" 1 "")                        ；绘制轴承的上半部分
(command "pline" p1 p2 p3 p4 "")
(command "arc" p4 "ce" pc1 "a" 120)
(command "pline" p5 p6 p1 "")
(command "pline" p6 p7 p8 "")
/ V/ o8 W+ B3 f' q0 J(command "arc" p8 "ce" pc1 "a" 120)
(command "pline" p9 p10 p11 p12 p7 "")
0 g8 s7 J  U$ G3 B3 U(command "pline" p3 p10 "")
(command "arc" p9 "ce" pc1 p4)
(command "arc" p5 "ce" pc1 p8)
(command "mirror" "w" p1 p11 "" p0 (polar p0 0 b) "")  ；镜像绘制轴承的下半部分
3 a- s* g0 ~3 B; }) j* n" ?(command "pline" p12 p13 "")
(command "pline" p11 p14 "")
+ W# ^6 ]& _7 M$ d(command "layer" "s" 0 "")
(command "hatch" "ansi31" t1 "0" "w" p1 p3 "")         ；绘制剖面线
(command "hatch" "ansi31" t1 "90" "w" p7 p11 "")
( T: G2 l2 Y' V- {" e+ z2 f0 n8 F, u* Y(command "hatch" "ansi31" t1 "90" "w" p13 (polar p16 fx1 (/ a 2)) "")
% b+ [) D5 g* H+ c) ?' @(command "hatch" "ansi31" t1 "0" "w" p15 (polar p16 fx1 (/ a 2)) "")
" j8 x7 @- _" Z4 V(command "layer" "s" 3 "")
8 i) U3 O8 L  v3 |( C(command "pline" (polar p0 pi 2) (polar p0 0 (+ b 2)) "") ；绘制轴承中心线
+ h4 f4 F# Y. g. O(command "pline" (polar pc1 fx1 (* 1.2 (/ a 4.0)))        ；绘制滚珠中心线
! j; n4 `6 z% @$ G4 u$ q         (polar pc1 fx2 (* 1.2 (/ a 4.0))) "")
(command "pline" (polar pc1 pi (* 1.2 (/ a 4.0)))
5 r# W  E& b0 ~! H! C" H         (polar pc1 0 (* 1.2 (/ a 4.0))) "")
6 e. m6 ~7 `+ B; a# B% `* h(command "pline" (polar pc2 fx1 (* 1.2 (/ a 4.0)))
3 `4 r: M4 i1 A. b" e; c         (polar pc2 fx2 (* 1.2 (/ a 4.0))) "")
(command "pline" (polar pc1 pi (* 1.2 (/ a 4.0)))
* f8 t4 B! [+ N/ G9 p2 z, P         (polar pc2 0 (* 1.2 (/ a 4.0))) "")
+ N- ]% K+ x4 |8 Y' t2 C(command "zoom" "a")
3 ^  k+ ^9 `4 h. b(command "regen")
/ C1 A/ H  ^; _/ t8 L6 s)
(defun nlayer ()
3 d5 m' A$ T4 m8 g(command "layer" "n" 1 "c" 1 1 "1" "continuous" 1 "")
(command "layer" "n" 2 "c" 2 2 "1" "dashed" 2 "")
6 D8 \% p6 V9 o  z# j+ }; A. r(command "layer" "n" 3 "c" 3 3 "1" "center2" 3 "")
(command "layer" "n" 4 "c" 4 4 "1" "divide2" 4 "")
" ~9 z! V/ r+ N5 y* d)

2 a1 a" |2 `5 W" A# Y[ 本帖最后由 jianjian88 于 2008-5-31 18:19 编辑 ]

bearxt

好复杂，没看懂啊！不好意思

mitenickevin

(setq p5 (polar pc1 (/ (* pi 5) 6 (/ a 4)))    这个错误了，少了个“）”
正确的应该是
(setq p5 (polar pc1 (/ (* pi 5) 6） (/ a 4)))

jianjian88

谢谢你能看完我的程序，指出我的错误。可是依然列表有缺陷。为什么呢？
( ]8 l! V0 o! L; L1 ]! E请问Autolisp有没有查找错误的方法？谢！