charlie725 发表于 2009-5-8 16:05

CAD06版以下的，画弹簧方法

工具-aotolisp-编辑器，复制以下代码，保存，然后加载就OK了，输入命令HELIX，就可以画弹簧了，呵呵




;; 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)
)

gavinlch 发表于 2009-6-11 17:21

好像只是平面上的弹簧，不是三维的呢。浪费表情。

din8866 发表于 2009-6-11 20:07

谢谢楼主了，谢谢分享，学习了

xingming0108 发表于 2009-6-17 19:07

不錯，謝謝樓主分享

huyou114 发表于 2009-6-17 20:40

三维也很简单啊，不需借助其他工具阿
页: [1]
查看完整版本: CAD06版以下的，画弹簧方法