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

davidaini333

1、        编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
- d: v: |5 M' `（graphscr）
（setq d（getdist“＼ｎ Enter chamfer distance:"））
% |1 B* [% f7 I5 n! {$ u(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
: S6 d6 M/ S; G1 e- Z, e" l; _（setvar“cmdecho”ｌ）
（princ）
, V6 ?7 j; J$ G4 F)


, Z+ g6 I8 E) A" s3 |/ u3 m6 k2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ ｄ ａ）
# M/ e; ]/ ?# d& K) U7 a  r（setvar“cmdecho”0）
5 b2 U: s- q" N3 j（graphscr）
（setq d（getdist“＼ｎ Enter chamfer distance:"））
" J# ]5 r- ^: X% R! ?. q(setq ａ（getangle“＼ｎ Enter chamfer angle："））
8 v% U9 k. [+ y* Z（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
（setvar“cmdecho”ｌ）
1 R- Z8 c7 M( c（princ）
; _+ `' q3 X8 `& P4 g)
$ C2 I* a2 q9 h( z8 W, [9 k1 j
3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
! Z2 d7 S- F& N; L（defun c：bc1（）
' A% h1 ]4 z+ K; b' d# \（graphscr）
（setvar“cmdecho"0）
（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
（setq d（getdist“\n Dia of Bolt－Circle：”））
$ j  Y" P; E0 \（setq n（getint“\n Number of holes In Bolt－Circle："））
（setq a（getangle“＼n Enter start angle：”））
" F# y! {" G" `3 ?- L; ^, b* V$ a（setq dh（getdist“＼n Enter diameter of hole：”））
（setq inc（/（* 2 pi）n））
) w3 f- o  U7 [（setq ang 0）
) R2 a. u; ^& I! M$ ?（set r(/ dh 2））
- u' q; ]5 C9 R" F! U* X（While（＜ ang（* 2 pi））
$ i' S& h- L5 X' o（setq P1（Polar cr(＋ a inc）(d 2）））
（command“circle” p1 r）
（setq a（＋ a inc））
+ ], f% n& j/ r3 _, K（setq ang（＋ ang inc））
）
& I/ c4 g0 X) r（setvar“cmdecho” l）
- E/ E1 i" `$ a) ?3 e+ H: a6 q（Princ）
）

4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
  I, f- h3 Q9 O5 V(defun c:spring()
  (setq bp(getpoint"\n弹簧中心点:"))(princ)
  (setq dw(getreal"\n弹簧直径:"))(princ)
2 O' o4 o# `* r- e; ]9 }) B  (setq d(getreal"\n弹簧丝径:"))(princ)
9 o5 Z* C! }+ g& V+ N3 ~2 Y, l  (setq pitch(getreal"\n弹簧节距:"))(princ)
  (setq len(getreal"\n弹簧中长度:"))(princ)
  (setq n(getint"\n弹簧段数:"))(princ)
7 M! i/ S' ^4 B/ d  (setq r(/ (- dw d) 2))
   (setq m1(fix (* n 1.25)))
0 g' u, s* _: o+ F" N  (setq m0(fix (* n (/ (- len (* d 2)) pitch))))
  (setq delta(/ (* 2.0 pi) n))
  (setq j0(/ pitch n))
  (setq j1(/ d n))
  (setq bz(caddr bp))
; f, E+ D7 f7 x" P( g) i  (setq ang 0)
  (setq jj 0)
  (command "UCS" "o" bp)
) _- e) a5 W& g% V8 W- w  (command "3dpoly" (list r 0 0))
  (repeat m1
# ^% [0 P; F9 _5 `1 o4 M0 N4 W  (setq jj(+ jj 1))
  (setq ang(+ delta ang))
  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
  (command pt1)
( A- R3 u8 [( {+ n3 U    )
( E* i7 K, V+ k" V: O  (setq bz(caddr pt1))
  (setq jj 0)
   (repeat m0
  (setq jj (+ jj 1))
. l8 |6 D$ ^6 e4 |1 S) k  (setq ang(+ delta ang))
  (setq pt0(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j0 jj))))
  (command pt0)
  )
3 p- I  \8 G" F" _) [$ b# q    (setq bz(caddr pt0))
  (setq jj 0)
, D, X" V6 X/ q4 B$ R  _  (repeat m1
  (setq jj(+ jj 1))
3 A* X7 e& O6 F% d/ R2 Q; W  (setq ang(+ delta ang))
  (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
5 d3 x1 d1 h% q" a9 w% o, ~- z
) F# @* ^: q9 T2 L* A) w. Z(defun c:chamfre (/ d a)
   (setvar "cmdecho" 0)
   (graphscr)
$ f: J. H# Y7 }+ p   (setq d (getdist "\nEnter chamfer distance: "))
; F6 k, u# ]* X; G: w8 m   (setq a(getangle "\nEnter chamfer angle："))
+ t: }& z! Q% C) s, ~   (setvar "chamfera" d)
   (setvar "chamferb" (* d (/ (sin a) (cos a))))
   (setvar "cmdecho" 1)
, y/ X. {( g! E( `/ V0 B   (Command "chamfer")
   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
3 w3 M- O; ]' U, o% ]   (setvar "cmdecho" 1)
   (princ)
* W3 K/ f( Q( ~3 b0 I& G. D& W)


- u, C0 ^0 j" L! x- m# [) P7 I# l;;; =============================== test

- v! v# d5 H7 ?/ v& G8 RCommand: CHAMFRE
; J3 }2 C8 q, Y1 X, t
Enter chamfer distance: 3
/ k6 A  V' A" W7 V
( r) E: A9 _& l# @Enter chamfer angle：30
chamfer
(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
Select first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
2 {" O7 z- y3 @  ?7 uSelect second line:
1 ]# z& A9 O( M+ n3 GCommand: