参数错误 numberp:nil

朱贤明

朱贤明

#在这里快速回复#(defun zhoucheng (x0 y0 da d b k)   (setq d3 (+ (/ (- da d)2)d)) (setq p0 (list x0 y0)) (setq d4 (/ (- da d)4)) (setq p1 (polar p0 (/ pi 2) (/ d 2.0))) (setq p2 (polar p0 (/ pi 2) (/ d0 2.0))) (setq pc (polar p0 (/ pi 2) (/ d3 2.0))) (setq p5 (polar pc 0 (/ b 2.0))) (setq p10 (polar p5 (- 0 (* (/ pi 6) 5)) (/ d4 2.0))) (setq p8 (polar p5 (/ pi 6) (/ d4 2.0))) (setq p11 (polar pc (- 0 (/ pi 2)) (/ d4 4.0))) (setq p12 (polar p11 (/ pi 2) (/ d4 2.0))) (setq p9 (polar p10 (/ pi 2) (/ d4 2.0))) (setq p16 (polar p5 (/ pi 2) (/ d4 2.0))) (setq p18 (polar p5 (- 0 (/ pi 2))(/ d4 2.0))) (setq pc2 (polar p1 0 (/ b 2.0))) (setq pc3 (polar pc2 (/ pi 2) (/ (- da d)2.0))) (setq p3 (polar p2 0 b)) (setq pc4 (polar p0 0 b)) (setq po1 (polar pc3 (- 0 (/ pi 2)) 1)) (setq po2 (polar pc2 (/ pi 2) 1)) (setq po3 (polar pc3 (- 0 (/ pi 2))(- da 1))) (setq po4 (polar pc2 (- 0 (/ pi 2))(+ d 1))) (setq o1 (polar p5 0 (+ (/ d4 2.0) 1))) (setq o2 (polar p5 pi (+ (/ d4 2.0)1))) (setq o3 (polar p5 (/ pi 2) (+ (/ d4 2.0)1))) (setq o4 (polar p5 (- 0 (/ pi 2))(+ (/ d4 2.0) 1))) (setq o5 (polar p0 pi 5)) (setq o6 (polar p0 0 (+ 5 b))) (command "layer" "s" "center" "") (command "line" o1 o2 "") (command "line" o3 o4 "") (if (= k 1) (comand "line" o5 o6 "")) (command "layer" "s" "draw" "") (command "line" pc2 p1 p11 p10 "") (if (= k 1) (command "line" p0 p1 "")) (command "line" p11 p12 p9 "") (command "line" p12 p2 pc3 "") (command "mirror" "w" p0 pc3 "" pc2 pc3 "n") (command "circle" p5 (/ d4 2)) (command "mirror" "w"  p0 p3 "" p0 pc4 "n") (command "bhatch" "p" "ansi31" 1 0 po1 "") (command "bhatch" "p" "ansi31" 1 0 po2 "") (command "bhatch" "p" "ansi31" 1 0 po3 "") (command "bhatch" "p" "ansi31" 1 0 po4 "") (command) )

朱贤明

(defun zhoucheng (x0 y0 da d b k)
  (setq d3 (+ (/ (- da d)2)d))
(setq p0 (list x0 y0))
(setq d4 (/ (- da d)4))
(setq p1 (polar p0 (/ pi 2) (/ d 2.0)))
(setq p2 (polar p0 (/ pi 2) (/ d0 2.0)))
(setq pc (polar p0 (/ pi 2) (/ d3 2.0)))
(setq p5 (polar pc 0 (/ b 2.0)))
(setq p10 (polar p5 (- 0 (* (/ pi 6) 5)) (/ d4 2.0)))
(setq p8 (polar p5 (/ pi 6) (/ d4 2.0)))
(setq p11 (polar pc (- 0 (/ pi 2)) (/ d4 4.0)))
(setq p12 (polar p11 (/ pi 2) (/ d4 2.0)))
(setq p9 (polar p10 (/ pi 2) (/ d4 2.0)))
(setq p16 (polar p5 (/ pi 2) (/ d4 2.0)))
(setq p18 (polar p5 (- 0 (/ pi 2))(/ d4 2.0)))
(setq pc2 (polar p1 0 (/ b 2.0)))
(setq pc3 (polar pc2 (/ pi 2) (/ (- da d)2.0)))
(setq p3 (polar p2 0 b))
(setq pc4 (polar p0 0 b))
(setq po1 (polar pc3 (- 0 (/ pi 2)) 1))
(setq po2 (polar pc2 (/ pi 2) 1))
(setq po3 (polar pc3 (- 0 (/ pi 2))(- da 1)))
(setq po4 (polar pc2 (- 0 (/ pi 2))(+ d 1)))
(setq o1 (polar p5 0 (+ (/ d4 2.0) 1)))
(setq o2 (polar p5 pi (+ (/ d4 2.0)1)))
(setq o3 (polar p5 (/ pi 2) (+ (/ d4 2.0)1)))
(setq o4 (polar p5 (- 0 (/ pi 2))(+ (/ d4 2.0) 1)))
(setq o5 (polar p0 pi 5))
(setq o6 (polar p0 0 (+ 5 b)))
(command "layer" "s" "center" "")
(command "line" o1 o2 "")
(command "line" o3 o4 "")
(if (= k 1) (comand "line" o5 o6 ""))
(command "layer" "s" "draw" "")
(command "line" pc2 p1 p11 p10 "")
(if (= k 1) (command "line" p0 p1 ""))
(command "line" p11 p12 p9 "")
(command "line" p12 p2 pc3 "")
(command "mirror" "w" p0 pc3 "" pc2 pc3 "n")
(command "circle" p5 (/ d4 2))
(command "mirror" "w"  p0 p3 "" p0 pc4 "n")
(command "bhatch" "p" "ansi31" 1 0 po1 "")
(command "bhatch" "p" "ansi31" 1 0 po2 "")
(command "bhatch" "p" "ansi31" 1 0 po3 "")
(command "bhatch" "p" "ansi31" 1 0 po4 "")
(command)
)

朱贤明

请大家看看有什么问题

st788796

先关掉捕捉

朱贤明

st788796 发表于 2016-5-14 11:18
先关掉捕捉

关了，还是不行

st788796

(setq p2 (polar p0 (/ pi 2) (/ d0 2.0)))

d0 哪来的？