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

jianjian88

当我运行程序后，输入插入点，提示：错误:参数类型错误：numberp: nil   为什么？
9 K. M$ x, j- h+ a0 a) d我用autolisp编制绘向心球轴承的二维图形，程序如下：
0 ^4 b7 D0 j3 x6 N- i5 v(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 )
(setq d (getreal"\n 输入轴承外径"))
! N0 M2 b6 S4 B2 p0 s$ V(setq d1 (getreal"\n 输入轴承内径"))
(setq b (getreal"\n 输入轴承宽度"))
(if (> d 40)
(setq t1 1.5)               ;t1为绘制刨面线的线间距比例因子
(setq t2 0.7)
)
, w+ [3 V# D! k0 p& Y' i, ](setq a (/ (- d d1) 2.0) )     ;计算三个中间参数值
(setq fx1 (/ pi 2))
- J+ o3 s. }6 A3 A(setq fx2 (/ (* 3 pi) 2))
)
! T  C+ n: y$ x(setq p0 (getpoint"\n 输入图形插入点："))
(setq p1 (polar p0 fx1 (/ d 2.0)))
(setq p2 (polar p1 0 b))
" q( P( |  @9 D# ^9 I% A(setq pc1 (list (+ (car p0) (/ b 2.0)) (+ (cadr p0) (/ (- d a) 2.0))))
(setq pc2 (polar pc1 fx2 (- d a)))      
) T8 w" c) E# C3 U* b2 y4 r(setq p9 (polar pc1 (/ (* pi 11) 6) (/ a 4)))
# R4 `4 U4 g- A9 u8 d+ U# f' u! \(setq p8 (polar pc1 (/ (* pi 7) 6) (/ a 4)))
8 T; m2 R; d# t( j9 P5 d(setq p4 (polar pc1 (/ pi 6) (/ a 4)))
* l6 f( c  a. {2 R(setq p5 (polar pc1 (/ (* pi 5) 6) (/ a 4)))
(setq p3 (list (car p2) (cadr p4)))
- i' E2 q% y1 v4 e" z4 G+ C, E(setq p6 (list (car p1) (cadr p5)))
7 G4 w$ P) l: n8 L4 O( b' x(setq p7 (list (car p1) (cadr p8)))
6 E% X8 m2 P. o, B' f; K(setq p10 (list (car p2) (cadr p9)))
! R6 ]9 L8 k1 j/ G(setq p11 (polar p2 fx2 a))
% ?: W  l8 L- q5 o0 G0 U- H2 G(setq p12 (polar p1 fx2 a))
2 v1 F5 Q9 X! R  f( T- t(setq p13 (polar p0 fx2 (/ d1 2.0)))
5 O) [. M; ~$ E  k0 P(setq p14 (polar p13 0 b))
(setq p15 (polar p2 fx2 (/ d 2.0)))
(setq p16 (polar p15 0 b))

/ p% Z# n7 a( [! ^; f* v(nlayer)                                          ;调用层设置函数
, I  Y" L4 |! |& z% Z7 Q6 ^2 f+ n(command "zoom" "w" (polar p1 fx1 10) (polar p16 fx2 10))
2 q' |- d, Q8 G( n  S(command "layer" "s" 1 "")                        ；绘制轴承的上半部分
(command "pline" p1 p2 p3 p4 "")
" `0 D, F9 R1 h6 v(command "arc" p4 "ce" pc1 "a" 120)
(command "pline" p5 p6 p1 "")
3 g+ q2 I$ h9 F, Q(command "pline" p6 p7 p8 "")
(command "arc" p8 "ce" pc1 "a" 120)
(command "pline" p9 p10 p11 p12 p7 "")
* }. N" A4 e# {) C(command "pline" p3 p10 "")
(command "arc" p9 "ce" pc1 p4)
9 {! F% \, r& ]& R" E(command "arc" p5 "ce" pc1 p8)
(command "mirror" "w" p1 p11 "" p0 (polar p0 0 b) "")  ；镜像绘制轴承的下半部分
+ o* f/ Q0 f% Z/ j7 |9 l+ s(command "pline" p12 p13 "")
(command "pline" p11 p14 "")
(command "layer" "s" 0 "")
' b' w$ A" Y* ~(command "hatch" "ansi31" t1 "0" "w" p1 p3 "")         ；绘制剖面线
! @" h  d2 F: i* P# b4 F(command "hatch" "ansi31" t1 "90" "w" p7 p11 "")
(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 "")
, b- i9 m# H3 M+ ~! k. e(command "pline" (polar p0 pi 2) (polar p0 0 (+ b 2)) "") ；绘制轴承中心线
5 i; u$ \/ y4 x% g(command "pline" (polar pc1 fx1 (* 1.2 (/ a 4.0)))        ；绘制滚珠中心线
         (polar pc1 fx2 (* 1.2 (/ a 4.0))) "")
; |9 {9 W* r! x(command "pline" (polar pc1 pi (* 1.2 (/ a 4.0)))
         (polar pc1 0 (* 1.2 (/ a 4.0))) "")
: s& X- Y+ |7 x) N: u9 v) r/ S(command "pline" (polar pc2 fx1 (* 1.2 (/ a 4.0)))
. U$ O. _7 j5 @  Q         (polar pc2 fx2 (* 1.2 (/ a 4.0))) "")
8 y/ f8 l  Y+ |+ y% D(command "pline" (polar pc1 pi (* 1.2 (/ a 4.0)))
& f+ e5 g- b% W" ]9 o( x         (polar pc2 0 (* 1.2 (/ a 4.0))) "")
(command "zoom" "a")
(command "regen")
)
5 c6 x8 f; y+ W% s! F(defun nlayer ()
9 `# m. V: f) N1 S! v  x(command "layer" "n" 1 "c" 1 1 "1" "continuous" 1 "")
& p1 o; j1 U, f* E3 I' E) r0 n(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 "")
)
7 |9 d% V5 N& K& W7 T
( ]3 l" E  k5 v! d" k9 @[ 本帖最后由 jianjian88 于 2008-5-31 18:19 编辑 ]

bearxt

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

mitenickevin

(setq p5 (polar pc1 (/ (* pi 5) 6 (/ a 4)))    这个错误了，少了个“）”
  S* ]6 `1 d, j2 R5 Y1 N& @正确的应该是
4 j$ u0 n; V: K0 ]+ a3 L( z  ~  [(setq p5 (polar pc1 (/ (* pi 5) 6） (/ a 4)))

jianjian88

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