主题：画螺纹的一点心得

画螺纹的一点心得
用Joseflin的Threads.lsp画实体螺纹很不错,实用.
使用方法:
在"工具"菜单下选择"加载应用程序"
然后在命令行输入"metric"(公制螺纹)或"iso228"(英制螺纹)
根据提示输入参数
Internal or External thread (I/E)
内螺纹或外螺纹(不过好像画出的都是外螺纹)
Nominal outside diameter
螺纹外径
Pitch
螺距
Start center point
开始的坐标点
Total thread length in Y direction
螺纹长度
Do you want a 90?top angle at the start? (Y/N) <Y>
断面形状,缺省方式适合退尾螺纹

(setq nom1 10)
(setq pitch 1.25)
以上两条语句要删掉,否则只能画M10X1.25的螺纹

ljcgq发表的源程序适用于锥形，倒锥形，柱形，螺旋线的生成,不错
用于画弹簧或滚珠丝杠等,不过螺距在20mm以下的形状不好
(1-2的不能画,3为三边4为四边......),可根据需要在第七句
(setq n(fix h))后增加一句(setq n(* n 100)),其中的100
可为任意数,越大图形越好,但费时.另外一点就是只能拉伸圆,
对别的形状拉伸便有问题.
如何拉伸矩形或梯形而不变型?请高手指教.

 

好,这种学习的心得体会很值得提倡!收录精彩帖子行列!

能给我发一个你修改后的lisp程序吗？我的e-mail: Anthonychen@126.com
非常的感谢！

由於基本嫁架构上的限制，AutoCAD要绘製螺纹相当烦琐困难，适合以lisp方式解决。Threads.lsp是我费了不少的心血得来的，相信它是目前流通的唯一未经compile的原始程式。依原先的承诺只能流通限制功能的demo版本。至今向我索取Threads.lsp的不知凡几。出乎我的预料一郎先生竟然可将之破解update成全功能的版本，实感敬佩！大陆地区真是卧虎藏龙之地阿！

如何拉伸矩形或梯形而不变型?请高手指教

请把改好的原程序发上来好吗？谢谢！

各位 程序来了

Threads2.LSP [下载] [预览] [修正乱码][修正乱码][复制代码]	下载需付 0 个明经币
文件大小:14.4 KB，下载次数:465
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。

哇，终于等到你来了！
程序好长好长啊，怎么会这么长？怕怕了！看不懂呢！
有相关方面的教材，介绍一本来，好不好？

这玩艺可画矩形螺旋,但效果实在不好,抛砖

helix.LSP [下载] [预览] [修正乱码][修正乱码][复制代码]	下载需付 0 个明经币
文件大小:1.46 KB，下载次数:207
通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。

不管怎么样，送花一朵！