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

davidaini333

1、        编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
* ^! J1 e/ G" J' I# W- a) ]（defun ｃ：chamfer（／ ｄ ａ）
5 H, ]# r) S2 H3 E" q+ j8 B（setvar“cmdecho”0）
6 U$ v$ K% C3 c8 Q4 X* `- z（graphscr）
! D7 |/ x( c# T$ B1 U3 ?# X（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
3 _4 R9 M0 q/ O0 z) H+ c' u" a( `# T( E（setvar“chamferb”( d（/sin a （cos a)）））
; Y4 R; ?2 |8 R- Q2 V# j（Command“chamfer”）
" m6 p/ O7 s; s  j0 y8 H& y+ a（setvar“cmdecho”ｌ）
（princ）
)

2 ~6 q' i1 M) `
2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
9 w1 N- ]0 H$ L! z2 a9 C（defun ｃ：chamfer（／ ｄ ａ）
3 n4 g6 [5 F8 e0 r+ `% f  W& S# ?（setvar“cmdecho”0）
（graphscr）
（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
7 q- \6 f* n7 L, \6 B2 k（setvar“chamfera”ｄ）
/ N: x4 ^" v* k  B! ~& h+ o3 @$ u（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
4 l/ ?( s0 h1 I/ T# n/ {# Q" ]/ A（setvar“cmdecho”ｌ）
（princ）
9 e% f, Y1 X: N7 W: e& Y)
7 Y% s* q, D: }8 z
3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
7 g: i6 P) n! e3 `; d0 C' M, i（defun c：bc1（）
（graphscr）
（setvar“cmdecho"0）
0 O8 a& T* H+ f. q# Z8 j9 @（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
（setq d（getdist“\n Dia of Bolt－Circle：”））
  w. I: X- |" X* Z" s8 {2 H, k（setq n（getint“\n Number of holes In Bolt－Circle："））
  Y% h& `" R: V8 n+ G7 E（setq a（getangle“＼n Enter start angle：”））
- A4 G* e9 X! ?2 E- l（setq dh（getdist“＼n Enter diameter of hole：”））
4 S- p4 y1 X; w& {& m6 J（setq inc（/（* 2 pi）n））
（setq ang 0）
（set r(/ dh 2））
8 y' \8 M! B* L+ [: n# L（While（＜ ang（* 2 pi））
（setq P1（Polar cr(＋ a inc）(d 2）））
（command“circle” p1 r）
（setq a（＋ a inc））
3 s1 T4 ]" D. B; x, k& S. h（setq ang（＋ ang inc））
）
, @3 i/ T; B/ }& {: z（setvar“cmdecho” l）
（Princ）
; d6 Z9 G/ [; `1 k8 |3 Y）
) x3 G* |* z" e' @$ H; Z
4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
(defun c:spring()
  (setq bp(getpoint"\n弹簧中心点:"))(princ)
! C9 {1 g; d0 X( O; E  (setq dw(getreal"\n弹簧直径:"))(princ)
& h7 M3 q& p2 E( R' l" ^6 g1 D  (setq d(getreal"\n弹簧丝径:"))(princ)
  (setq pitch(getreal"\n弹簧节距:"))(princ)
7 m% ~- Y7 o3 \/ p% F1 u0 C6 p0 Q  (setq len(getreal"\n弹簧中长度:"))(princ)
6 r& }. C. o  Z; }  (setq n(getint"\n弹簧段数:"))(princ)
  (setq r(/ (- dw d) 2))
: h7 j* `3 a$ y. C3 c( v4 a7 T   (setq m1(fix (* n 1.25)))
  (setq m0(fix (* n (/ (- len (* d 2)) pitch))))
  (setq delta(/ (* 2.0 pi) n))
2 U5 a) W6 A; O3 i4 s" W. l  (setq j0(/ pitch n))
  (setq j1(/ d n))
  (setq bz(caddr bp))
  (setq ang 0)
( `7 u; w0 y0 L- i9 u1 l  (setq jj 0)
  (command "UCS" "o" bp)
: z6 h7 M) X% v2 S  (command "3dpoly" (list r 0 0))
  (repeat m1
# ?+ c4 I1 b8 X8 s, S/ A- }% X4 O  (setq jj(+ jj 1))
  (setq ang(+ delta ang))
9 l+ M# ?/ k7 U; c% g0 q- y+ Q" j  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
  (command pt1)
: r0 r% U( ], _! f    )
7 w1 ]/ M3 T& r) w  (setq bz(caddr pt1))
  (setq jj 0)
. n; E* }  _- T' d8 l   (repeat m0
, G) v' b0 ^6 f' S3 U2 z/ a, X  (setq jj (+ jj 1))
  (setq ang(+ delta ang))
$ x$ n" U8 t1 f$ a+ h9 s8 p- b( k' ]  B  (setq pt0(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j0 jj))))
1 n  Z# L6 d+ h0 `& k- {  (command pt0)
) q# a) [6 R4 \$ e& `/ h) E  R5 [  )
    (setq bz(caddr pt0))
  (setq jj 0)
  (repeat m1
  (setq jj(+ jj 1))
8 h9 E; m5 i9 N  (setq ang(+ delta ang))
  (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
- g: S, s- C& h* _0 R, x# X  (command pt2)
% @8 @) L1 o2 Q2 ^; g  )
' H$ O! w! ?6 q8 P1 g* r7 j/ I" M6 x  (command"")
* e, w2 ]* o; Y4 `  )

SunVei

此处也遇上?

once more
The first one my be some thing like this
6 ~( U( [* O1 n$ A4 [
, Y- @# ^' C4 s(defun c:chamfre (/ d a)
/ }( y/ f# {( h& @7 e/ M   (setvar "cmdecho" 0)
" Q: p: Y9 e8 I; R- R7 r   (graphscr)
" v2 z# Z3 F2 Q, ?) \7 k   (setq d (getdist "\nEnter chamfer distance: "))
   (setq a(getangle "\nEnter chamfer angle："))
   (setvar "chamfera" d)
   (setvar "chamferb" (* d (/ (sin a) (cos a))))
   (setvar "cmdecho" 1)
& s- T( m* @5 l8 q+ J6 y* ]' H   (Command "chamfer")
   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
   (setvar "cmdecho" 1)
   (princ)
)

( P  U3 S, |  m
;;; =============================== test
, m2 N% n# t  E( `/ I& T
2 S5 g& }1 G+ p6 |+ sCommand: CHAMFRE
: n1 I7 o* B" s3 w- G
8 e9 H* L& O' _2 y. HEnter chamfer distance: 3

5 ^: n5 ^$ _7 {2 N/ l$ ?Enter chamfer angle：30
- H' T  A9 [2 O. K" E$ ]+ schamfer
(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
Select first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
2 X7 g2 D  E. E2 ~1 `Select second line:
Command:

davidaini333

能把后面的也改一下吗？？？？？？？
谢谢~~~~~~~~~~

davidaini333

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

SunVei

Ref grab:
绘制法兰盘lisp
http://www.google.com/search?as_ ... ts=&safe=images

圆柱螺旋弹簧
/ K' I1 `  p. ~2 ohttp://www.google.com/search?hl= ... r=&aq=f&oq=