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

davidaini333

1、        编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
5 Q. Q: e5 _+ E: \" a* b+ U（defun ｃ：chamfer（／ ｄ ａ）
# R6 L) R: @) e（setvar“cmdecho”0）
+ k1 D+ M9 z! I（graphscr）
7 b/ p1 S# ^9 s* ~& C3 R  y/ \4 p' a（setq d（getdist“＼ｎ Enter chamfer distance:"））
* {/ s0 F, I' P1 `* V% X1 m(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
; B6 q- Z' d) R6 e& {! L0 _2 b（setvar“chamferb”( d（/sin a （cos a)）））
2 d" R) P: T9 p- I7 D（Command“chamfer”）
（setvar“cmdecho”ｌ）
（princ）
)
6 _, ~/ y. P% J3 J" z% p

2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ ｄ ａ）
2 Z6 C( O5 e* G" e' n（setvar“cmdecho”0）
（graphscr）
（setq d（getdist“＼ｎ Enter chamfer distance:"））
8 D8 Z$ A/ \( y! g2 N(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
0 b+ q6 w! t' l) ~9 v; A（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
（setvar“cmdecho”ｌ）
. r6 d; u, T+ _; c（princ）
)

; v& N$ _- a. M$ W5 ]# ^# }! \0 ]5 L3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
（defun c：bc1（）
8 z! N- W# o8 X- o（graphscr）
5 w# {- `7 V* {8 O& Z9 I2 C（setvar“cmdecho"0）
（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
（setq d（getdist“\n Dia of Bolt－Circle：”））
( f% l6 n+ m4 \2 v- y# |8 L（setq n（getint“\n Number of holes In Bolt－Circle："））
/ k1 X* R% H/ _& W1 t# d（setq a（getangle“＼n Enter start angle：”））
（setq dh（getdist“＼n Enter diameter of hole：”））
（setq inc（/（* 2 pi）n））
5 h3 G3 f  k0 o' l* K+ a1 g4 c4 s. M（setq ang 0）
（set r(/ dh 2））
（While（＜ ang（* 2 pi））
（setq P1（Polar cr(＋ a inc）(d 2）））
- _' a. }$ \* p; E1 f（command“circle” p1 r）
, j$ f; o# H$ s（setq a（＋ a inc））
（setq ang（＋ ang inc））
）
8 i/ h, o/ H2 k, C) u" q' B2 _$ t（setvar“cmdecho” l）
（Princ）
7 n- A9 y4 q- T）

+ g" {1 ]. W2 Y! Z% |1 s, E4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
6 A9 o) j: ~5 v+ ?1 [(defun c:spring()
  (setq bp(getpoint"\n弹簧中心点:"))(princ)
  (setq dw(getreal"\n弹簧直径:"))(princ)
  (setq d(getreal"\n弹簧丝径:"))(princ)
! c; n, g, P0 b7 C0 p% V  (setq pitch(getreal"\n弹簧节距:"))(princ)
3 p' I; @. v' K  (setq len(getreal"\n弹簧中长度:"))(princ)
  (setq n(getint"\n弹簧段数:"))(princ)
  (setq r(/ (- dw d) 2))
   (setq m1(fix (* n 1.25)))
  (setq m0(fix (* n (/ (- len (* d 2)) pitch))))
  (setq delta(/ (* 2.0 pi) n))
; z/ i3 @, m5 c' \  (setq j0(/ pitch n))
! N( F. U, ]; P* V' S  (setq j1(/ d n))
  (setq bz(caddr bp))
2 N9 \) R) Z: |, o& [0 ]; Y" O+ y  (setq ang 0)
  (setq jj 0)
1 X0 X* F* k$ l! l! a6 b9 i  (command "UCS" "o" bp)
  (command "3dpoly" (list r 0 0))
  (repeat m1
7 }8 a6 T# L; v& P, h. ]  (setq jj(+ jj 1))
4 |2 n. p/ |6 Z3 m! c0 k4 M  (setq ang(+ delta ang))
/ t- i8 i3 ]* S0 A9 }) v  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
  (command pt1)
    )
  (setq bz(caddr pt1))
  (setq jj 0)
6 W7 \0 K! ]; i; H) {2 ]: g   (repeat m0
8 f0 [) X# J4 L) j; S  (setq jj (+ jj 1))
  (setq ang(+ delta ang))
8 f  H+ f+ J7 ?* {  (setq pt0(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j0 jj))))
  (command pt0)
  )
    (setq bz(caddr pt0))
# M& g8 Y0 P- |, d2 S  p7 h  (setq jj 0)
  (repeat m1
  (setq jj(+ jj 1))
8 |, f8 P) p7 P  (setq ang(+ delta ang))
  (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
0 q, _" C; _) O1 C, k  (command pt2)
* v% x1 j# U' G  )
0 W; F- G% R  N% _5 e  (command"")
  )

SunVei

此处也遇上?
9 F& {* W$ K5 O( l' [" k* r
once more
The first one my be some thing like this

(defun c:chamfre (/ d a)
   (setvar "cmdecho" 0)
, M- A; C* ]/ w3 O: I3 G   (graphscr)
   (setq d (getdist "\nEnter chamfer distance: "))
; Z- A4 V$ W& |7 R$ p/ |2 T; @   (setq a(getangle "\nEnter chamfer angle："))
   (setvar "chamfera" d)
. ]: T5 F5 A) a% j. Z: K( B9 [9 L) V$ w   (setvar "chamferb" (* d (/ (sin a) (cos a))))
   (setvar "cmdecho" 1)
1 o/ N" U# z+ k0 y# t   (Command "chamfer")
2 C% P8 ?+ q# j& ?   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
   (setvar "cmdecho" 1)
& c0 k( X$ }3 G. r+ j$ W' z* s) B   (princ)
# x8 v" A  \% Z, j)
/ p! c4 F1 ]- q: Z, ~; w/ P
/ O2 G4 t$ g  C
/ H7 p1 u  c! p, U& d7 t;;; =============================== test

0 e( r8 o8 d. s3 _; d! |Command: CHAMFRE

. E- V: a! n5 V; G& E8 ?. wEnter chamfer distance: 3

% l, b, z( b3 ~( [$ UEnter chamfer angle：30
chamfer
(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
Select first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
Select second line:
Command:

davidaini333

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

davidaini333

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

SunVei

Ref grab:
绘制法兰盘lisp
: b& l8 k" }5 _1 M4 C$ yhttp://www.google.com/search?as_ ... ts=&safe=images
& [% O- s, t1 x) ]
圆柱螺旋弹簧
8 g  M* |4 l5 z7 t* G( B  B8 f: j6 Khttp://www.google.com/search?hl= ... r=&aq=f&oq=