那位高人能帮忙把这些ATUOLISP程序改正一下 谢谢

davidaini333

1、        编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
# q1 ?% d1 {0 J  o7 U$ ]（graphscr）
（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
# v7 t0 h5 l" d（setvar“chamferb”( d（/sin a （cos a)）））
$ z7 @" k5 A' h) f0 U/ @  d（Command“chamfer”）
（setvar“cmdecho”ｌ）
（princ）
: h. `  u* {) b( A$ C* c)

. _1 I! P9 C8 t0 Z
2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ ｄ ａ）
/ L  Z: S" F4 ]- J（setvar“cmdecho”0）
* R% B" i. y# [（graphscr）
* h. k7 n' s' A- O# H: A1 t/ @（setq d（getdist“＼ｎ Enter chamfer distance:"））
7 R6 t6 h: M; e5 Z' K; V% M* j(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
8 k9 q# v5 c4 j* |: b. y: Y（Command“chamfer”）
  w/ m8 T7 |' X' u1 c  V（setvar“cmdecho”ｌ）
3 b/ \5 A3 }$ c# X8 h) a（princ）
)

3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
（defun c：bc1（）
（graphscr）
7 n$ V! H  _1 C, F9 V& a" {（setvar“cmdecho"0）
（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
- @1 Q$ I% L9 m0 K" m（setq d（getdist“\n Dia of Bolt－Circle：”））
3 N) y( h# [0 J6 E（setq n（getint“\n Number of holes In Bolt－Circle："））
2 e6 B4 [9 I; c" a2 T, w（setq a（getangle“＼n Enter start angle：”））
（setq dh（getdist“＼n Enter diameter of hole：”））
（setq inc（/（* 2 pi）n））
（setq ang 0）
* o# T+ Z% o* _5 o1 x（set r(/ dh 2））
5 {# \9 f" Y# |! f, O（While（＜ ang（* 2 pi））
（setq P1（Polar cr(＋ a inc）(d 2）））
, B9 ]# p: x4 ]# r6 M- p1 C（command“circle” p1 r）
6 q+ z5 k7 ~: T; M% O（setq a（＋ a inc））
6 I( U$ |5 m/ k8 N) S1 @% v（setq ang（＋ ang inc））
. _! k7 `1 I4 f) X4 B; [" `" e) F% V）
（setvar“cmdecho” l）
（Princ）
）
) @$ C7 U! O1 R* }- E
* u7 a% G" F* ^+ w1 G1 U3 D4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
(defun c:spring()
* P9 L: {6 ]/ E0 {  (setq bp(getpoint"\n弹簧中心点:"))(princ)
  (setq dw(getreal"\n弹簧直径:"))(princ)
  (setq d(getreal"\n弹簧丝径:"))(princ)
  (setq pitch(getreal"\n弹簧节距:"))(princ)
  (setq len(getreal"\n弹簧中长度:"))(princ)
  (setq n(getint"\n弹簧段数:"))(princ)
  (setq r(/ (- dw d) 2))
( ?+ _/ n( [- I$ l' Z   (setq m1(fix (* n 1.25)))
  (setq m0(fix (* n (/ (- len (* d 2)) pitch))))
  (setq delta(/ (* 2.0 pi) n))
0 f) F& N$ M8 X9 f6 y: @* |  x  (setq j0(/ pitch n))
( o* ^" h) P! m" c  (setq j1(/ d n))
  (setq bz(caddr bp))
  (setq ang 0)
1 v! T, w. Y* r  (setq jj 0)
  (command "UCS" "o" bp)
& ?- d2 V2 [% z  l0 \  (command "3dpoly" (list r 0 0))
  (repeat m1
& M) C5 A* J$ p# ^  J- T4 X6 b/ Q  (setq jj(+ jj 1))
3 `! E. C' e1 Y, a  (setq ang(+ delta ang))
* V: x: f$ B7 m# k$ `  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
4 U1 L; `* r; q+ U+ e% \) u' j  (command pt1)
% k# h! [" Z3 p! P    )
  (setq bz(caddr pt1))
+ k( T0 r# B( M  (setq jj 0)
   (repeat m0
  (setq jj (+ jj 1))
  (setq ang(+ delta ang))
1 d. V) l4 n- a" m. ~! K; o5 ^  (setq pt0(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j0 jj))))
  (command pt0)
. ?' T& w9 X2 t1 N$ e. E8 v* \  )
% N# V  b! c8 i# L    (setq bz(caddr pt0))
  (setq jj 0)
5 Q* Z! O& Z1 n3 ~" y  w$ J; m) k" |  (repeat m1
  (setq jj(+ jj 1))
1 V+ l0 h$ K9 w$ X: N% E3 \  (setq ang(+ delta ang))
* m( I% m$ o6 f. H+ @! t, @8 g, X2 K9 ]/ n  (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
) d* c2 p2 A2 k! W. P  n1 C9 N/ W  (command pt2)
  a3 o  U, L0 r4 J& B6 A. ~  )
  (command"")
- @9 W$ G$ S( A9 [( _  )

SunVei

The first one my be some thing like this

(defun c:chamfre (/ d a)
3 q" f& I; s1 _" W/ y. ~9 s% }   (setvar "cmdecho" 0)
  [9 i4 m# T7 C& a. w. h   (graphscr)
   (setq d (getdist "\nEnter chamfer distance: "))
   (setq a(getangle "\nEnter chamfer angle："))
4 l1 E/ a8 \/ c( C6 L  y3 Q% ~   (setvar "chamfera" d)
- L7 E* q# [( u& ~: T! l   (setvar "chamferb" (* d (/ (sin a) (cos a))))
: t& q* Z- E) G0 E- K   (setvar "cmdecho" 1)
- m: r; e) j9 [6 D   (Command "chamfer")
   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
   (setvar "cmdecho" 1)
   (princ)
& l. K. Z3 w* y, U% g( o4 x* `- S8 [)
$ U/ |2 L$ E5 V

;;; =============================== test
& |! ^3 w( V1 h- |8 {- T
Command: CHAMFRE
3 t) u+ _% S3 B4 ?5 L  F3 M$ [* j9 d
Enter chamfer distance: 3
7 b! N) v! t0 |7 |
Enter chamfer angle：30
* ^, b* b( l1 V; L9 Hchamfer
6 ~+ `. W( P; c4 R: v! k(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
Select first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
0 i8 s8 ?- i( K* d. _8 tSelect second line:
6 A7 f: b0 p/ Q4 P, q' y% [Command: