[求助]：螺栓的螺纹是怎么画的，CAD三维

2443725

螺栓的螺纹是怎么画的，CAD三维

温柔美美

请在以下的网页里面看看：
http://www.xdcad.net/forum/showthread.php?s=&threadid=50077
里面是讲画三维螺旋线的，请看看，并且说这个三维螺旋线能拉伸。

yannanfei

;-------------------------------------------------------------------
参照这个程序吧THREAD.LSP   创建三维实体螺纹(ACIS)
;-------------------------------------------------------------------
; 该程序可生成三维实体外螺纹。
; 你可生成以下的螺纹:
; 执行命令：ISO228
; 功能： ISO 228 (相当于 DIN 228 和 NEN 176)
; 执行命令：mythread
; 功能：管螺纹, ISO 7-1 (相当于 DIN 2999 和 NEN 3258)
; 执行命令：Metric
; 功能：公制内外螺纹， NEN 81 和 NEN 1870

zv_zero

真是好东西，谢谢3楼的大哥啦。请问还有没有画弹簧的程序呀，我也想下一个。

yannanfei

最初由 zv_zero 发布
[B]真是好东西，谢谢3楼的大哥啦。请问还有没有画弹簧的程序呀，我也想下一个。 [/B]

这是昨天下的别人的，希望对你有用。

2. 
   
3. (defun C:spr (/ SD ED THS THSN THSH THS TAS NVSN NVS STEP X Y Z R A H)
   
4. (setq oldos (getvar "osmode"))
   
5. (setvar "osmode" 0)
   
6. (setq b1 (getpoint "基点"))
   
7. (setq SD (/ (getreal "弹簧起始直径: ") 2))
   
8. (setq ED (/ (getreal "弹簧終點直径: ") 2))
   
9. (setq THSN (getreal "圈数"))
   
10. (setq THSH (getreal "每圈高度"))
    
11. (setq THS (* THSN THSH))
    
12. (setq TAS (* 360 THSN))
    
13. (setq NVSN (getreal "间隔角度"))
    
14. (setq NVS (+ (fix (/ TAS NVSN)) 1))
    
15. (setq STEP (- NVS 1))
    
16. (setq X (/ (- ED SD) STEP))
    
17. (setq Y (/ THS STEP))
    
18. (setq Z (/ TAS STEP))
    
19. (setq bb (caddr b1))
    
20. (setq R SD)
    
21. (setq A 0)
    
22. (setq H 0)
    
23. (setvar "CMDECHO" 0)
    
24. (command "UCS" "O" B1)
    
25. (command "3DPOLY"
    
26. (strcat (rtos R) "<" (rtos A) "," (rtos H))
    
27. )
    
28. (repeat STEP
    
29. (setq A (+ A Z))
    
30. (setq H (+ H Y))
    
31. (setq R (+ R X))
    
32. (command (strcat (rtos R) "<" (rtos A) "," (rtos H)))
    
33. )
    
34. (command "")
    
35. (setvar "CMDECHO" 1)
    
36. (setvar "osmode" oldos)
    
37. (princ)
    
38. )
    

<br /> (defun C:spr (/ SD ED THS THSN THSH THS TAS NVSN NVS STEP X Y Z R A H)<br /> (setq oldos (getvar "osmode"))<br /> (setvar "osmode" 0)<br /> (setq b1 (getpoint "基点"))<br /> (setq SD (/ (getreal "弹簧起始直径: ") 2))<br /> (setq ED (/ (getreal "弹簧終點直径: ") 2))<br /> (setq THSN (getreal "圈数"))<br /> (setq THSH (getreal "每圈高度"))<br /> (setq THS (* THSN THSH))<br /> (setq TAS (* 360 THSN))<br /> (setq NVSN (getreal "间隔角度"))<br /> (setq NVS (+ (fix (/ TAS NVSN)) 1))<br /> (setq STEP (- NVS 1))<br /> (setq X (/ (- ED SD) STEP))<br /> (setq Y (/ THS STEP))<br /> (setq Z (/ TAS STEP))<br /> (setq bb (caddr b1))<br /> (setq R SD)<br /> (setq A 0)<br /> (setq H 0)<br /> (setvar "CMDECHO" 0)<br /> (command "UCS" "O" B1)<br /> (command "3DPOLY"<br /> (strcat (rtos R) "<" (rtos A) "," (rtos H))<br /> )<br /> (repeat STEP<br /> (setq A (+ A Z))<br /> (setq H (+ H Y))<br /> (setq R (+ R X))<br /> (command (strcat (rtos R) "<" (rtos A) "," (rtos H)))<br /> )<br /> (command "")<br /> (setvar "CMDECHO" 1)<br /> (setvar "osmode" oldos)<br /> (princ)<br /> ) <br />

zxdcad

在本板块置顶的“【论坛导航帖】精华贴子集锦”中就有这方面的内容，可以先去看看!

keilei

唉，螺纹真有点麻烦，请问三楼的程序能画矩形的螺纹吗？

aicoco

我还没学程序，不过看起来好难哦，看起这么简单的弹换的程序都这么难。

抗虫棉

这么简单的弹簧还得那么麻烦的程序
不学