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

davidaini333

1、        编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
9 L2 Z# k( c1 W. r& Q（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
) Z3 _* {& u/ Q, ]. y, h& l（graphscr）
" O7 |# ]1 ?6 z% a（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
  @9 O5 `6 |* E- U1 d& x% |（setvar“chamfera”ｄ）
6 g  p  N% G! \7 Y0 F5 `& X（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
（setvar“cmdecho”ｌ）
（princ）
4 o4 `. u4 H2 g" G* `2 E: ~)


2 B% [' I; l- D2 v- c3 [1 Y$ E2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
, \2 |8 }! g# l( x( D& `（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
! A" {( F( {7 c6 H) O& @（graphscr）
! P* d0 N6 L( u, A  m# w（setq d（getdist“＼ｎ Enter chamfer distance:"））
- g( w6 S; ~0 a1 e& R(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
（setvar“cmdecho”ｌ）
（princ）
)
* s! E- B0 `" ^4 ^
- t9 _% B. ~. I. S  P& C3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
3 Y. Z0 c1 e$ A# z（defun c：bc1（）
（graphscr）
1 G; M: `; ]) |（setvar“cmdecho"0）
; s9 t/ w" t0 H- ^. [（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
（setq d（getdist“\n Dia of Bolt－Circle：”））
6 y  s0 i- V. f4 j' s（setq n（getint“\n Number of holes In Bolt－Circle："））
; {0 r  E8 G+ H# Y+ C/ o（setq a（getangle“＼n Enter start angle：”））
) e' B% C2 {$ X* J; r+ ?（setq dh（getdist“＼n Enter diameter of hole：”））
（setq inc（/（* 2 pi）n））
（setq ang 0）
0 C4 P" s* K: J1 s+ v8 m1 ?（set r(/ dh 2））
（While（＜ ang（* 2 pi））
（setq P1（Polar cr(＋ a inc）(d 2）））
（command“circle” p1 r）
（setq a（＋ a inc））
（setq ang（＋ ang inc））
! ]' b( H  u8 s" i; ^' \）
$ B1 k* z/ B3 Y' @1 s: x（setvar“cmdecho” l）
; H2 _' B8 g# E" }（Princ）
* Y5 z! \# J5 E; p4 H, J）

4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
(defun c:spring()
  (setq bp(getpoint"\n弹簧中心点:"))(princ)
  r- ?) d# _8 _7 J1 i) F  (setq dw(getreal"\n弹簧直径:"))(princ)
  (setq d(getreal"\n弹簧丝径:"))(princ)
' j" v' j1 Z3 d6 o( A7 P7 y  (setq pitch(getreal"\n弹簧节距:"))(princ)
# z/ N& ^) V. ]" E/ O" z( h9 T% U. V  (setq len(getreal"\n弹簧中长度:"))(princ)
  (setq n(getint"\n弹簧段数:"))(princ)
  (setq r(/ (- dw d) 2))
   (setq m1(fix (* n 1.25)))
: ?$ \6 q7 {0 M. a9 X  (setq m0(fix (* n (/ (- len (* d 2)) pitch))))
  (setq delta(/ (* 2.0 pi) n))
3 W6 ]) ~# j; x" u, _2 }  (setq j0(/ pitch n))
  (setq j1(/ d n))
& w% i; G" y( |4 R) R  (setq bz(caddr bp))
+ ^5 f) W# _. B/ Q' r3 H& ?  (setq ang 0)
& y; h! D% h/ i9 t* D* q  (setq jj 0)
" Y* ?  p/ g$ O; _& E  (command "UCS" "o" bp)
  (command "3dpoly" (list r 0 0))
  (repeat m1
  (setq jj(+ jj 1))
/ ^" Y, m! k& k9 x  (setq ang(+ delta ang))
  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
  (command pt1)
  }+ G7 @5 f9 V' _! k    )
  (setq bz(caddr pt1))
  (setq jj 0)
+ t+ o* x% s+ l5 W. K) {( R! F   (repeat m0
- A- ^$ ]' |. \4 L  (setq jj (+ jj 1))
1 h! O& N$ O) M) e  (setq ang(+ delta ang))
  (setq pt0(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j0 jj))))
# L# e1 o/ ]1 ]5 e  (command pt0)
0 a9 y! e6 R* J: |/ J& @1 L% ?  )
    (setq bz(caddr pt0))
  (setq jj 0)
, f( V5 c5 I( H" S2 ^8 W  (repeat m1
  (setq jj(+ jj 1))
8 z* `$ A1 D% w9 B# O  (setq ang(+ delta ang))
0 z& l2 U. b- y8 \0 x  (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
  (command pt2)
  )
  (command"")
  )

SunVei

The first one my be some thing like this

6 j3 `- A6 V* q( y9 o' n: _4 ](defun c:chamfre (/ d a)
0 M. {4 U* k5 A9 C# t   (setvar "cmdecho" 0)
   (graphscr)
   (setq d (getdist "\nEnter chamfer distance: "))
2 L# q$ p6 w# o" m1 e& v7 L   (setq a(getangle "\nEnter chamfer angle："))
   (setvar "chamfera" d)
   (setvar "chamferb" (* d (/ (sin a) (cos a))))
   (setvar "cmdecho" 1)
/ L& m( P2 m2 f9 Q   (Command "chamfer")
6 [0 U8 J. L# |5 u: `0 K   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
   (setvar "cmdecho" 1)
   (princ)
* G6 G* L1 B7 i- E9 D. _& V2 L. E)
8 y6 ^5 G' h7 l/ g3 `
! ~  L% j0 D5 g# d6 M6 [1 {
& N0 d2 d/ z7 |5 J7 B;;; =============================== test
  Q+ W" F. g4 q. b/ x2 h
Command: CHAMFRE

Enter chamfer distance: 3
0 x1 q& N1 D1 u+ x: R; |: w2 @8 ~
Enter chamfer angle：30
chamfer
(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
4 A/ I8 N2 R- h6 _( rSelect first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
1 J: ~: s* Q0 g* W; C3 h# Q+ G* PSelect second line:
5 P/ w* P5 X! i  `$ ~5 Q( ], mCommand: