螺旋线程序

LOVELYAREA

下面这个螺旋线程序，只能画一层螺旋线，还需要使用阵列才能实现多层螺旋线！画螺丝的时候每层螺纹接口处都会出现偏差！而且阵列之后不知道为什么这些线不能合并！！
# g$ N( e6 s2 d: I请问可以把程序修改一下，直接就可以画出一条多层的螺旋线！这样就不用出现接口出衔接不上的问题了！
' w- }! V  R3 G1 ?2 Z6 f# D

4 Q: X2 H% C% [& A

把下面的程序导入cad ,就可以画螺纹了！（２００７以前的版本）．画螺纹的命令就是luox
(defun C:luox(/)
(setq b1 (getpoint"请指定螺旋线基点:"))
+ ^3 M2 M7 D! T# T' ?/ [2 M(setq r (getreal"请指定螺旋线的平均半径:"))
% u8 s$ q( O) ]7 [- q/ p(setq disp ( getreal"请输入螺旋线节距:"))
% J" r, W) [- s6 ^(setq n (getint"请输入每圈细化段数:"))
+ n- s3 r' {0 V4 G& g(setq delta (/(* 2.0 pi) n))
8 \  ~# u5 q0 H" z3 }' @(setq j (/ disp n))
(setq bb(caddr b1))
9 N  H% i* {7 B! H! C5 ](setq ang 0)
: H- c- L9 H# k2 y1 D, Y(setq k 0)
, P# n4 L# f% p, L5 B  t(command "ucs" "o" b1)
- c4 S7 A' R7 A/ ]" F% _( y6 x(command "3dpoly" (list r 0 0))
(repeat n
   (setq k(+ k 1))
( r6 \6 ^$ C7 W8 L* _- h   (setq ang(+ delta ang))
( A: M8 h. S& H' t2 n  Y   (setq pt2(list (* r(cos ang)) (* r(sin ang)) (+ 0 (* j k))))
4 T+ X; q8 n# m) i9 ?   (command pt2)
7 _: H6 M' b' `% ])
(command" ")
) T! k9 p) _( H+ }& s  E)

LOVELYAREA

你快出来啊！我说！

wvvei

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

雨天

呵呵,他不在吧

jicheng

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

zhouyuhui

这段程序应该可以了.你试一试!命令还是luox
(defun C:luox (/)
(setq b1 (getpoint"请输入基点:"))　　　
(setq r (getreal"半径:"))
(setq t1 (getreal"节距:"))
(setq k (getint"段数:"))
( z: g& o1 g1 n, O(setq n (getint"圈数:"))　
(setq ta (/(* 2 3.14159) k))
7 q" R7 C" _% Q4 x) ~(setq j1 (/ t1 k))
5 ]+ O  s+ ?+ D+ V0 t(setq a 0)
(setq jj 0)
(setq ii 0)
  V! n) g) R9 R7 h(command "ucs" "o" b1)
(command "3dpoly" (list r 0 0))
(repeat n
0 e+ Y& W1 A5 z( H# ^(repeat k
; ~/ k9 s9 q" V3 X$ s1 O$ I(setq jj (+ jj 1))
" A; M$ D  c/ }(setq a (+ ta a))
(setq x (* r (cos a)))
(setq y (* r (sin a)))
0 Q: L5 L/ a+ R; t; ~* m1 r(setq z (* j1 jj))
(setq p2 (list x y z))
(command p2)
)
(setq ii (+ ii 1))
(setq z (* t1 ii))
)
(command "" )
' b4 y8 p  j6 ?8 X1 H3 m)

LOVELYAREA

zhouyuhui太谢谢了！我画出来了！
3 E  a+ |- J! i3 T9 n谢谢大家啊！！！我终于画出来了！
: n0 u: f/ c" f+ p) U, a我昨天用了各种方法就是不能画出来！！！