[原创]：3D交叉电缆

dengjianp

今天画了一个交叉电缆

                               
登录/注册后可看大图

lujun82

高,怎樣畫的能介紹一下嗎*-*6 *-*6 *-*6 *-*6 *-*6

dengjianp

螺旋线我是用陈老师的那个小程序画的,做为拉伸路径,两股的,螺旋线起始角相差180度,如果是三股的 就相差120度,然后画圆拉伸即可

lujun82

畫螺旋線那程序能發上來嗎,我想這种方法應可以用來畫彈簧的*-*4 *-*4 *-*4

laoshayu

呵呵～～～这也叫电缆？芯子都没有

dengjianp

最初由 lujun82 发布
[B]畫螺旋線那程序能發上來嗎,我想這种方法應可以用來畫彈簧的*-*4 *-*4 *-*4 [/B]

;; HELIX .LSP 螺旋线生成
(Defun C:Helix ()
(SetQ p (GetPoint "\n中心点: ") x (Car p) y (Cadr p) z (Caddr p)
r (GetDist p "\n半径: ")
b (GetDist p "\n总高度: ")
a (GetAngle p "\n起始角: ")
m (GetInt "\n圈数: ")
n (GetInt "\n每圈线段数: ")
da (/ (* m 2 Pi) (* m n))
dz (/ b (* m n))
)
(Command "3dpoly")
(Repeat (1+ (* m n))
(Command (Polar (List x y z) a r))
(SetQ a (+ a da) z (+ z dz))
)
(Command "")
(PrinC)
)


helix为命令