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

davidaini333

1、        编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ ｄ ａ）
9 a3 M: l6 Q3 r9 U（setvar“cmdecho”0）
) [; P5 B  x3 E+ X1 T' b, Z- Y（graphscr）
- L/ ~( k+ Y6 R& {/ n（setq d（getdist“＼ｎ Enter chamfer distance:"））
% k( W& N6 x  I5 g: z2 O(setq ａ（getangle“＼ｎ Enter chamfer angle："））
! c; z% E, E9 n  q. |（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
（setvar“cmdecho”ｌ）
（princ）
! O( Q" Z; P% Z) s)
  k7 p- ]) J) J5 a; y7 Z3 a' {* @" [4 h

  s3 U. C' P+ J2 a  E2 F2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
' k6 ~& I( J( A（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
5 ~" H2 ?2 L/ D1 v( @% K  c（graphscr）
( ?3 [" G- s  [7 N（setq d（getdist“＼ｎ Enter chamfer distance:"））
: o2 @) w- w( n: q7 r6 @1 o9 m1 L& b# v* m(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
3 w$ n! J6 ?: l（setvar“chamferb”( d（/sin a （cos a)）））
7 y3 L- Y* e: x（Command“chamfer”）
( o% m5 b4 V" N' Q% o& g（setvar“cmdecho”ｌ）
（princ）
)
* Q6 ]3 F7 R$ K& o3 J5 Q
3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
（defun c：bc1（）
" j: U% F% P) z& |9 \% e' m% c（graphscr）
（setvar“cmdecho"0）
/ }# q# p0 R; l+ w# I（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
（setq d（getdist“\n Dia of Bolt－Circle：”））
（setq n（getint“\n Number of holes In Bolt－Circle："））
0 `' \$ w5 ]) B# p& c（setq a（getangle“＼n Enter start angle：”））
（setq dh（getdist“＼n Enter diameter of hole：”））
0 C) T8 w+ V; _0 |& S（setq inc（/（* 2 pi）n））
# L' \# ]8 _  N7 w# e（setq ang 0）
( ^# F- L* L$ Z; U（set r(/ dh 2））
（While（＜ ang（* 2 pi））
) n# k/ s8 c# J. ~: j7 k（setq P1（Polar cr(＋ a inc）(d 2）））
（command“circle” p1 r）
（setq a（＋ a inc））
7 r, R! \* R! E0 B4 P（setq ang（＋ ang inc））
）
6 ?$ C2 F( m6 H$ p（setvar“cmdecho” l）
（Princ）
）
' z: X, L( n! A+ `, {
4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
7 D4 |5 s, E/ E. t(defun c:spring()
  (setq bp(getpoint"\n弹簧中心点:"))(princ)
5 Q6 J- V2 c. U  (setq dw(getreal"\n弹簧直径:"))(princ)
$ q7 [: X  x% c  (setq d(getreal"\n弹簧丝径:"))(princ)
  (setq pitch(getreal"\n弹簧节距:"))(princ)
  (setq len(getreal"\n弹簧中长度:"))(princ)
; j" j5 S: r5 U  (setq n(getint"\n弹簧段数:"))(princ)
  (setq r(/ (- dw d) 2))
$ b0 c* X* a1 h) a0 ]   (setq m1(fix (* n 1.25)))
+ R3 i% U; p, t! @2 v6 x, I9 v  (setq m0(fix (* n (/ (- len (* d 2)) pitch))))
  (setq delta(/ (* 2.0 pi) n))
  (setq j0(/ pitch n))
3 G; w" O8 l3 e2 u) b) z  (setq j1(/ d n))
' Y( j7 p9 i/ j3 N/ }* A  (setq bz(caddr bp))
  (setq ang 0)
8 N9 C* x' X# I- P  (setq jj 0)
$ U$ }+ y2 y, @. q  (command "UCS" "o" bp)
% m8 ~: [" h4 y# Y  (command "3dpoly" (list r 0 0))
  (repeat m1
6 j& a$ w2 i! b6 y  (setq jj(+ jj 1))
7 u3 @" f- z$ ~4 u0 P  (setq ang(+ delta ang))
  o6 Q' U8 V/ S2 p  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
  (command pt1)
    )
9 `8 A2 G) z. ]; D) L  (setq bz(caddr pt1))
0 g. u* g/ i9 G  (setq jj 0)
0 Y. m% u: I  {3 O' |0 |  C0 S   (repeat m0
  (setq jj (+ jj 1))
  (setq ang(+ delta ang))
  (setq pt0(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j0 jj))))
  (command pt0)
# ^# H1 i) J2 Z4 |/ a  )
. ?' P' `) F( w+ {- S% L* g% F    (setq bz(caddr pt0))
  (setq jj 0)
  (repeat m1
  (setq jj(+ jj 1))
  (setq ang(+ delta ang))
4 ^/ V5 m% |+ f( w. u  (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
8 j4 {$ E. j; G, |5 D3 i  (command pt2)
  )
& X* `1 Z# e5 b! l! Q  (command"")
  )

SunVei

The first one my be some thing like this

(defun c:chamfre (/ d a)
3 q# A2 M$ s2 j: {" ~2 @* D   (setvar "cmdecho" 0)
   (graphscr)
   (setq d (getdist "\nEnter chamfer distance: "))
$ E& i1 w/ S8 P" |: R   (setq a(getangle "\nEnter chamfer angle："))
. Q. X( B- N& m   (setvar "chamfera" d)
   (setvar "chamferb" (* d (/ (sin a) (cos a))))
: H$ ?/ t3 O8 s" k! [! G1 e- N" t2 r; z   (setvar "cmdecho" 1)
   (Command "chamfer")
   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
   (setvar "cmdecho" 1)
4 b* w( F1 W% T$ f1 l. }0 L   (princ)
/ m/ x5 D) T4 x: c4 N; ~7 C/ })


;;; =============================== test

6 V; [  S7 ]: B/ i" @  NCommand: CHAMFRE

7 E: Z5 u8 N1 \4 T# KEnter chamfer distance: 3
4 L# b7 H- g7 ?  l3 g
Enter chamfer angle：30
# f% B1 B; A& h- echamfer
/ D  k& J7 L: w$ i# S(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
Select first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
7 c, @9 j8 U% O" B- ?! rSelect second line:
Command: