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

davidaini333

1、        编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
2 e; |, R/ [" a, K+ S（defun ｃ：chamfer（／ ｄ ａ）
% C& o4 T9 M( x, _1 ~0 `$ W（setvar“cmdecho”0）
（graphscr）
（setq d（getdist“＼ｎ Enter chamfer distance:"））
& R" K- B$ j  W7 Z1 ^(setq ａ（getangle“＼ｎ Enter chamfer angle："））
7 w7 r( w% X8 q: F% @: J5 Z) C（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
9 |! i: X9 Z+ W) c（setvar“cmdecho”ｌ）
（princ）
)

  @. z. |2 C' I- _8 r4 g" a4 X
) T( H# K, {0 I3 @, M2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
（graphscr）
（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
3 j" E$ R/ i$ B: B, C（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
, \9 _* j5 q/ d' R5 _- d1 {( `' Z（setvar“cmdecho”ｌ）
6 W1 b$ ~9 Q4 V5 Q（princ）
, W" l9 K5 a7 \. c; f)
& r( E- |6 t4 I8 |* h3 r
3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
4 c4 q7 `+ \: q. z0 K（defun c：bc1（）
（graphscr）
（setvar“cmdecho"0）
: y1 m# I: }% a5 j9 w6 ?9 T（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
6 ~! o/ c( t8 }% u+ ]& d（setq d（getdist“\n Dia of Bolt－Circle：”））
（setq n（getint“\n Number of holes In Bolt－Circle："））
% \% F0 [; W1 Q（setq a（getangle“＼n Enter start angle：”））
7 M( V7 h8 C; N  ?# E9 s（setq dh（getdist“＼n Enter diameter of hole：”））
" R2 e9 Q9 [  t: n( V: [（setq inc（/（* 2 pi）n））
（setq ang 0）
（set r(/ dh 2））
5 r$ r. E; \( i5 Z# K（While（＜ ang（* 2 pi））
（setq P1（Polar cr(＋ a inc）(d 2）））
（command“circle” p1 r）
（setq a（＋ a inc））
（setq ang（＋ ang inc））
）
" q* n& M/ q" _$ S6 B8 d（setvar“cmdecho” l）
（Princ）
）

4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
(defun c:spring()
: Y, g, o/ k6 ^9 S  D# J' `+ G. f  (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)
: v, k% r# A; x* j1 _$ e% b1 y9 W  (setq r(/ (- dw d) 2))
. s# V$ @9 ~- X   (setq m1(fix (* n 1.25)))
: a; {# G/ Y% i/ h  (setq m0(fix (* n (/ (- len (* d 2)) pitch))))
3 C* V" c) R8 `- d7 ^  (setq delta(/ (* 2.0 pi) n))
, c$ b+ k  W5 D2 q. F  (setq j0(/ pitch n))
: j6 S1 W0 N) n- f, j4 y  (setq j1(/ d n))
  @' F5 H; }% f! t' ~& \  (setq bz(caddr bp))
  (setq ang 0)
( n) G, `& ~! S) O  (setq jj 0)
  (command "UCS" "o" bp)
  (command "3dpoly" (list r 0 0))
  (repeat m1
  (setq jj(+ jj 1))
; o' D) _! a( j7 I( F" h% p  (setq ang(+ delta ang))
9 }+ O/ Z( m' U; d) x  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
1 ^3 D- j% I3 h8 ~( |  k  (command pt1)
$ _) l! y3 t- K5 s" W- n5 B& M    )
  (setq bz(caddr pt1))
+ w/ a6 h. n, V9 n  `1 r  (setq jj 0)
# f5 T# c( I( G0 [* G+ L1 q   (repeat m0
  (setq jj (+ jj 1))
  (setq ang(+ delta ang))
  (setq pt0(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j0 jj))))
& ]; ^4 F( L& d8 o  W1 A  (command pt0)
7 ~4 @- t( i6 X, s  )
2 _: V& ^: L: D5 v/ j4 S- j  `5 P# r    (setq bz(caddr pt0))
  (setq jj 0)
/ P  p# P- M' S0 f/ z9 J9 V  (repeat m1
! B) {. f% K+ ]% k- U, O6 [  (setq jj(+ jj 1))
6 j: I5 |& Y$ l5 F  (setq ang(+ delta ang))
  (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
# o0 u8 {& L( d8 \; j$ f  (command pt2)
) K# Z! P+ K* o( Y' v* E  )
) ?" O: |2 u% m/ T$ M- y  (command"")
  )

SunVei

此处也遇上?
( v: P  a8 h% b8 \! Y
once more
The first one my be some thing like this

(defun c:chamfre (/ d a)
3 P5 P8 y! R; y1 j* j7 D! K   (setvar "cmdecho" 0)
   (graphscr)
7 A( T% u5 U8 p4 ~   (setq d (getdist "\nEnter chamfer distance: "))
   (setq a(getangle "\nEnter chamfer angle："))
   (setvar "chamfera" d)
   (setvar "chamferb" (* d (/ (sin a) (cos a))))
, E" e' V- D6 p2 y. o6 y   (setvar "cmdecho" 1)
$ J/ M3 h( T7 M8 a   (Command "chamfer")
" P! J- F1 n1 o. Z  d3 N$ ?  ^& d   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
/ M& b) B% j! F) F& i3 H+ w6 V   (setvar "cmdecho" 1)
; M- a. Q. B! u3 h# k   (princ)
6 T( t0 i# p: f2 m6 i)


4 j; \5 O) a  g8 V;;; =============================== test
- A( v# R: w- K& G
& ?8 k! U8 s6 }9 r, b# jCommand: CHAMFRE
0 J9 [/ Y; G) N- \/ n6 A
Enter chamfer distance: 3
) X* ]# z  Y; n+ b* ^% [
Enter chamfer angle：30
5 X3 P( O7 `' Zchamfer
(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
Select first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
3 n4 O- @/ Z- g+ OSelect second line:
" {* @2 o5 e' x8 j/ v+ o1 fCommand:

davidaini333

能把后面的也改一下吗？？？？？？？
5 A+ ]& Y2 A. {6 O9 v1 p& q% L谢谢~~~~~~~~~~

davidaini333

高人们帮帮忙把   小生不胜感激  谢谢

SunVei

Ref grab:
绘制法兰盘lisp
1 T$ C& y# L/ ohttp://www.google.com/search?as_ ... ts=&safe=images

圆柱螺旋弹簧
http://www.google.com/search?hl= ... r=&aq=f&oq=