这个程序哪错啦？

jiaochen1988

(defunc:luoxian
  (/)
  (setq b1(getpoint"指定螺旋线基点: "))
  (setq r(getreal"请输入螺纹平均半径: "))
$ d& i9 \% z5 \# z) R  (setq disp(getreal"请输入螺纹节距: "))
% d! C& \- q. v) l4 \8 e0 X" |  (setq n(getint"请输入每圈细化数:"))
/ v8 q; B, |- s9 k8 y& p  (setq delta(/(*2.0 pi)n))
' N. Z. Q! f2 o$ Q  (setq j(/disp n))
& K5 Z8 P7 S) T  e% V- S" \. o/ x  (setq bb(caddr b1))
& _; u6 J; [- U! M% u0 u% Y  (setq and 0)
  (setq jj 0)
, ]5 N0 b# ~- o1 J0 A  (command "ucs" "0" b1)
8 X' f; F8 h( r  (command "3dpoly"(list r 0 0))
$ h1 e5 Q( L! \  (repeat n
0 B# S7 `" Q3 J. t! Q" ~% s) ?0 F    (setq jj (+jj))
+ F6 i. A) N6 ^# B: }4 ?6 y$ A9 d" O    (setq ang(+delta ang))
' A. ?% V; {1 N    (setq pt2(list(*r(cos ang))(*r(sin ang))(+0*(j jj))))
    (command pt2)
3 B! b2 L! G  [4 }    )
  (command"")
  )我编完后保存到桌面，然后直接关闭了lisp窗口，再把螺线加载后再返回cad中，在命令行输入luoxian但电脑不承认？？？

Camello

(defunc:luoxian(/)
  (setq b1 (getpoint "指定螺旋線基點: "))
( L6 s5 U$ O$ c; Y* M& i( Y  (setq r (getreal "請輸入螺紋平均半徑: "))
) Z, o& Q! {/ E: Y" \9 g3 J# t: ^  (setq disp (getreal "請輸入螺紋節距: "))
; H0 M. @$ p8 ^1 o! }1 ?  (setq n (getint "請輸入每圈細化數:"))
- j( ^- O; H5 _  (setq delta (/ (* 2.0 pi) n))
9 p4 m" C; _) z. @# A4 r  (setq j (/ disp n))
, [- N: H' d; y3 S  (setq bb (caddr b1))
4 D; d/ V. Q0 f* D7 u  (setq and 0)
2 C- B+ A  Q( m, q) p  (setq jj 0)
* y% B+ r9 ]$ t# h5 c$ G! N  (command "ucs" "0" b1)
  (command "3dpoly" (list r 0 0))
4 |9 T0 `* L/ B0 O2 A% ^  (repeat n
    (setq jj (+ jj))
    (setq ang (+ delta ang))
) K9 y: I% U9 J7 b- ~" x- x    (setq pt2 (list (* r (cos ang)) (* r (sin ang)) (+ 0 * (j jj))))
    (command pt2)
  )
  (command "")
" P* ?* E4 s2 W" R& M* I)
. q$ `/ t9 ^- ^" r1 g5 Y( t7 ~
- n& R" G% J" E6 V% B* V;; 补了多处空格
$ u6 t4 q  d; i+ t) N;; 但这句改不出来 (setq pt2 (list (* r (cos ang)) (* r (sin ang)) (+ 0 * (j jj))))
;; 这个肯定是错的 ====> (+ 0 * (j jj))

jianlong

看的我头晕啊 天文~

lanzixu3

晕  都是这么高的水平了

asianxwq

我也不懂，学习中

jiaochen1988

原来书上是错的，谢谢3楼啊