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

jianjian88

当我运行程序后，输入插入点，提示：错误:参数类型错误：numberp: nil   为什么？
; c  h4 F, u' H: I我用autolisp编制绘向心球轴承的二维图形，程序如下：
$ U: E4 ?- f4 |. V! ?) D(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 )
: J& R: y' ?+ _: l& Y" M# Y( m(setq d (getreal"\n 输入轴承外径"))
(setq d1 (getreal"\n 输入轴承内径"))
% c, t( b4 p0 Z* T! _(setq b (getreal"\n 输入轴承宽度"))
(if (> d 40)
(setq t1 1.5)               ;t1为绘制刨面线的线间距比例因子
(setq t2 0.7)
! X% [# Y( H9 }2 U2 q' J0 b- c- D% u)
0 ]- W) ~3 d- o* o' G(setq a (/ (- d d1) 2.0) )     ;计算三个中间参数值
  m$ R0 v- }  I" |+ y(setq fx1 (/ pi 2))
: V. A! R( I# ]/ B/ j3 |5 @(setq fx2 (/ (* 3 pi) 2))
1 {% h  l: N: R7 a" s! ])
; ]& d4 ]# ?/ `; y) E! C' ^(setq p0 (getpoint"\n 输入图形插入点："))
(setq p1 (polar p0 fx1 (/ d 2.0)))
( P0 _/ Q& |) ^. i3 d, f(setq p2 (polar p1 0 b))
/ k3 j1 C; r6 @+ T7 J/ `! G, z7 V(setq pc1 (list (+ (car p0) (/ b 2.0)) (+ (cadr p0) (/ (- d a) 2.0))))
(setq pc2 (polar pc1 fx2 (- d a)))      
0 H$ J- b3 f! S9 w(setq p9 (polar pc1 (/ (* pi 11) 6) (/ a 4)))
(setq p8 (polar pc1 (/ (* pi 7) 6) (/ a 4)))
: O$ K) p6 u% l# ~' o1 t% m: Z9 g(setq p4 (polar pc1 (/ pi 6) (/ a 4)))
(setq p5 (polar pc1 (/ (* pi 5) 6) (/ a 4)))
: r; M5 d6 x7 p/ `9 P(setq p3 (list (car p2) (cadr p4)))
' t3 L/ v+ P" j# W(setq p6 (list (car p1) (cadr p5)))
; e! R5 j- H2 E, ^, k) _% k(setq p7 (list (car p1) (cadr p8)))
(setq p10 (list (car p2) (cadr p9)))
2 ~$ Z+ c' H$ c$ f(setq p11 (polar p2 fx2 a))
(setq p12 (polar p1 fx2 a))
+ _& h# y1 V+ N6 e1 N9 Z' j(setq p13 (polar p0 fx2 (/ d1 2.0)))
(setq p14 (polar p13 0 b))
! }5 ^2 ]6 {0 q0 P9 z3 V( k' ?(setq p15 (polar p2 fx2 (/ d 2.0)))
(setq p16 (polar p15 0 b))

# N( M- N& D. [2 e  \4 g(nlayer)                                          ;调用层设置函数
(command "zoom" "w" (polar p1 fx1 10) (polar p16 fx2 10))
# ?6 ?2 x$ W" j4 Y# A(command "layer" "s" 1 "")                        ；绘制轴承的上半部分
2 V) W' j  @3 e. d/ ?. j1 V- Z(command "pline" p1 p2 p3 p4 "")
. K9 G7 o# B" T2 c(command "arc" p4 "ce" pc1 "a" 120)
3 V' w8 X, r) n9 f7 S(command "pline" p5 p6 p1 "")
(command "pline" p6 p7 p8 "")
( f  X# x5 Q9 C$ U2 y3 n(command "arc" p8 "ce" pc1 "a" 120)
! r+ z8 D0 O" P. \! L2 k- m- P(command "pline" p9 p10 p11 p12 p7 "")
(command "pline" p3 p10 "")
(command "arc" p9 "ce" pc1 p4)
, W1 z: b' `- o' W(command "arc" p5 "ce" pc1 p8)
(command "mirror" "w" p1 p11 "" p0 (polar p0 0 b) "")  ；镜像绘制轴承的下半部分
9 P$ k/ o9 k* r6 k* m9 n4 V5 f$ {  h(command "pline" p12 p13 "")
7 W! _1 r5 a" X( G6 T(command "pline" p11 p14 "")
# R$ m1 x) Z1 e3 p! m(command "layer" "s" 0 "")
1 }7 ]2 H/ m: b5 c& J6 @/ W(command "hatch" "ansi31" t1 "0" "w" p1 p3 "")         ；绘制剖面线
* {! h3 C1 ]% F(command "hatch" "ansi31" t1 "90" "w" p7 p11 "")
(command "hatch" "ansi31" t1 "90" "w" p13 (polar p16 fx1 (/ a 2)) "")
6 s8 ]. ?+ C; Z0 w# @(command "hatch" "ansi31" t1 "0" "w" p15 (polar p16 fx1 (/ a 2)) "")
$ U0 \6 N  `) s& u/ ~( ?% D(command "layer" "s" 3 "")
(command "pline" (polar p0 pi 2) (polar p0 0 (+ b 2)) "") ；绘制轴承中心线
4 Q9 I9 ?/ n7 W6 w- s) i(command "pline" (polar pc1 fx1 (* 1.2 (/ a 4.0)))        ；绘制滚珠中心线
         (polar pc1 fx2 (* 1.2 (/ a 4.0))) "")
3 Y% E$ ]5 X+ ]: [(command "pline" (polar pc1 pi (* 1.2 (/ a 4.0)))
& m) A) u: [, p" |  _3 M/ j         (polar pc1 0 (* 1.2 (/ a 4.0))) "")
(command "pline" (polar pc2 fx1 (* 1.2 (/ a 4.0)))
/ g! H% s- W4 V  b         (polar pc2 fx2 (* 1.2 (/ a 4.0))) "")
: N4 Z1 i0 J, ](command "pline" (polar pc1 pi (* 1.2 (/ a 4.0)))
         (polar pc2 0 (* 1.2 (/ a 4.0))) "")
2 x! Z: r! K* X6 ^0 p(command "zoom" "a")
; `1 a1 R/ b/ k- @, U6 Y% @$ `2 W(command "regen")
2 u6 |4 ]9 q7 u  N( f)
. N! F- Q: g9 A# F- F(defun nlayer ()
. k- k% ^4 @  Y+ `' R) z. x(command "layer" "n" 1 "c" 1 1 "1" "continuous" 1 "")
(command "layer" "n" 2 "c" 2 2 "1" "dashed" 2 "")
(command "layer" "n" 3 "c" 3 3 "1" "center2" 3 "")
(command "layer" "n" 4 "c" 4 4 "1" "divide2" 4 "")
)
1 v' s) w+ P% Y: ]+ H" W- F
1 ]& V2 u1 U4 m& @% ~[ 本帖最后由 jianjian88 于 2008-5-31 18:19 编辑 ]

bearxt

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

mitenickevin

(setq p5 (polar pc1 (/ (* pi 5) 6 (/ a 4)))    这个错误了，少了个“）”
正确的应该是
0 _3 w% Z/ L2 D- ^( u(setq p5 (polar pc1 (/ (* pi 5) 6） (/ a 4)))

jianjian88

谢谢你能看完我的程序，指出我的错误。可是依然列表有缺陷。为什么呢？
请问Autolisp有没有查找错误的方法？谢！