弹簧源程序

maoyangmy

(defun errMsg (s)                    ; 当命令执行时出现错误
                                      ; 例如用户按下了CTRL + C
  (if (/= s "Function cancelled")
    (princ (strcat "\nError: " s))
. ~8 ~. k; G# e  )
  (setvar "cmdecho" cmdch)            ; 恢复调用前的cmdecho系统变量值
  (setvar "blipmode" blpmd)       ; 恢复调用前的blipmode系统变量值
5 j; I) h# P0 o6 Y6 }1 R7 \( R  (setq *error* olderror)             ; 恢复旧的错误处理
& J2 T+ K( F5 k% G5 [  (princ)
)
(defun spring (nRepeat cntPoint bhfac lr strad bvfac
4 b% m: x6 A  W                / angle distnc tp aGrw dhGrw dvGrw Pi2 dv)
  i: |$ m0 L* F' A0 V8 W- l6 ^  (setvar "blipmode" 0)               ; 关闭 blipmode
  (setvar "cmdecho" 0)                ; 关闭 cmdecho
  (setq Pi2 (* 3.14159265 2))
2 U' i" z1 B$ o0 v* A0 G3 y  (setq aGrw (/ Pi2 lr))
  (setq dhGrw (/ bhfac lr))
  (if bvfac (setq dvGrw (/ bvfac lr)))
  (setq angle 0.0)
$ r3 W2 e) c0 g9 q  (if bvfac
    (setq distnc strad dv 0.0)
0 |. V  Q. x& N. ~$ J0 K    (setq distnc 0.0)
  )
  (if bvfac
    (command "3dpoly")                 ; 开始绘制弹簧
$ M$ L6 I/ I4 f. }0 _* Y( ^* ~) F    (command "pline" cntPoint)          ; 从基点开始绘制弹簧
3 r. O* U( T1 X/ a' b( w2 E# \  )
  (repeat nRepeat
    (repeat lr
% ]3 \6 ^# q% [' q0 b9 \# ~/ p- F      (setq tp (polar cntPoint (setq angle (+ angle aGrw))
                      (setq distnc (+ distnc dhGrw))
               )
$ N8 |) G9 f: I! f/ d8 ]      )
5 t3 K* p/ ^% g1 V% N; W! a      (if bvfac
          (setq tp (list (car tp) (cadr tp) (+ dv (caddr tp)))
                dv (+ dv dvGrw)
          )
      )
* Z4 \4 r" T) C; g% j      (command tp)                    ; 继续输入下一点
    )
7 I3 i" S0 V* }  )
6 a4 W1 h# X+ {7 A4 P  (command "")                        ; 输入结束
; r- R5 H7 M( C9 o0 x! f1 m  (princ)
)
;;;
8 O4 L! M: `% Q2 h;;;       生成三维弹簧函数调用接口
) C- W. c" V& C* u6 D;;;
9 a9 [, e2 L6 w(defun C:3DSPRING (/ olderror cmdch blpmd cntPt RottCnt horiGrw vertGrw bgnRdtn ptCntPerCircle)
- |: \2 L  ]8 D6 @& \, l) y  (setq cmdch (getvar "cmdecho"))      ; 获取cmdecho值，以便调用结束后恢复
, Q0 u0 w5 x3 p: ^+ Q  (setq blpmd (getvar "blipmode"))     ; 获取blipmode值，以便调用结束后恢复
  (setvar "cmdecho" 0)        ; 关闭 cmdecho
, v% R$ c- |+ |4 x" V4 A' ~  (initget 1)                         ; cntPt 必须非空
  (setq cntPt (getpoint "\n请输入底部中心点: "))
  (initget 7)                         ; RottCnt 必须非零、非空,不可忽略
5 k/ f2 ^! c1 {( U  (setq RottCnt (getint "\n旋转的圈数: "))
  (initget 7)                         ; bgnRdtn 必须非零、非空,不可忽略
  (setq bgnRdtn (getdist cntPt "\n起始半径: "))
  (initget 1)                         ; cf 必须非零、非空
8 C6 Z6 R8 `6 {: V- V1 k' B  (setq horiGrw (getdist "\n每一圈的水平增长距离: "))
0 g8 R. s7 V3 V& {  (initget 3)                         ; cf 必须非零、非空
  (setq vertGrw (getdist "\n每一圈的垂直增长距离: "))
  (initget 6)                         ; ptCntPerCircle 必须非零、不可忽略
  (setq ptCntPerCircle (getint "\n每一圈的插值点数<35>: "))
  (cond ((null ptCntPerCircle) (setq ptCntPerCircle 35)))
  (spring RottCnt cntPt horiGrw ptCntPerCircle bgnRdtn vertGrw)
  (setvar "cmdecho" cmdch) ; 恢复调用前的cmdecho系统变量值
  (setvar "blipmode" blpmd) ; 恢复调用前的blipmode系统变量值
  (setq *error* olderror)               ; Restore old *error* handler
  (princ)
)

joseflin

Autospring.lsp可自動畫各種圓及方斷面之彈簧。
2 ]3 l, f4 N: ~2 ?2 u
[ 本帖最后由 joseflin 于 2007-2-28 09:09 编辑 ]

363975658

能不能详细说一下 Autospring.lsp 是怎么 调用的阿？

轻轻的疯

不懂,看不明白,还是非常感谢楼主的分享!

Michael529

是英文的？看不大懂啊

samz302

这个程度，我不知道用啊。能不能交我怎么用啊。