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

davidaini333

1、        编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ ｄ ａ）
( w$ c3 ]  V' a0 S" U（setvar“cmdecho”0）
（graphscr）
（setq d（getdist“＼ｎ Enter chamfer distance:"））
  j% i/ g1 c4 Z8 t6 e8 F(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
& e7 v) d7 W9 Z（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
（setvar“cmdecho”ｌ）
（princ）
)
# b2 i6 M; D2 U; v  v) v8 y

2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
8 R  V+ f! e; M" m% N& d1 R（defun ｃ：chamfer（／ ｄ ａ）
6 f/ q" |9 [. n' X& T（setvar“cmdecho”0）
$ B6 K- |/ b  E+ X5 T, G! z（graphscr）
( G) X3 n* |9 D4 \（setq d（getdist“＼ｎ Enter chamfer distance:"））
2 c) V2 \# M4 V7 }(setq ａ（getangle“＼ｎ Enter chamfer angle："））
; K$ [2 \9 W2 a. j（setvar“chamfera”ｄ）
. A" l$ |) y4 }- O6 f) i5 Z（setvar“chamferb”( d（/sin a （cos a)）））
# `2 H3 k4 C# h2 E* h& u（Command“chamfer”）
（setvar“cmdecho”ｌ）
" T8 K  C1 k) p8 O& {8 J6 ^（princ）
0 J, T9 z9 P1 A1 K)

2 j" m8 s7 d+ D) |. y, i3 v: G! b3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
（defun c：bc1（）
（graphscr）
( ~0 f* F, Q6 K( Q  U8 V2 g5 K（setvar“cmdecho"0）
（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
& c4 u7 E( n8 ~+ w( m9 d$ g& T（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：”））
. j3 D, s( K6 U# r+ z（setq dh（getdist“＼n Enter diameter of hole：”））
（setq inc（/（* 2 pi）n））
1 e+ `1 m; m* a' Y4 h（setq ang 0）
2 s6 Q. s9 v$ Z( S（set r(/ dh 2））
（While（＜ ang（* 2 pi））
（setq P1（Polar cr(＋ a inc）(d 2）））
3 F% T8 [( H) [3 s（command“circle” p1 r）
（setq a（＋ a inc））
（setq ang（＋ ang inc））
）
* ?: o# v* ]. x( ~% I! w（setvar“cmdecho” l）
（Princ）
5 T, ]! H; s, y* s& ~. k" ^）
+ @- p5 `- G1 k
$ |5 P  P0 y3 L" D: o+ K1 P4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
6 e2 i& Y+ n& Z% x" k) z! i$ o: r(defun c:spring()
, G0 M, [1 }; ^  (setq bp(getpoint"\n弹簧中心点:"))(princ)
% ~" M6 u$ ^8 v2 {6 X  (setq dw(getreal"\n弹簧直径:"))(princ)
  (setq d(getreal"\n弹簧丝径:"))(princ)
  (setq pitch(getreal"\n弹簧节距:"))(princ)
/ Y$ y! h& v) W( m0 q6 B' h8 h  (setq len(getreal"\n弹簧中长度:"))(princ)
# e$ [% ]' B/ U7 D5 K  (setq n(getint"\n弹簧段数:"))(princ)
( W# ?" D: \6 |* d  (setq r(/ (- dw d) 2))
   (setq m1(fix (* n 1.25)))
  (setq m0(fix (* n (/ (- len (* d 2)) pitch))))
2 [, w% p/ z+ p+ V  (setq delta(/ (* 2.0 pi) n))
4 j0 y% V  m) _& s! }+ \* R0 T  (setq j0(/ pitch n))
  (setq j1(/ d n))
  (setq bz(caddr bp))
  (setq ang 0)
  (setq jj 0)
  (command "UCS" "o" bp)
# L+ s9 ~% ^2 F. r1 Q  (command "3dpoly" (list r 0 0))
  (repeat m1
1 l# ]. P. D& H  (setq jj(+ jj 1))
  (setq ang(+ delta ang))
  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
: h/ X. T! U% F* g! N7 T7 f  (command pt1)
  ~0 `( _: m# o! p1 e7 s    )
! O* A9 E) M7 F, G6 `8 I  (setq bz(caddr pt1))
& _( K4 S( |% X1 |) Y+ o: t" e  (setq jj 0)
! U  I: ]; l4 L5 G6 {2 S9 v   (repeat m0
8 T  s  j: M; s. }; A  (setq jj (+ jj 1))
  (setq ang(+ delta ang))
  (setq pt0(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j0 jj))))
  (command pt0)
  )
    (setq bz(caddr pt0))
9 I  K- r2 N2 t9 n( f$ C  (setq jj 0)
  (repeat m1
8 \  f* d3 L- m& y  (setq jj(+ jj 1))
% Z, [! X+ P  v; c# W- S  (setq ang(+ delta ang))
+ V& V% ^* n: r  (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
  (command pt2)
  )
; m6 f9 @$ L5 q; e; q  (command"")
  )

SunVei

此处也遇上?
0 T7 q8 V- k: U, s0 Q* {
2 r/ ]$ q; g. Q& g& t+ `, conce more
The first one my be some thing like this
2 O+ F# e) t: E6 i4 {/ w
+ ^  g" `0 j4 e, t5 Y% |2 i(defun c:chamfre (/ d a)
; C; `& c1 I' d. H' b   (setvar "cmdecho" 0)
2 S% w# b& d# Z   (graphscr)
   (setq d (getdist "\nEnter chamfer distance: "))
   (setq a(getangle "\nEnter chamfer angle："))
   (setvar "chamfera" d)
   (setvar "chamferb" (* d (/ (sin a) (cos a))))
% H$ ^- V* g! F5 ?; e   (setvar "cmdecho" 1)
" t, Q4 O. P% G# q( p   (Command "chamfer")
   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
   (setvar "cmdecho" 1)
   (princ)
5 C; _$ m4 Q6 L)

* Q" b$ L% `) s# {9 d. O
;;; =============================== test
- D4 R: S/ ?# o, p+ Z. I
; J6 q8 }9 x: d, D* d- S9 T: iCommand: CHAMFRE

Enter chamfer distance: 3
7 m& F  P7 z) b# e$ V$ e
+ H* X+ D- {' B( o# d2 ]8 JEnter chamfer angle：30
chamfer
" v+ t  ?/ e( {3 [4 \(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
1 p: w' l! {) y4 R6 F# P* l1 c6 ySelect first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
Select second line:
5 K1 {5 Q0 O6 I: l8 XCommand:

davidaini333

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

davidaini333

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

SunVei

Ref grab:
9 m2 Q0 c9 w* v; a2 N, W绘制法兰盘lisp
6 Y7 d+ {. [! M: l+ j2 E) fhttp://www.google.com/search?as_ ... ts=&safe=images

圆柱螺旋弹簧
) d" b9 b! r0 s" e7 shttp://www.google.com/search?hl= ... r=&aq=f&oq=