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

davidaini333

1、        编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
9 M- Z- z- P$ Y- L) h- o. o（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
$ H8 B  L4 T& R" d* o- q（graphscr）
; P. I$ U" a7 r（setq d（getdist“＼ｎ Enter chamfer distance:"））
( u3 n" r# l  n3 n. C(setq ａ（getangle“＼ｎ Enter chamfer angle："））
/ a( i* _! A5 Z$ A+ ?（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
9 e5 b' u1 D5 x1 M! X（Command“chamfer”）
（setvar“cmdecho”ｌ）
（princ）
7 h/ w, c$ v4 ]  f& q$ s8 k)

! z- S! @! u- X: K0 w, }
2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
* d7 |3 [- r9 J9 l4 l（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
（graphscr）
（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
（setvar“chamfera”ｄ）
8 r# v+ U- V) f/ s+ A# ^2 F$ d（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
! C! R. `$ O, N  z# L2 y（setvar“cmdecho”ｌ）
（princ）
)

3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
) j' ]' X1 T+ y（defun c：bc1（）
! Y7 `6 |4 c+ e5 J# }7 ]（graphscr）
, C3 k! `0 \% H' [( A0 s（setvar“cmdecho"0）
% t  g" f& |6 `) d（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
9 y* K2 C3 g" c8 w; M- T3 c（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：”））
) T& U' b3 b; ]% u2 o（setq dh（getdist“＼n Enter diameter of hole：”））
0 z1 ?- {) `' ?: ^( w. s（setq inc（/（* 2 pi）n））
1 ?1 d3 @" ]1 `0 P/ {# J（setq ang 0）
（set r(/ dh 2））
（While（＜ ang（* 2 pi））
（setq P1（Polar cr(＋ a inc）(d 2）））
& z  B+ I( S5 S" F  f3 ]（command“circle” p1 r）
0 y1 @. s4 Y  ?" v; d2 \（setq a（＋ a inc））
# P0 M1 b. D" w% b8 v# a（setq ang（＋ ang inc））
. S/ {: O( N) x5 U）
7 i0 O/ @; G/ b, I' h6 d1 D2 ^4 \（setvar“cmdecho” l）
2 q. c% h7 T7 N（Princ）
) q2 V+ T7 |/ o% O5 i4 r% L5 _）

4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
) M* z: f# ~* H6 T  B(defun c:spring()
  (setq bp(getpoint"\n弹簧中心点:"))(princ)
3 l  x$ [4 s  H# V1 a4 Y/ \  (setq dw(getreal"\n弹簧直径:"))(princ)
  (setq d(getreal"\n弹簧丝径:"))(princ)
' K, L4 m! g$ r' T  (setq pitch(getreal"\n弹簧节距:"))(princ)
  (setq len(getreal"\n弹簧中长度:"))(princ)
  (setq n(getint"\n弹簧段数:"))(princ)
  (setq r(/ (- dw d) 2))
, ^, F3 u* {3 _/ b% N9 [5 x3 Y; I. R4 s   (setq m1(fix (* n 1.25)))
( I, ~8 }' a# ^! y  (setq m0(fix (* n (/ (- len (* d 2)) pitch))))
( P7 H! m0 n) ~5 z  (setq delta(/ (* 2.0 pi) n))
+ u4 ?6 H4 _" s  (setq j0(/ pitch n))
  (setq j1(/ d n))
3 j, w4 G4 A5 |8 K: R, F  (setq bz(caddr bp))
  (setq ang 0)
  (setq jj 0)
  (command "UCS" "o" bp)
* J2 J9 N8 f  r4 C  (command "3dpoly" (list r 0 0))
  (repeat m1
  (setq jj(+ jj 1))
+ X9 j8 F, T" y2 B  (setq ang(+ delta ang))
  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
# ^# t6 z5 V1 `/ Y  (command pt1)
    )
  (setq bz(caddr pt1))
  (setq jj 0)
  H' A+ r( g4 S* b8 Q3 M   (repeat m0
; V+ {& l; N9 o; B9 x1 X4 s  (setq jj (+ jj 1))
8 H. {9 a; z  W9 }0 Z( ]  (setq ang(+ delta ang))
# J# v! H, F" }- S  (setq pt0(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j0 jj))))
. ?4 Z! e$ }; i4 ^/ }  (command pt0)
  )
    (setq bz(caddr pt0))
  (setq jj 0)
- C+ D4 R% F+ t0 \' K0 ?  (repeat m1
  (setq jj(+ jj 1))
3 J- h* z3 M/ z: V" e4 y( n  (setq ang(+ delta ang))
  (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
  (command pt2)
  )
  (command"")
  )

SunVei

此处也遇上?

once more
The first one my be some thing like this
( O! \7 E7 }3 s: c3 ~4 f
" E5 R( p4 U/ P(defun c:chamfre (/ d a)
   (setvar "cmdecho" 0)
   (graphscr)
   (setq d (getdist "\nEnter chamfer distance: "))
" n0 i( p6 p- z2 K% \9 d) M. t   (setq a(getangle "\nEnter chamfer angle："))
   (setvar "chamfera" d)
, Z% x5 b" h1 y( G   (setvar "chamferb" (* d (/ (sin a) (cos a))))
/ \: h7 S5 Y- U) `, w. E' j! @0 e3 t! k   (setvar "cmdecho" 1)
; |% s# h/ U8 r: o6 |6 i/ W   (Command "chamfer")
   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
0 ~$ a# S$ B: ^; @4 M   (setvar "cmdecho" 1)
# V% x8 }  f+ G$ Y7 \6 ~   (princ)
- \/ i' _) N9 I5 I  j. a)
% X5 G- U9 b+ h" E0 y! V: I

;;; =============================== test
1 H* E% F$ i# M* b
Command: CHAMFRE
6 E3 G2 O& C5 h8 M* y; c
2 K6 I. W9 S- [$ M$ \Enter chamfer distance: 3

Enter chamfer angle：30
( v0 f- N4 E& @, a, ichamfer
(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
Select first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
# O( f7 g* y5 x: o2 h3 Q% CSelect second line:
Command:

davidaini333

能把后面的也改一下吗？？？？？？？
$ S8 G! M. L5 N0 J4 a9 B谢谢~~~~~~~~~~

davidaini333

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

SunVei

Ref grab:
绘制法兰盘lisp
3 m2 o, y" B$ x8 r7 M* `4 whttp://www.google.com/search?as_ ... ts=&safe=images
- |5 t! B" h9 U% D. K5 r4 T4 g! ~
圆柱螺旋弹簧
+ A/ a& l8 P8 Q+ R4 Z8 Dhttp://www.google.com/search?hl= ... r=&aq=f&oq=