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

davidaini333

1、        编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
) T( E0 x) \$ K: S5 }1 N2 m（graphscr）
2 c6 d& B- H+ u; e+ ?4 _* L2 x（setq d（getdist“＼ｎ Enter chamfer distance:"））
(setq ａ（getangle“＼ｎ Enter chamfer angle："））
. f5 S1 P  w) z) C% p' m% I（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
' a' _) v9 p" [6 {$ M) I（Command“chamfer”）
) ?3 y$ W) p6 Z9 V（setvar“cmdecho”ｌ）
% S7 s: F" l9 u  t( X( m* q（princ）
)


2、编写一个AutoLISP程序，在给定的两条线间通过输入倒角角度及倒角距离生成一个倒角。
; g4 c. Z- f3 |! k: r# e, ]% i, g& Q: M（defun ｃ：chamfer（／ ｄ ａ）
（setvar“cmdecho”0）
" w7 X& w$ N0 x0 p3 R# A（graphscr）
. x; g1 K6 z+ K6 a（setq d（getdist“＼ｎ Enter chamfer distance:"））
. p* s8 C; S& p! j3 B  y(setq ａ（getangle“＼ｎ Enter chamfer angle："））
7 T5 s/ _2 _, K: ~  Y3 H（setvar“chamfera”ｄ）
（setvar“chamferb”( d（/sin a （cos a)）））
（Command“chamfer”）
( ^, r6 i: g1 G（setvar“cmdecho”ｌ）
（princ）
)

  T2 L9 `# I) D) R# `5 X8 |, z3、编写一个AUtOLISP程序，生成一个带孔的法兰盘。程序还应提示用户输入该法兰盘的圆心、直径、孔径、孔数及起始角。
4 _0 n/ e% b4 p6 R  m+ ?1 q  y（defun c：bc1（）
（graphscr）
1 e6 `2 S9 Y2 C（setvar“cmdecho"0）
, _0 x, [8 e% [: ^) U5 {% B/ Z（setq cr(getpoint“\n Enter center of Bolt－Circle:")）
1 @  I9 H+ Y0 X. \1 K: s( b1 _# c（setq d（getdist“\n Dia of Bolt－Circle：”））
（setq n（getint“\n Number of holes In Bolt－Circle："））
  h. R, E: N* ?9 t（setq a（getangle“＼n Enter start angle：”））
& B: p* p$ J: C5 |9 m& k/ ~7 x（setq dh（getdist“＼n Enter diameter of hole：”））
! T0 S9 O7 l- c- b; d5 B0 w/ C& h6 u（setq inc（/（* 2 pi）n））
- M1 v5 ?8 Q! m) s+ v  _3 h（setq ang 0）
4 S" {) J' F1 u" N- `0 s/ J! n（set r(/ dh 2））
5 f& R% W9 y( x$ x（While（＜ ang（* 2 pi））
- s+ O$ d$ n6 F8 S7 B% q（setq P1（Polar cr(＋ a inc）(d 2）））
5 ]+ Q3 I& X- k! I: x（command“circle” p1 r）
1 a  C+ q3 N& C3 y（setq a（＋ a inc））
（setq ang（＋ ang inc））
）
! R7 y. c# p2 h$ N, C9 w（setvar“cmdecho” l）
5 j/ ]+ i: k1 O/ G; y- k（Princ）
0 S0 h2 y; {1 V）
9 n9 b" `; s8 L' a8 y; Z
$ ]4 u, s0 t) |( e' c4、圆柱螺旋弹簧（压簧）是将一个圆沿着一条三维螺旋线拉伸得到的。通过编程绘制三维螺旋线，尺寸如下：弹簧直径：10；弹簧丝径：1；弹簧节距：2；弹簧长度：20；每圈段数：32。
" Q+ ^$ x! X. i$ ~+ a(defun c:spring()
$ P" q7 V) D4 n8 F; I- u' K/ X  (setq bp(getpoint"\n弹簧中心点:"))(princ)
  (setq dw(getreal"\n弹簧直径:"))(princ)
  (setq d(getreal"\n弹簧丝径:"))(princ)
2 Y$ k) t: |) Q7 Y$ T' h' \! u" x  (setq pitch(getreal"\n弹簧节距:"))(princ)
* c, C* d. M  O+ i6 P0 d  y  (setq len(getreal"\n弹簧中长度:"))(princ)
  (setq n(getint"\n弹簧段数:"))(princ)
2 Q4 Z* _6 i+ H  (setq r(/ (- dw d) 2))
1 v) |/ X+ x% p* P. d: x2 ]   (setq m1(fix (* n 1.25)))
, l8 K) F& I4 r. {, l- @" F# u5 w' J  (setq m0(fix (* n (/ (- len (* d 2)) pitch))))
  (setq delta(/ (* 2.0 pi) n))
  (setq j0(/ pitch n))
) Y, P6 G* T$ x0 f3 ^) H  (setq j1(/ d n))
0 g% Y/ g/ t/ B7 B  y* a; R, W7 Z+ N  (setq bz(caddr bp))
6 @3 k4 {$ O" m' [7 E: l  (setq ang 0)
8 G5 o3 n6 ]8 N- j7 e, n4 I. |  (setq jj 0)
+ X7 U) e$ K$ I+ _5 h& q  (command "UCS" "o" bp)
. `0 K2 E2 C% y" w3 [' ~  (command "3dpoly" (list r 0 0))
8 y- w' f3 g+ R, z7 A) e  (repeat m1
' H' a  ~1 z* Y7 _8 a  (setq jj(+ jj 1))
$ c2 Z% T6 T% U7 ^0 h7 w5 I& ^' I  (setq ang(+ delta ang))
  (setq pt1(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
# t" c$ G' X. ^2 @; L( B+ ~  (command pt1)
    )
! |; P2 W& m7 X4 c1 u( j  (setq bz(caddr pt1))
" x8 o% o5 g- _  (setq jj 0)
   (repeat m0
' K$ ~- l' r8 I" B& t+ N  (setq jj (+ jj 1))
  (setq ang(+ delta ang))
' M" x2 n; b  H  (setq pt0(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j0 jj))))
  (command pt0)
  )
6 R! V. g+ Z& \. X8 Q" v    (setq bz(caddr pt0))
  (setq jj 0)
' d" E5 N# V* b2 Y  (repeat m1
  (setq jj(+ jj 1))
9 J. g) u# h4 G% j- D' ?! X/ x  (setq ang(+ delta ang))
7 E& Z( E; E* w7 \2 n" e  (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ bz (* j1 jj))))
  (command pt2)
  )
  (command"")
  )

SunVei

此处也遇上?
7 d9 |  N9 B2 a, ~: e# q
once more
  i! R! z  L) U2 x+ ^9 Q( n3 qThe first one my be some thing like this

9 _1 T# V& w  w, |5 F8 U(defun c:chamfre (/ d a)
8 O3 y- R6 S8 B! I   (setvar "cmdecho" 0)
& Z( _# \/ V& n9 L, {   (graphscr)
   (setq d (getdist "\nEnter chamfer distance: "))
   (setq a(getangle "\nEnter chamfer angle："))
  ^+ H( b5 t' w( b. e/ D   (setvar "chamfera" d)
   (setvar "chamferb" (* d (/ (sin a) (cos a))))
   (setvar "cmdecho" 1)
   (Command "chamfer")
* J6 A1 p0 D& x% [5 T" g   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
8 W: p% m4 d) E- z+ n   (setvar "cmdecho" 1)
   (princ)
8 x1 p8 Y. g. f, G7 _( C/ ])
2 R+ t. o' d- S* e! b3 G; ^) [
( j5 H# |, n  S
;;; =============================== test

Command: CHAMFRE
& P0 U: y9 r/ N$ U% v1 a1 c/ D
Enter chamfer distance: 3
2 t9 e1 y8 n5 `3 K0 I1 H* f2 S: N) `
, S# [$ n# Q0 T2 F6 XEnter chamfer angle：30
/ R* G2 `5 w- y# v- E8 A7 mchamfer
(TRIM mode) Current chamfer Dist1 = 3.0000, Dist2 = 1.7321
, Q: G% ]' s0 SSelect first line or [Polyline/Distance/Angle/Trim/Method/mUltiple]:
; t; d! Y4 n2 Y2 f/ {Select second line:
3 v8 P& I( e! g) Z8 E  ?+ s7 oCommand:

davidaini333

能把后面的也改一下吗？？？？？？？
9 H: R" ~. _( E谢谢~~~~~~~~~~

davidaini333

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

SunVei

Ref grab:
! d% z# M' S! F绘制法兰盘lisp
3 t3 }9 t7 R1 |, N% B: O& c* T" whttp://www.google.com/search?as_ ... ts=&safe=images
+ ^) ^$ |' K, z
8 C: l% c7 b7 @9 Q& X! Q圆柱螺旋弹簧
http://www.google.com/search?hl= ... r=&aq=f&oq=