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

davidaini333

1、        编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ ｄ ａ）
" H, c9 r5 r1 E/ e2 w; G（setvar“cmdecho”0）
* S+ l% O" U2 r6 c2 g* c/ f（graphscr）
# E; x8 `) q; |' ^8 G（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
4 ^6 K7 ?+ T7 ?: o& T; }$ v( b4 d（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
（setvar“cmdecho”ｌ）
# o3 |  R( ~# A& `% F8 g- @（princ）
)


- ]/ v' x' c& G6 |2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
! ]& r! B, b% A# O2 S/ K7 a( h（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
（graphscr）
# P; a$ V$ ^  {. Z（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
9 f. h  {: Q  Y（setvar“chamferb”( d（/sin a （cos a)）））
: f  A9 V- y# j. o（Command“chamfer”）
（setvar“cmdecho”ｌ）
（princ）
)
, y" y$ ], I% v
6 ^8 d. K# _$ M3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
（defun c：bc1（）
+ t' g* w, z) z( K, N1 e/ O  D' u* @（graphscr）
（setvar“cmdecho"0）
（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
' @  T5 S" F' k( x  m（setq d（getdist“\n Dia of Bolt－Circle：”））
（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）
7 x% k  G+ [# Y' w: ?（set r(/ dh 2））
（While（＜ ang（* 2 pi））
（setq P1（Polar cr(＋ a inc）(d 2）））
* Z; A$ h( {0 n; Y/ s6 }+ w; Y" ?（command“circle” p1 r）
: a2 n9 E. A/ D- W（setq a（＋ a inc））
; T# S7 I& b  F7 A# y3 l（setq ang（＋ ang inc））
）
（setvar“cmdecho” l）
" Q  S1 {* E5 [* x（Princ）
）
2 R  F( {6 n3 {" \2 C7 p
4 {8 [; b8 K8 `4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
- j) h8 p+ N" X* @(defun c:spring()
  (setq bp(getpoint"\n弹簧中心点:"))(princ)
5 E3 v, @8 {; Z1 U2 d- b+ c) B0 j  (setq dw(getreal"\n弹簧直径:"))(princ)
  (setq d(getreal"\n弹簧丝径:"))(princ)
) B& m6 k- a: M$ ^  (setq pitch(getreal"\n弹簧节距:"))(princ)
, D* K* I6 c/ Q0 g: R$ d  (setq len(getreal"\n弹簧中长度:"))(princ)
" I) a% M! [6 X/ B  (setq n(getint"\n弹簧段数:"))(princ)
  (setq r(/ (- dw d) 2))
   (setq m1(fix (* n 1.25)))
0 b8 I, P+ X& p, G  (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))
( p$ ]* S5 o# r9 v  (setq ang 0)
  (setq jj 0)
( |5 D- m  n* l  (command "UCS" "o" bp)
8 Y. X! Z  j! ~  (command "3dpoly" (list r 0 0))
  (repeat m1
  (setq jj(+ jj 1))
) `4 y8 g6 m7 B3 q  (setq ang(+ delta ang))
  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
1 N" i, {, B: M9 r; }  (command pt1)
. ?! {9 b8 J! T8 Z' {; Z  @    )
  (setq bz(caddr pt1))
+ i* _8 ~: b: l( _0 x: e3 G  (setq jj 0)
   (repeat m0
  (setq jj (+ jj 1))
' c  g" @% ]; I0 t5 b% H  (setq ang(+ delta ang))
  (setq pt0(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j0 jj))))
  (command pt0)
  )
    (setq bz(caddr pt0))
  (setq jj 0)
/ W8 G: K# u6 ^% Q  (repeat m1
3 i$ t/ I' N4 A) a0 I6 _  (setq jj(+ jj 1))
. V3 L: H: ^4 C, |1 t4 y' E  (setq ang(+ delta ang))
- B6 n$ F7 j" Z( t9 J' R2 R. T# U$ x  (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
+ S) y% [4 w0 f+ u9 H1 M, h# U1 h  (command pt2)
. A% c4 x" K: @5 ^; u  )
4 j( ~2 A% E3 a0 m' K% M& A9 {  (command"")
  )

SunVei

此处也遇上?
  b9 f9 ?( [! M  b' V
$ t& o- ?  h' bonce more
$ ^% }( ~8 E  d- G1 N- a- xThe first one my be some thing like this

(defun c:chamfre (/ d a)
   (setvar "cmdecho" 0)
0 v) v4 q# d( a5 o8 v* P   (graphscr)
8 s5 Q: w- q( Y! N# l8 F   (setq d (getdist "\nEnter chamfer distance: "))
( C% {! W+ Q- f) }   (setq a(getangle "\nEnter chamfer angle："))
   (setvar "chamfera" d)
( w9 N- A! o  r9 y( ~/ ^) u' B% B   (setvar "chamferb" (* d (/ (sin a) (cos a))))
   (setvar "cmdecho" 1)
& e! S- ~2 {7 P! Z/ K4 E, p8 q8 D) A   (Command "chamfer")
: I) [3 `9 z' G$ {6 |   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
5 K$ [2 [" Y7 l! K% S" f   (setvar "cmdecho" 1)
   (princ)
& z* @' `# B/ Q- q; z; _4 x8 j/ i)
4 g/ f) p0 Q: E2 r2 k

! \; {9 H6 l' C! K4 v;;; =============================== test
- Z+ K8 b- x' ~. `( U7 q
Command: CHAMFRE

Enter chamfer distance: 3

Enter chamfer angle：30
+ Z: \4 N' _, L/ m: c4 g0 ^chamfer
! t3 a" U2 J+ B! I4 v(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
% [* R6 ]- d$ P% `Select first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
- w) D, |& d! f% y4 N0 [7 |Select second line:
Command:

davidaini333

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

davidaini333

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

SunVei

Ref grab:
绘制法兰盘lisp
' _9 I, }2 B8 q0 ^http://www.google.com/search?as_ ... ts=&safe=images
/ K, X0 f. X+ _' @9 `+ g
圆柱螺旋弹簧
http://www.google.com/search?hl= ... r=&aq=f&oq=