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

jianjian88

当我运行程序后，输入插入点，提示：错误:参数类型错误：numberp: nil   为什么？
我用autolisp编制绘向心球轴承的二维图形，程序如下：
(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 )
2 _* `, }8 O" P6 k2 z- T  ^(setq d (getreal"\n 输入轴承外径"))
(setq d1 (getreal"\n 输入轴承内径"))
(setq b (getreal"\n 输入轴承宽度"))
(if (> d 40)
(setq t1 1.5)               ;t1为绘制刨面线的线间距比例因子
. f4 E7 O9 ~, y7 K9 z) Z8 p8 l' P4 K (setq t2 0.7)
)
(setq a (/ (- d d1) 2.0) )     ;计算三个中间参数值
& H0 a2 y+ M, X+ w5 }: ](setq fx1 (/ pi 2))
(setq fx2 (/ (* 3 pi) 2))
4 J: O+ H" J/ W$ K, d)
(setq p0 (getpoint"\n 输入图形插入点："))
' _5 g+ ]1 P# c(setq p1 (polar p0 fx1 (/ d 2.0)))
, c0 ]" T; i4 ^* k( D: Z(setq p2 (polar p1 0 b))
$ X! `/ m7 w0 b% K2 j& ~! T  F* W(setq pc1 (list (+ (car p0) (/ b 2.0)) (+ (cadr p0) (/ (- d a) 2.0))))
(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)))
0 e. G$ b. d6 D1 p  {5 G5 h(setq p4 (polar pc1 (/ pi 6) (/ a 4)))
(setq p5 (polar pc1 (/ (* pi 5) 6) (/ a 4)))
6 A$ m  v2 h/ t( q  `$ c(setq p3 (list (car p2) (cadr p4)))
(setq p6 (list (car p1) (cadr p5)))
; r/ b3 s" u! ]3 F5 j% F4 S" T# J(setq p7 (list (car p1) (cadr p8)))
9 R, k* D( f( K+ s8 O! D; Q(setq p10 (list (car p2) (cadr p9)))
; A/ V/ Y& D. E) A% [" M1 i, S) D(setq p11 (polar p2 fx2 a))
(setq p12 (polar p1 fx2 a))
6 t3 G; ^# r% E9 y% @. w/ B(setq p13 (polar p0 fx2 (/ d1 2.0)))
! F& a, x  D1 P5 |(setq p14 (polar p13 0 b))
(setq p15 (polar p2 fx2 (/ d 2.0)))
4 @, M  U* l- M; K$ p$ y2 x(setq p16 (polar p15 0 b))

7 J' m; W' U+ q4 D" z% y- d(nlayer)                                          ;调用层设置函数
(command "zoom" "w" (polar p1 fx1 10) (polar p16 fx2 10))
(command "layer" "s" 1 "")                        ；绘制轴承的上半部分
(command "pline" p1 p2 p3 p4 "")
(command "arc" p4 "ce" pc1 "a" 120)
(command "pline" p5 p6 p1 "")
4 T% E% \; [6 }7 l, @+ R; _(command "pline" p6 p7 p8 "")
8 D) k' K3 z' ^(command "arc" p8 "ce" pc1 "a" 120)
(command "pline" p9 p10 p11 p12 p7 "")
(command "pline" p3 p10 "")
(command "arc" p9 "ce" pc1 p4)
(command "arc" p5 "ce" pc1 p8)
+ ?6 F9 q6 a' m1 b. j1 M, ](command "mirror" "w" p1 p11 "" p0 (polar p0 0 b) "")  ；镜像绘制轴承的下半部分
(command "pline" p12 p13 "")
9 e4 o) p7 {- F) V  q$ Q3 L( U(command "pline" p11 p14 "")
5 `8 T8 q! L/ Z3 k9 \  }, D) I(command "layer" "s" 0 "")
  N/ \9 C' l, a! ?+ U(command "hatch" "ansi31" t1 "0" "w" p1 p3 "")         ；绘制剖面线
1 d* r( k; ~5 [' z/ `; b  z(command "hatch" "ansi31" t1 "90" "w" p7 p11 "")
(command "hatch" "ansi31" t1 "90" "w" p13 (polar p16 fx1 (/ a 2)) "")
" e) X! X$ z$ Z5 `2 q, J) T8 l(command "hatch" "ansi31" t1 "0" "w" p15 (polar p16 fx1 (/ a 2)) "")
7 O# D; e1 Z0 j' t; G: r(command "layer" "s" 3 "")
(command "pline" (polar p0 pi 2) (polar p0 0 (+ b 2)) "") ；绘制轴承中心线
(command "pline" (polar pc1 fx1 (* 1.2 (/ a 4.0)))        ；绘制滚珠中心线
         (polar pc1 fx2 (* 1.2 (/ a 4.0))) "")
(command "pline" (polar pc1 pi (* 1.2 (/ a 4.0)))
: e, p  t& a2 D. p         (polar pc1 0 (* 1.2 (/ a 4.0))) "")
(command "pline" (polar pc2 fx1 (* 1.2 (/ a 4.0)))
* J2 U  q" f. `: |$ ]: C7 B         (polar pc2 fx2 (* 1.2 (/ a 4.0))) "")
7 B0 a, k5 U) o(command "pline" (polar pc1 pi (* 1.2 (/ a 4.0)))
" F: N$ G$ _& A4 m/ y9 G5 F# v         (polar pc2 0 (* 1.2 (/ a 4.0))) "")
5 N0 ~, ^5 k5 [6 `9 N8 W# s(command "zoom" "a")
+ ]" L9 L: n! _0 E6 C9 g6 v(command "regen")
)
(defun nlayer ()
7 o* u6 @* E2 G: r(command "layer" "n" 1 "c" 1 1 "1" "continuous" 1 "")
, |9 L: P/ o/ {(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 "")
. Y, q2 k( M% v, A3 R% B- B)

[ 本帖最后由 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

谢谢你能看完我的程序，指出我的错误。可是依然列表有缺陷。为什么呢？
. B3 e# v8 {1 Z, E1 }% h请问Autolisp有没有查找错误的方法？谢！