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

davidaini333

1、        编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ ｄ ａ）
3 Z' ?: z/ z+ ?# i6 c) D（setvar“cmdecho”0）
* p, V+ L7 u- Z0 u4 z. I（graphscr）
5 w' m, X; z' v% s, L5 `（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
5 w3 z, b" O9 Y/ U& b; n- G) a5 |（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
6 V, C+ _3 s- W: B' \9 [* Q" f（Command“chamfer”）
# I% T( y) r2 W* a# I  f（setvar“cmdecho”ｌ）
0 g- o7 T# Q: N  ~; c（princ）
)
2 o% U2 Q( e% m

. m. L1 k! O% H/ X' [2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
6 y! q/ |; G3 P' Z& y: g) M（graphscr）
5 |' M! m: X7 H3 m' s（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
' E5 Q4 L: N1 x! ]3 p/ {4 t$ l（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
（setvar“cmdecho”ｌ）
1 k, ~9 f6 T6 q+ ]+ e  N% B+ U0 Y（princ）
, P3 n5 g" j! h4 k)
4 ~  g- W( n% r4 r  U
3 S/ e7 D! O# c. I; q3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
（defun c：bc1（）
* S( p( y& Q* N, k% q. M（graphscr）
4 X- `! k7 k& |9 ~6 R% l（setvar“cmdecho"0）
3 w& d5 g0 w- o# }（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
（setq d（getdist“\n Dia of Bolt－Circle：”））
（setq n（getint“\n Number of holes In Bolt－Circle："））
- W. j1 Z. v% L; B* Y6 \! [) p4 F% ?（setq a（getangle“＼n Enter start angle：”））
5 |) w( T# P/ m* [" Q9 j（setq dh（getdist“＼n Enter diameter of hole：”））
- m; ~! ^0 g" Y/ Z（setq inc（/（* 2 pi）n））
（setq ang 0）
- S$ @$ ?- U; ]- g7 p% i（set r(/ dh 2））
( I- E/ A, k  a  ^+ ^( }# `（While（＜ ang（* 2 pi））
（setq P1（Polar cr(＋ a inc）(d 2）））
（command“circle” p1 r）
（setq a（＋ a inc））
( T# V( u9 |/ s* Z（setq ang（＋ ang inc））
）
  |% j' f6 B2 ~9 F1 x3 M- i（setvar“cmdecho” l）
3 |" O+ V. p% A- d# f$ y; H（Princ）
) N3 R0 f5 g' c$ I' b- G）
2 @& k. `: I$ o5 T
: X9 a% _# a$ X. j4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
(defun c:spring()
) R  @+ J+ F( T- \) v/ P) y  (setq bp(getpoint"\n弹簧中心点:"))(princ)
) q4 \: ^7 H7 ~& _  (setq dw(getreal"\n弹簧直径:"))(princ)
9 @& w* \0 r4 I5 h* ^1 Z+ h  (setq d(getreal"\n弹簧丝径:"))(princ)
  (setq pitch(getreal"\n弹簧节距:"))(princ)
; G3 i9 u6 y; t* A  (setq len(getreal"\n弹簧中长度:"))(princ)
. _; k+ m1 c* i+ A  (setq n(getint"\n弹簧段数:"))(princ)
1 f. J, z; i% d8 L0 ^- K  (setq r(/ (- dw d) 2))
   (setq m1(fix (* n 1.25)))
  (setq m0(fix (* n (/ (- len (* d 2)) pitch))))
9 f( L. Q' J- Z' w5 G. Z  (setq delta(/ (* 2.0 pi) n))
' b" b% A/ W# s/ Y' C0 F  (setq j0(/ pitch n))
- G/ Y  h3 f& W9 G: G, h) s- s  (setq j1(/ d n))
5 |/ T" T# Q+ m) s* N: Q. t( o6 j  (setq bz(caddr bp))
  (setq ang 0)
  (setq jj 0)
  (command "UCS" "o" bp)
  (command "3dpoly" (list r 0 0))
  (repeat m1
+ F1 L& K- r5 R  S, B4 C: J  (setq jj(+ jj 1))
  (setq ang(+ delta ang))
" j6 x; r( e9 m8 a  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
6 ~) o: [. j  E1 e  (command pt1)
    )
( ~9 |; e: F" E  A# _  (setq bz(caddr pt1))
, W& t) k+ y/ @  (setq jj 0)
1 g! j* t" n. S8 r5 @1 J& }; q   (repeat m0
  (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))
" }. T: Y  N$ e* H0 {  (setq jj 0)
9 }8 F& r% }1 ^" {  (repeat m1
4 O5 u# i1 K6 |9 Q; |1 w' B  (setq jj(+ jj 1))
  (setq ang(+ delta ang))
  (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
! N' U9 `  I; y, x; k) c' Z2 d7 ~  (command pt2)
  )
  (command"")
  )

SunVei

此处也遇上?
" a9 \5 Q4 b! Y( H+ A7 R
) R/ I4 L+ F3 I( _7 }once more
. ?# i; M  m6 p$ k4 v% D# DThe first one my be some thing like this

(defun c:chamfre (/ d a)
4 I3 L: D+ c* r3 s8 L  b. g   (setvar "cmdecho" 0)
   (graphscr)
; U# A& f& v  e) t/ V# K9 W; \   (setq d (getdist "\nEnter chamfer distance: "))
0 {, d# J  r% O7 _% z- y) v   (setq a(getangle "\nEnter chamfer angle："))
   (setvar "chamfera" d)
. M1 d1 ]* L! M5 d% x1 |+ V7 {7 S; t   (setvar "chamferb" (* d (/ (sin a) (cos a))))
   (setvar "cmdecho" 1)
   (Command "chamfer")
   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
% j% e& Y( q* w" J1 }1 y   (setvar "cmdecho" 1)
; y, K8 `" y) w, |& N7 E( s   (princ)
)

1 v! c6 I+ R0 M. W3 C' ^- v
;;; =============================== test

Command: CHAMFRE

# T9 y3 m' T7 V( z" yEnter chamfer distance: 3

Enter chamfer angle：30
chamfer
/ B& _* E# p, j7 c. g$ f(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
; X$ L7 p! L9 ]8 a# ISelect first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
+ J" n% ^3 p- }- l" p' F* H% DSelect second line:
1 @+ _; W+ V) ?  b2 pCommand:

davidaini333

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

davidaini333

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

SunVei

Ref grab:
9 P! I, V% g9 y4 b' b绘制法兰盘lisp
http://www.google.com/search?as_ ... ts=&safe=images

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