三维螺栓的制作

my1848

大家好，不知道哪位大虾有没有做三维螺栓的教程，如果有的话希望能上传上传，谢谢！！！

FJQZ456

加载以下这个程序就能做你要的螺栓了. (defun shuru () ;输入参数
(setq zhijing (getREAL "公称直径:"))
(setq luoju (getreal "螺距:"))
(SETQ QUANSHU (GETREAL "螺纹有效圈数:"))
(SETQ JINGDU (GETint "每转切割次数:"))
(setq QIDIAN (getpoint "输入起始点:"))
)
(defun JISUAN () ;计算螺纹参数
(setq H (* 0.8660254 luoju))
(setq D2 (- zhijing (* 2 0.375 H)))
(SETQ LD2 (* D2 PI))
(SETQ LUOXUANJIAO (ATAN (/ LUOJU LD2)))
(SETQ LXJ (* 180 (/ LUOXUANJIAO pi)))
(setq banjiao(atan(/ luoju zhijing)))
(setq djxc (sqrt(+ (expt luoju 2) (expt zhijing 2))))
(setq pyj (+ banjiao luoxuanjiao))
(setq pianyi (* (sin pyj) djxc))
(setq pianyi (/ pianyi 2.0000))
(SETQ SL (fix (* (+ 1 QUANSHU) JINGDU ))) ;数量
(SETQ FD (/ 360.0000 JINGDU)) ;分度
(SETQ BC (/ (* 1.0000 LUOJU) JINGDU))
(setq bc (- bc)) ;步长
)
(defun draw () ;绘制
(setq pt1 (polar QIDIAN PI (/ LUOJU 2.0000)))
(SETQ PT1 (POLAR PT1 (* 1.5 PI) (+ (* 0.1250 H) (/ ZHIJING 2.0000))))
(setq pt2 (polar pt1 0 (* luoju 0.375 (cos LUOXUANJIAO))))
(SETQ PT2 (POLAR PT2 (* 0.5 PI) (* 0.750 H)))
(setq pt3 (polar pt2 0 (* 0.25 LUOJU (cos LUOXUANJIAO))))
(setq pt4 (polar pt1 0 (* LUOJU (cos LUOXUANJIAO)))) ;基本三角形
(setq pt5 (polar QIDIAN pi (* 2.00 LUOJU QUANSHU)))
(setq pt7 (polar pt5 0 (* 2 LUOJU)))
(setq pt7 (polar pt7 (* 1.5 pi) (/ ZHIJING 2))) ;螺纹轴线
(setq pt6 (polar pt5 0 LUOJU))
(SETQ PT6 (POLAR PT6 (* 0.5 PI) (* 0.50000 ZHIJING))) 光杆轮廓
(SETQ PT8 (POLAR PT1 0 (* 0.5 LUOJU)))
(SETQ PT9 (POLAR PT8 (* 0.5 PI) (* 0.8 ZHIJING))) ;齿条转动轴线
(SETQ MV (POLAR QIDIAN 0 (/ ZHIJING 2.0000)))
;制做齿条并转角
(command "pline" pt1 pt2 pt3 pt4 "c" )
(command "extrude" "last" "" ZHIJING "" )
(setq SS (ssget pt1))
(rotate3d ss PT9 PT8 90)
(COMMAND "MOVE" "Previous" "" QIDIAN MV )
(rotate3d ss "" PT8 PT9 90)
(rotate3d ss "" PT9 PT8 LXJ)
(SETQ YD (POLAR QIDIAN 0 (/ LUOJU 2.0000)))
(COMMAND "MOVE" "Previous" "" QIDIAN YD ) ;外移
;制做光杆
(SETQ PT0 (POLAR QIDIAN 0 LUOJU))
(COMMAND "LINE" PT5 PT0 "")
(COMMAND "rectang" PT6 QIDIAN)
(COMMAND "revolve" "LAST" "" PT5 qidian "")
(command "zoom" "e")
;布尔运算
(SETQ PT (POLAR PT4 0 pianyi))
(SETQ SQ pt6)
(while (/= SL 0) ;判断
(SETQ SS (SSGEt pt))
(setq pta (polar pt 0 bc))
(command "copy" ss "" pt pta)
; (prin1 pt)
(COMMAND "subtract" sq "" ss "") ;相减
; (setq zanting(getstring))
(setq SS (ssget pt6))
(ROTATE3D SS PT5 qidian FD ) ;旋转
(setq PT pta) ;步进
(SETQ SL (- SL 1))
)
(setq pta (polar pt 0 bc))
(COMMAND "ERASE" PT "")
)
(defun C:3DLW ()
(arxload "geom3d.ARX" NIL)
(shuru)
(SETQ SSs (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(SETQ SNM (GETVAR "SNAPMODE"))
(SETVAR "SNAPMODE" 0)
(SETQ PICKB (GETVAR "PICKBOX"))
(SETVAR "PICKBOX" 0)
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(JISUAN)
(SETQ GD (* 60 ZHIJING))
(SETQ CT (POLAR QIDIAN PI (* LUOJU QUANSHU)))
(COMMAND "ZOOM" "C" CT GD)
(draw)
(SETVAR "OSMODE" SSs)
(setvar "cmdecho" cmd)
(SETVAR "SNAPMODE" SNM)
(SETVAR "PICKBOX" PICKB)
)
(princ "\n\tC: 3DLW 为绘制命令")
(princ)

my1848

很感谢二楼的胖哥，那么复杂呀？有没有简单一点的呀？比如可不可以在CAD里面直接生成制作呢？

cb000007

胖哥,画三维螺栓一定要你这样才画的出来吗?


你写的那些,我看不懂.


不加载程度可不可以画三维螺栓?

FJQZ456

不加载程序在ＡutoCAD里难以完成螺栓的制作，加载这个程序非常简单. 具体方法是； 把代码复制到一个记事本文件中，保存（扩展名为LSP）。运行时，用APPLOAD命令加载，用3DLW命令执行。

wcadw

那能不能把它改成能画尖尾的螺丝

CADghost

老胖，想不到你对编程还挺了解的呀~

cjq701

胖哥的程序真棒，谢谢！请问可以做反螺纹吗？

i_do

太感谢了！！！！！

my1848

说了那么多还是不明白呀？我想如果用三维阵列和三维旋转以及分割什么的，我想能做出来吧！只是没有那思路罢了！有哪位大虾有这样的思路吗？谢谢了！！