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

davidaini333

1、        编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
（graphscr）
$ q4 l) X( {7 @, K+ I5 d（setq d（getdist“＼ｎ Enter chamfer distance:"））
1 d- M& g7 W4 f! |6 S% A(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
（setvar“cmdecho”ｌ）
（princ）
3 F& c' w" Z2 B$ A7 o; t2 M)


2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
8 H* S; R% V2 V/ u, z（defun ｃ：chamfer（／ ｄ ａ）
' I$ Z, @0 g- n; N0 b! C1 Q（setvar“cmdecho”0）
3 ]; Y' f+ I* N' d3 e# T4 @（graphscr）
$ k! O6 z0 p& P; u% J7 P（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
- s) s" j. u: S3 ^- O- ~（setvar“chamfera”ｄ）
$ U$ _2 A  T4 }: h* i! V（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
* F, ^9 s) p% g6 n# F（setvar“cmdecho”ｌ）
（princ）
)

3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
（defun c：bc1（）
6 B7 f1 F- t3 B/ c（graphscr）
（setvar“cmdecho"0）
. u. j* n4 E  E" W; W. p（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
（setq d（getdist“\n Dia of Bolt－Circle：”））
0 N6 V' k) J$ X. e  ^（setq n（getint“\n Number of holes In Bolt－Circle："））
（setq a（getangle“＼n Enter start angle：”））
（setq dh（getdist“＼n Enter diameter of hole：”））
（setq inc（/（* 2 pi）n））
（setq ang 0）
) Y6 e6 l2 c0 f7 `! X; s& X! C（set r(/ dh 2））
, Q. j+ H4 Z" ^) ]3 }0 c（While（＜ ang（* 2 pi））
' l) s% ^: w' n. q5 q- {8 W4 v- |（setq P1（Polar cr(＋ a inc）(d 2）））
（command“circle” p1 r）
: A) M' H! S% O" B& j% l（setq a（＋ a inc））
（setq ang（＋ ang inc））
. u7 `! _  R0 }）
（setvar“cmdecho” l）
（Princ）
）

4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
(defun c:spring()
( _. P/ t, A& K( T  (setq bp(getpoint"\n弹簧中心点:"))(princ)
5 j+ |+ a9 v( \: I3 }! O% V  (setq dw(getreal"\n弹簧直径:"))(princ)
  (setq d(getreal"\n弹簧丝径:"))(princ)
" S& c' I) T  j- B% n' a/ _  (setq pitch(getreal"\n弹簧节距:"))(princ)
  (setq len(getreal"\n弹簧中长度:"))(princ)
  (setq n(getint"\n弹簧段数:"))(princ)
  (setq r(/ (- dw d) 2))
   (setq m1(fix (* n 1.25)))
  (setq m0(fix (* n (/ (- len (* d 2)) pitch))))
  (setq delta(/ (* 2.0 pi) n))
! x6 U, J5 W5 j* L' k2 }9 k  (setq j0(/ pitch n))
, |- v+ ?2 [1 j" O- }7 x  (setq j1(/ d n))
: q0 d( \* n& ]# S1 ]  (setq bz(caddr bp))
" A4 l) S4 Q/ K% I  (setq ang 0)
  (setq jj 0)
  (command "UCS" "o" bp)
  (command "3dpoly" (list r 0 0))
  (repeat m1
  (setq jj(+ jj 1))
) C  n* L' q  @. g4 [7 t: n" y  (setq ang(+ delta ang))
6 [2 O" M! H6 m/ B6 O+ w  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
% R. I/ Y3 z9 A  (command pt1)
# |: c) ?' [* H4 |    )
  (setq bz(caddr pt1))
9 S: g8 G9 y1 @3 Z* a# z  P( y  (setq jj 0)
   (repeat m0
  (setq jj (+ jj 1))
  (setq ang(+ delta ang))
  (setq pt0(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j0 jj))))
0 t( R4 u7 e) |  e0 u: u  (command pt0)
  )
    (setq bz(caddr pt0))
) e8 y+ ]) {# o! a- D0 y3 l  b  (setq jj 0)
1 n& s4 V4 H5 }9 z  (repeat m1
  (setq jj(+ jj 1))
. {( s! w# I& ~1 Q* g# Y  (setq ang(+ delta ang))
  (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
  (command pt2)
- Z# e1 n. c' V/ M7 Z  )
  (command"")
  )

SunVei

The first one my be some thing like this
7 n, @5 d0 y, U9 `# M$ i
6 s2 z1 U2 N* L4 h(defun c:chamfre (/ d a)
   (setvar "cmdecho" 0)
   (graphscr)
   (setq d (getdist "\nEnter chamfer distance: "))
   (setq a(getangle "\nEnter chamfer angle："))
& w: ~3 l8 O3 N' N6 R   (setvar "chamfera" d)
: r! z- q+ X9 q  l7 i3 i% W( ]   (setvar "chamferb" (* d (/ (sin a) (cos a))))
1 A5 k3 }: M2 ^4 I5 c" X   (setvar "cmdecho" 1)
# C& R: r7 B# _  R- k: t   (Command "chamfer")
' L7 e9 p. ]" q! i% \   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
   (setvar "cmdecho" 1)
. _4 z; I2 k9 r. U9 v4 Q   (princ)
* m7 {5 x. I. v) d. R" R)


; V% F2 p/ o7 ?# c$ w1 J;;; =============================== test

Command: CHAMFRE
( k# L+ L) D. g4 b& c
Enter chamfer distance: 3
7 f9 a) {8 V- U0 z+ ?, k8 q8 R( }/ x
Enter chamfer angle：30
* n& h8 }% K7 Y7 B( _! wchamfer
(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
0 w4 g% I+ q% i: n  Q6 F( xSelect first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
Select second line:
Command: