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

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 )
% G5 r: K' H, \, \; M8 A5 K(setq d (getreal"\n 输入轴承外径"))
(setq d1 (getreal"\n 输入轴承内径"))
. N/ b; \3 T: ?6 i(setq b (getreal"\n 输入轴承宽度"))
4 q7 M5 b1 W( h# p% K, u(if (> d 40)
/ l) F% k0 h1 T, B: M' I6 f5 q (setq t1 1.5)               ;t1为绘制刨面线的线间距比例因子
! g( x" g' c: N7 n# X (setq t2 0.7)
)
& p: V4 z5 R$ H(setq a (/ (- d d1) 2.0) )     ;计算三个中间参数值
(setq fx1 (/ pi 2))
$ Z8 e- ^. r2 h(setq fx2 (/ (* 3 pi) 2))
)
+ y! z9 i4 s6 g+ c! M(setq p0 (getpoint"\n 输入图形插入点："))
6 }4 i3 @! Z' k(setq p1 (polar p0 fx1 (/ d 2.0)))
(setq p2 (polar p1 0 b))
' }0 ], S( y0 ~4 j(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)))
6 m5 S# w0 G; c(setq p4 (polar pc1 (/ pi 6) (/ a 4)))
0 a7 ^9 a5 g) p; C- p! @, c(setq p5 (polar pc1 (/ (* pi 5) 6) (/ a 4)))
( V, Q# e7 q/ U: f& \(setq p3 (list (car p2) (cadr p4)))
(setq p6 (list (car p1) (cadr p5)))
& S1 c' {0 `  t% A4 I6 V(setq p7 (list (car p1) (cadr p8)))
/ A' @8 C% f7 T  v7 j. P1 H(setq p10 (list (car p2) (cadr p9)))
1 [6 g' @2 z7 _: m. `(setq p11 (polar p2 fx2 a))
- |$ u) T  j3 g. N: t3 \7 Z(setq p12 (polar p1 fx2 a))
(setq p13 (polar p0 fx2 (/ d1 2.0)))
(setq p14 (polar p13 0 b))
(setq p15 (polar p2 fx2 (/ d 2.0)))
(setq p16 (polar p15 0 b))
% |3 }4 d) I- L7 A
(nlayer)                                          ;调用层设置函数
, i, Z- S2 ], b2 A8 y(command "zoom" "w" (polar p1 fx1 10) (polar p16 fx2 10))
. c4 Q9 Y( B! l! @# G" f' _(command "layer" "s" 1 "")                        ；绘制轴承的上半部分
(command "pline" p1 p2 p3 p4 "")
8 ^' g' {" Q9 T+ x(command "arc" p4 "ce" pc1 "a" 120)
' y& ?, j& N$ F% W( Q! ]: J: G(command "pline" p5 p6 p1 "")
(command "pline" p6 p7 p8 "")
; }/ G4 C) ]3 s; r4 W! J" G7 @(command "arc" p8 "ce" pc1 "a" 120)
  g! X# T: V$ M; Z& c(command "pline" p9 p10 p11 p12 p7 "")
(command "pline" p3 p10 "")
7 f0 H+ m# e  \' R" F/ j5 \(command "arc" p9 "ce" pc1 p4)
$ Z, J  P* y, C2 m: d& L5 h. T(command "arc" p5 "ce" pc1 p8)
(command "mirror" "w" p1 p11 "" p0 (polar p0 0 b) "")  ；镜像绘制轴承的下半部分
6 ~$ H, l& p( y- v9 G, `(command "pline" p12 p13 "")
1 D5 Z4 L) y1 N% b  H2 l(command "pline" p11 p14 "")
  i2 t. M4 M8 X! h(command "layer" "s" 0 "")
! V; T8 }0 |( D( ]& r) L(command "hatch" "ansi31" t1 "0" "w" p1 p3 "")         ；绘制剖面线
7 n  ~+ b& T) s. e) m6 D(command "hatch" "ansi31" t1 "90" "w" p7 p11 "")
& a6 ~: t! O" R: O(command "hatch" "ansi31" t1 "90" "w" p13 (polar p16 fx1 (/ a 2)) "")
(command "hatch" "ansi31" t1 "0" "w" p15 (polar p16 fx1 (/ a 2)) "")
(command "layer" "s" 3 "")
. }) ~# p& p2 H! ?(command "pline" (polar p0 pi 2) (polar p0 0 (+ b 2)) "") ；绘制轴承中心线
! s+ M) {: V, ?4 W( `9 v+ ^$ @(command "pline" (polar pc1 fx1 (* 1.2 (/ a 4.0)))        ；绘制滚珠中心线
. P! ]4 A/ ]( J# D( J: R6 @6 |, K         (polar pc1 fx2 (* 1.2 (/ a 4.0))) "")
/ ^( b9 @1 t& q1 G# j" t(command "pline" (polar pc1 pi (* 1.2 (/ a 4.0)))
         (polar pc1 0 (* 1.2 (/ a 4.0))) "")
(command "pline" (polar pc2 fx1 (* 1.2 (/ a 4.0)))
         (polar pc2 fx2 (* 1.2 (/ a 4.0))) "")
3 V, ^  C' h& {$ p$ n(command "pline" (polar pc1 pi (* 1.2 (/ a 4.0)))
         (polar pc2 0 (* 1.2 (/ a 4.0))) "")
0 T! `% M0 M6 t(command "zoom" "a")
(command "regen")
)
0 `3 J5 L$ b  @. J5 @, ]. A(defun nlayer ()
) S( @! J9 {1 o( F1 [" A* I(command "layer" "n" 1 "c" 1 1 "1" "continuous" 1 "")
5 U5 C; B/ U) V) [(command "layer" "n" 2 "c" 2 2 "1" "dashed" 2 "")
' v! H4 K3 z+ J: c(command "layer" "n" 3 "c" 3 3 "1" "center2" 3 "")
(command "layer" "n" 4 "c" 4 4 "1" "divide2" 4 "")
)
0 Y, d+ W8 d6 P; s2 C% J$ P- Z
[ 本帖最后由 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

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