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

davidaini333

1、        编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
1 C$ u4 R& X  `! V6 |6 D0 ^, T（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
（graphscr）
# ?5 v+ V. q/ }& K（setq d（getdist“＼ｎ Enter chamfer distance:"））
1 p- Q4 h" V& r& U4 f& n(setq ａ（getangle“＼ｎ Enter chamfer angle："））
* G2 }# ?; u# k; b: e+ i1 J（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
6 |7 t5 V/ \3 a' O（Command“chamfer”）
) i# g3 k+ |7 t9 n1 K（setvar“cmdecho”ｌ）
; l5 c1 Q9 h! k（princ）
)


$ o" U8 W$ f3 y5 w. I$ I5 H2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
（graphscr）
! K* g4 I* p# e0 N1 |（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
( c% m, e; \% z" G' d* p+ J2 u5 V（setvar“chamferb”( d（/sin a （cos a)）））
: A& ?6 W! G% t, S- O9 y（Command“chamfer”）
) c& V: t( A5 F0 j（setvar“cmdecho”ｌ）
（princ）
)
: \0 ~1 ]; X" W. l  F& W
7 m1 r6 E) }* ]# D3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
) t% ]2 M; u: X  Z7 R: J; w（defun c：bc1（）
' X1 v0 w/ K1 V7 x. t' L（graphscr）
（setvar“cmdecho"0）
（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
（setq d（getdist“\n Dia of Bolt－Circle：”））
' x! b/ o5 }6 t) b: c# M（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））
( ]! `9 m- s; T; l: c（setq ang 0）
（set r(/ dh 2））
（While（＜ ang（* 2 pi））
( Q+ ^. e* ?; u5 U# M8 {（setq P1（Polar cr(＋ a inc）(d 2）））
+ B" F: g4 t. J（command“circle” p1 r）
- K0 }2 u3 ~5 H2 o) i: N2 o（setq a（＋ a inc））
2 O+ q! Y$ P+ y% g$ ~5 y: J（setq ang（＋ ang inc））
+ N: D% @: ]0 V$ v& ^8 v- u9 [5 t）
（setvar“cmdecho” l）
: ~% s0 B  D  |( H- y3 t（Princ）
）

4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
(defun c:spring()
  (setq bp(getpoint"\n弹簧中心点:"))(princ)
6 ]) f7 w" z4 g) _3 V3 y/ x" ?. R  (setq dw(getreal"\n弹簧直径:"))(princ)
# Q9 U/ ~( u0 A5 m  (setq d(getreal"\n弹簧丝径:"))(princ)
  (setq pitch(getreal"\n弹簧节距:"))(princ)
3 o# I2 N' l6 s+ y8 G  (setq len(getreal"\n弹簧中长度:"))(princ)
  (setq n(getint"\n弹簧段数:"))(princ)
4 l* @( _2 L- c3 E' T& y0 b; [  (setq r(/ (- dw d) 2))
. i) L4 Y) K% `6 ^9 H   (setq m1(fix (* n 1.25)))
  (setq m0(fix (* n (/ (- len (* d 2)) pitch))))
: c; k7 ]" l6 o. r0 E; C  (setq delta(/ (* 2.0 pi) n))
, @" E. |5 n, Y  (setq j0(/ pitch n))
6 C" P$ d- Y* m5 [8 b  (setq j1(/ d n))
  (setq bz(caddr bp))
  (setq ang 0)
  (setq jj 0)
  (command "UCS" "o" bp)
( k; v7 K9 b& y" R  (command "3dpoly" (list r 0 0))
  (repeat m1
  (setq jj(+ jj 1))
  (setq ang(+ delta ang))
  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
  (command pt1)
    )
  (setq bz(caddr pt1))
6 _% j& d3 N4 T  (setq jj 0)
   (repeat m0
  (setq jj (+ jj 1))
7 i3 @7 L" n5 d  (setq ang(+ delta ang))
' O& ?) G4 L4 _4 C  (setq pt0(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j0 jj))))
  (command pt0)
7 o7 z) {* z4 M7 v4 y  )
    (setq bz(caddr pt0))
  (setq jj 0)
: ?1 c' z9 e# T3 D  (repeat m1
  (setq jj(+ jj 1))
  R8 u& ]* G7 A, D  (setq ang(+ delta ang))
$ D4 V( c: ~) i; {" c) _8 t  (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
; i3 \1 u/ p9 s6 O( C3 K  (command pt2)
% G( s% W% S1 w  )
  (command"")
+ h1 z, L- O1 C- K, F+ s) [) S( o% V  )

SunVei

此处也遇上?

once more
The first one my be some thing like this

+ S  H& C) ?, l5 K1 L& N(defun c:chamfre (/ d a)
# a- P0 I2 z' i. b. j   (setvar "cmdecho" 0)
% [/ J3 }! n% e" M, k! B5 S   (graphscr)
   (setq d (getdist "\nEnter chamfer distance: "))
   (setq a(getangle "\nEnter chamfer angle："))
( L3 g; S, Q2 k7 _; Q7 v& c   (setvar "chamfera" d)
; J+ k" Y0 [4 O4 x5 f- Y$ T* \$ p   (setvar "chamferb" (* d (/ (sin a) (cos a))))
* p% U  f  @( Q/ Z, T& V   (setvar "cmdecho" 1)
   (Command "chamfer")
   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
$ B( [( J1 m( C4 h$ L  @   (setvar "cmdecho" 1)
. S5 ^9 k! c' _. H9 g! _/ u6 [. P   (princ)
)

  V  n0 i: r* s( k9 Q
;;; =============================== test
6 e. j  v8 [6 D, J" G2 I# W
$ x% M8 R- I5 x- R8 UCommand: CHAMFRE
8 p* b% q3 p- |, u* n
& p( B# s; t8 q$ k3 M8 `' U7 `Enter chamfer distance: 3
5 x2 a" ?6 r/ x& H
, q7 {( Q  P- c9 Z6 sEnter chamfer angle：30
6 _5 D4 V1 H7 A! B( |chamfer
! q0 E3 u" f) o(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
; s5 [1 K( @0 ^* k3 f; g: \Select first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
$ s* |$ ?4 x: N: E+ HSelect second line:
3 F6 o/ n9 b4 F& ]% v  JCommand:

davidaini333

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

davidaini333

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

SunVei

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

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