弹簧源程序

maoyangmy

(defun errMsg (s)                    ; 当命令执行时出现错误
' `; _+ t' F4 n8 i                                      ; 例如用户按下了CTRL + C
3 T6 A% Y, M& ~  (if (/= s "Function cancelled")
1 l# Y9 v1 I# _0 c$ d    (princ (strcat "\nError: " s))
) g0 C" D; W- ?: E  )
  (setvar "cmdecho" cmdch)            ; 恢复调用前的cmdecho系统变量值
$ w+ v- N, c% j2 [% D  (setvar "blipmode" blpmd)       ; 恢复调用前的blipmode系统变量值
  (setq *error* olderror)             ; 恢复旧的错误处理
; }" J6 T- S1 M$ [! v  (princ)
- f' c- [% L- f4 d)
(defun spring (nRepeat cntPoint bhfac lr strad bvfac
  ]* N2 `6 U7 n0 v% w7 q                / angle distnc tp aGrw dhGrw dvGrw Pi2 dv)
  (setvar "blipmode" 0)               ; 关闭 blipmode
6 V$ g7 I* b8 I  (setvar "cmdecho" 0)                ; 关闭 cmdecho
  (setq Pi2 (* 3.14159265 2))
  (setq aGrw (/ Pi2 lr))
3 m; O  F3 E- `2 a% c' |  (setq dhGrw (/ bhfac lr))
/ [- _" \) F+ P- X  (if bvfac (setq dvGrw (/ bvfac lr)))
8 u2 u8 Z8 k% g. p  (setq angle 0.0)
  (if bvfac
; y5 ~* i" P/ V) i    (setq distnc strad dv 0.0)
    (setq distnc 0.0)
  )
  (if bvfac
# g  b$ j/ [9 v, @1 G) Z- f  B    (command "3dpoly")                 ; 开始绘制弹簧
0 S" t/ [4 f* O' M( ^. `4 Y0 T    (command "pline" cntPoint)          ; 从基点开始绘制弹簧
  )
0 u) v6 M* X2 J  (repeat nRepeat
3 {  E- N' d5 a+ U    (repeat lr
. ^4 z* G6 f1 J- D3 f+ C1 @( E      (setq tp (polar cntPoint (setq angle (+ angle aGrw))
' a+ d: W8 R) m5 V. E: ~8 ]' A5 ^  y                      (setq distnc (+ distnc dhGrw))
0 W0 c: V+ g5 [8 x0 t               )
      )
      (if bvfac
: G2 f: g8 J+ a; q! f5 s          (setq tp (list (car tp) (cadr tp) (+ dv (caddr tp)))
                dv (+ dv dvGrw)
* i* j) k, C1 H0 O' `: q3 U          )
      )
/ T. M- ?! R$ |; l% c4 M; t% H      (command tp)                    ; 继续输入下一点
$ l& J. H6 Z( }* g+ E) C% x    )
1 Y& n/ l# R- }1 y1 t  )
  (command "")                        ; 输入结束
  (princ)
)
: T3 u$ }$ R, V- y4 H+ b;;;
;;;       生成三维弹簧函数调用接口
9 d& h' k2 z/ Z; j" M6 q. A;;;
(defun C:3DSPRING (/ olderror cmdch blpmd cntPt RottCnt horiGrw vertGrw bgnRdtn ptCntPerCircle)
  (setq cmdch (getvar "cmdecho"))      ; 获取cmdecho值，以便调用结束后恢复
  (setq blpmd (getvar "blipmode"))     ; 获取blipmode值，以便调用结束后恢复
  (setvar "cmdecho" 0)        ; 关闭 cmdecho
7 \- w! d: o; a2 ?  (initget 1)                         ; cntPt 必须非空
+ N" ]* Y; X. B3 q0 B. ~  (setq cntPt (getpoint "\n请输入底部中心点: "))
  (initget 7)                         ; RottCnt 必须非零、非空,不可忽略
  (setq RottCnt (getint "\n旋转的圈数: "))
  (initget 7)                         ; bgnRdtn 必须非零、非空,不可忽略
$ V: x! {5 s# }. g3 m  (setq bgnRdtn (getdist cntPt "\n起始半径: "))
  (initget 1)                         ; cf 必须非零、非空
  (setq horiGrw (getdist "\n每一圈的水平增长距离: "))
  (initget 3)                         ; cf 必须非零、非空
1 n3 Z% t- M+ a: d, ?8 b! l+ o+ C  (setq vertGrw (getdist "\n每一圈的垂直增长距离: "))
+ `/ z! O  F+ g4 n/ ^  (initget 6)                         ; ptCntPerCircle 必须非零、不可忽略
% C' Q# z+ C. f& ?  (setq ptCntPerCircle (getint "\n每一圈的插值点数<35>: "))
  R" {  P. f) z$ k  (cond ((null ptCntPerCircle) (setq ptCntPerCircle 35)))
) ?! q- |9 [+ Z0 X7 H  (spring RottCnt cntPt horiGrw ptCntPerCircle bgnRdtn vertGrw)
& y' x& M+ v( L& e- C4 K  (setvar "cmdecho" cmdch) ; 恢复调用前的cmdecho系统变量值
  (setvar "blipmode" blpmd) ; 恢复调用前的blipmode系统变量值
  (setq *error* olderror)               ; Restore old *error* handler
  (princ)
)

joseflin

Autospring.lsp可自動畫各種圓及方斷面之彈簧。

- P# ^5 g5 K: y6 v) u- {) w  Y- a8 v[ 本帖最后由 joseflin 于 2007-2-28 09:09 编辑 ]

363975658

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

轻轻的疯

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

Michael529

是英文的？看不大懂啊

samz302

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