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

jianjian88

当我运行程序后，输入插入点，提示：错误:参数类型错误：numberp: nil   为什么？
2 d/ j7 ^; i$ G: C. R我用autolisp编制绘向心球轴承的二维图形，程序如下：
7 q6 w' l5 C7 ^  O2 J/ z(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 )
+ ?% Z( c4 G! v. z/ u7 ^* ^(setq d (getreal"\n 输入轴承外径"))
(setq d1 (getreal"\n 输入轴承内径"))
3 M: `0 o) u3 k4 f: c5 N6 s: U(setq b (getreal"\n 输入轴承宽度"))
( b) H) t' k8 O, X(if (> d 40)
0 Z7 `5 b2 {* s) G7 U3 m (setq t1 1.5)               ;t1为绘制刨面线的线间距比例因子
4 H2 C. u" |4 ?+ v& }. k (setq t2 0.7)
* f/ u3 y9 \+ B)
3 m& y8 C7 Y% [! _) ^- a(setq a (/ (- d d1) 2.0) )     ;计算三个中间参数值
. i  f# e: F& r. M(setq fx1 (/ pi 2))
% I! v, A! K& z* d8 W. x1 N1 z(setq fx2 (/ (* 3 pi) 2))
)
/ q8 ?/ T7 g3 a; T6 O(setq p0 (getpoint"\n 输入图形插入点："))
(setq p1 (polar p0 fx1 (/ d 2.0)))
  \! @; ?( L8 r+ M8 W4 [(setq p2 (polar p1 0 b))
(setq pc1 (list (+ (car p0) (/ b 2.0)) (+ (cadr p0) (/ (- d a) 2.0))))
( W2 p8 `4 r, P, T2 r, f) \(setq pc2 (polar pc1 fx2 (- d a)))      
(setq p9 (polar pc1 (/ (* pi 11) 6) (/ a 4)))
. C7 _! |7 T( d(setq p8 (polar pc1 (/ (* pi 7) 6) (/ a 4)))
(setq p4 (polar pc1 (/ pi 6) (/ a 4)))
- W) N7 G5 z; b/ r- o1 i  a# g8 O  ?2 N(setq p5 (polar pc1 (/ (* pi 5) 6) (/ a 4)))
1 o  g  y* A/ Z. [* B(setq p3 (list (car p2) (cadr p4)))
(setq p6 (list (car p1) (cadr p5)))
(setq p7 (list (car p1) (cadr p8)))
  m9 d) H2 R% H3 q" }& n3 k(setq p10 (list (car p2) (cadr p9)))
(setq p11 (polar p2 fx2 a))
' s2 P/ @1 j4 l( y2 Z' Y9 ^) `, T* q(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))

) m( f3 ~6 Z( F: G1 j* e1 {8 ?8 g(nlayer)                                          ;调用层设置函数
(command "zoom" "w" (polar p1 fx1 10) (polar p16 fx2 10))
# L7 t! S0 d: ^. R(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 "")
/ M8 Q6 p) k8 `1 S(command "arc" p8 "ce" pc1 "a" 120)
8 |6 Y8 t! x! _( G/ {(command "pline" p9 p10 p11 p12 p7 "")
/ q, ~, v  R+ H: `(command "pline" p3 p10 "")
(command "arc" p9 "ce" pc1 p4)
(command "arc" p5 "ce" pc1 p8)
7 r7 |! P8 y/ m% v' S" I* ~! S; a(command "mirror" "w" p1 p11 "" p0 (polar p0 0 b) "")  ；镜像绘制轴承的下半部分
9 e- u. S- P& T4 B& {  b" G* Q; ~* D; x3 |(command "pline" p12 p13 "")
(command "pline" p11 p14 "")
(command "layer" "s" 0 "")
5 H% p/ j: a4 K(command "hatch" "ansi31" t1 "0" "w" p1 p3 "")         ；绘制剖面线
- h" j. w3 ~. Z8 h; z; Z(command "hatch" "ansi31" t1 "90" "w" p7 p11 "")
(command "hatch" "ansi31" t1 "90" "w" p13 (polar p16 fx1 (/ a 2)) "")
1 L8 J7 p7 ?: s(command "hatch" "ansi31" t1 "0" "w" p15 (polar p16 fx1 (/ a 2)) "")
1 k) \% p# q& u; |(command "layer" "s" 3 "")
1 d; R; b1 D: m/ Q* _(command "pline" (polar p0 pi 2) (polar p0 0 (+ b 2)) "") ；绘制轴承中心线
0 T# u3 u! F' F- `: W: a" a(command "pline" (polar pc1 fx1 (* 1.2 (/ a 4.0)))        ；绘制滚珠中心线
         (polar pc1 fx2 (* 1.2 (/ a 4.0))) "")
1 ]& ?6 t0 ^+ C  P(command "pline" (polar pc1 pi (* 1.2 (/ a 4.0)))
  j) W9 r1 p' {6 c2 t         (polar pc1 0 (* 1.2 (/ a 4.0))) "")
(command "pline" (polar pc2 fx1 (* 1.2 (/ a 4.0)))
' z/ @) E$ e( ^& Q' _9 u3 J& [         (polar pc2 fx2 (* 1.2 (/ a 4.0))) "")
(command "pline" (polar pc1 pi (* 1.2 (/ a 4.0)))
- U" w& y5 n. c, _         (polar pc2 0 (* 1.2 (/ a 4.0))) "")
! A; H) [, g$ I2 G/ B(command "zoom" "a")
5 G% r1 j% n! P: e9 F(command "regen")
+ |" n" @; s/ k( S/ s6 h8 B)
  o5 r4 _" Q! u) B# m3 G(defun nlayer ()
) N- v- C5 ^  b) b8 q(command "layer" "n" 1 "c" 1 1 "1" "continuous" 1 "")
! S" L% b- m; X4 C% d(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 "")
9 f( o+ U3 r  _$ i)

; \$ g" P4 y' N7 o( {: }[ 本帖最后由 jianjian88 于 2008-5-31 18:19 编辑 ]

bearxt

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

mitenickevin

(setq p5 (polar pc1 (/ (* pi 5) 6 (/ a 4)))    这个错误了，少了个“）”
% S# F' [' g0 v% U, S# f7 g正确的应该是
& \3 c* r- `, U# y  J! r4 t(setq p5 (polar pc1 (/ (* pi 5) 6） (/ a 4)))

jianjian88

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