[LISP]\求助圆柱压缩弹簧补丁.rar

zmdjing

请教各位高手，我的LSP那里错了。怎么么不可以画啊。谢谢。。。。。。全部内容在压缩包内！！！！！！

zmdjing

2. (defun c:luox(/)
3.   (setq bl (getpoint"请指定螺旋线基点: "))
4.   (setq r (getreal"请指定螺旋线平均半径: "))
5.   (setq disp ( getreal"请输入螺旋线节距: "))
6.   (setq n (getint"请输入每圈细化段数:"))
7.   (setq delta (/(* 2.0 pi) n))
8.   (setq j (/ disp n))
9.   (setq bb(caddr bl))
10.   (setq ang 0)
11.   (setq k 0)
12.   (command "ucs" "o" bl)
13.   (command "3dpoly" (list r 0 0))
14.   (repeat n
15.     (setq k(+ k 1))
16.     (setq ang(+ delta ang))
17.     (setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))
18.     (command pt2)
19.     )
20.   (command "")
21.       )

(defun c:luox(/)   (setq bl (getpoint"请指定螺旋线基点: "))   (setq r (getreal"请指定螺旋线平均半径: "))   (setq disp ( getreal"请输入螺旋线节距: "))   (setq n (getint"请输入每圈细化段数:"))   (setq delta (/(* 2.0 pi) n))   (setq j (/ disp n))   (setq bb(caddr bl))   (setq ang 0)   (setq k 0)   (command "ucs" "o" bl)   (command "3dpoly" (list r 0 0))   (repeat n     (setq k(+ k 1))     (setq ang(+ delta ang))     (setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))     (command pt2)     )   (command "")       )

zmdjing

上面的是CAD圆柱形弹簧的LISP程序

  现和大家分享   如还有不懂的QQ我

             282206672

zmdjing

不是的错了那是可以下载的