螺旋线程序

LOVELYAREA

下面这个螺旋线程序，只能画一层螺旋线，还需要使用阵列才能实现多层螺旋线！画螺丝的时候每层螺纹接口处都会出现偏差！而且阵列之后不知道为什么这些线不能合并！！
. B* a+ a6 x- F0 ~请问可以把程序修改一下，直接就可以画出一条多层的螺旋线！这样就不用出现接口出衔接不上的问题了！
6 q. H* o  F; P8 R5 `



( x6 S% z& F  _# P, V# ]把下面的程序导入cad ,就可以画螺纹了！（２００７以前的版本）．画螺纹的命令就是luox
9 d2 U& M& {* y(defun C:luox(/)
7 {1 u. v* h' t(setq b1 (getpoint"请指定螺旋线基点:"))
(setq r (getreal"请指定螺旋线的平均半径:"))
(setq disp ( getreal"请输入螺旋线节距:"))
# R: y; P' ?" ~: Y, E(setq n (getint"请输入每圈细化段数:"))
(setq delta (/(* 2.0 pi) n))
(setq j (/ disp n))
(setq bb(caddr b1))
0 F; y9 T; `3 t; X(setq ang 0)
5 u  k* x/ g1 y: B2 L. Y" T" m(setq k 0)
(command "ucs" "o" b1)
6 L( A* T, y7 a2 Y4 b(command "3dpoly" (list r 0 0))
(repeat n
   (setq k(+ k 1))
; n6 `' L1 `! e: K   (setq ang(+ delta ang))
   (setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))
   (command pt2)
)
0 m5 G1 f; B& d, A+ h, J! K(command" ")
0 O7 o" s: R( J; q)

LOVELYAREA

你快出来啊！我说！

wvvei

下次我碰到他的时候顺便帮你提醒提醒他哦

雨天

呵呵,他不在吧

jicheng

如果你的CAD版本是07的话，里面有，无需编程序。

zhouyuhui

这段程序应该可以了.你试一试!命令还是luox
0 t( F" G* Z, C+ r( x+ q/ m(defun C:luox (/)
(setq b1 (getpoint"请输入基点:"))　　　
) h: s: b4 I9 o(setq r (getreal"半径:"))
(setq t1 (getreal"节距:"))
(setq k (getint"段数:"))
(setq n (getint"圈数:"))　
(setq ta (/(* 2 3.14159) k))
0 {) O! ?6 E: e4 |" |3 d(setq j1 (/ t1 k))
(setq a 0)
1 Z% E! r  W0 d) z(setq jj 0)
# M, j5 J' K4 ]  l/ m( k/ W(setq ii 0)
(command "ucs" "o" b1)
(command "3dpoly" (list r 0 0))
(repeat n
9 N6 c1 F8 \3 n5 ^, d% ?* f(repeat k
  ^( t3 q7 z6 v1 F2 ^+ q# _: M% n5 m(setq jj (+ jj 1))
(setq a (+ ta a))
* {; Q: h2 H2 B6 Z6 g1 k(setq x (* r (cos a)))
(setq y (* r (sin a)))
(setq z (* j1 jj))
(setq p2 (list x y z))
(command p2)
9 Y% s0 d9 G7 I' s  f)
(setq ii (+ ii 1))
(setq z (* t1 ii))
)
(command "" )
7 b" H4 A8 Z1 ]- X3 p3 x)

LOVELYAREA

zhouyuhui太谢谢了！我画出来了！
, S8 `% R! c! w. f% x# W谢谢大家啊！！！我终于画出来了！
我昨天用了各种方法就是不能画出来！！！