请教螺纹3D画法(刚才那个怎么要金币的,郁闷)

yanglzb

<p>哪位知道帮个忙,谢谢了</p><p>&nbsp;</p><p><font face="黑体" color="#ff0033" size="5">LYMX的回答很好,已经被加为精华,请看他的回复!(CDPKING)</font></p>

lymx

<p><font style="BACKGROUND-COLOR: #cccc33;">(defun C:SPL (/ SD ED THS TAS NVS STEP X Y Z R A H)<br/>&nbsp; (setq SD (/ (getreal "螺旋起始直径: ") 2))<br/>&nbsp; (setq ED (/ (getreal "螺旋终点直径: ") 2))<br/>&nbsp; (setq THS&nbsp;&nbsp;&nbsp; (getreal "螺旋总高(每圈高度 X 圈数): "))<br/>&nbsp; (setq TAS&nbsp;&nbsp;&nbsp; (getreal "总角度数(360 X 圈数): "))<br/>&nbsp; (setq NVS&nbsp;&nbsp;&nbsp; (getint&nbsp; "节点数([总角度数/间隔角度]+1): "))<br/>&nbsp; (setq STEP (- NVS 1))<br/>&nbsp; (setq X (/ (- ED SD) STEP))<br/>&nbsp; (setq Y (/ THS STEP))<br/>&nbsp; (setq Z (/ TAS STEP))<br/>&nbsp; (setq R SD)<br/>&nbsp; (setq A 0)<br/>&nbsp; (setq H 0)<br/>&nbsp; (setvar "CMDECHO"&nbsp; 0)<br/>&nbsp; (command "3DPOLY" (strcat (rtos R) "&lt;" (rtos A) "," (rtos H)))<br/>&nbsp; (repeat STEP<br/>&nbsp;&nbsp;&nbsp; (setq A (+ A Z))<br/>&nbsp;&nbsp;&nbsp; (setq H (+ H Y))<br/>&nbsp;&nbsp;&nbsp; (setq R (+ R X))<br/>&nbsp;&nbsp;&nbsp; (command (strcat (rtos R) "&lt;" (rtos A) "," (rtos H)))<br/>&nbsp; )<br/>&nbsp; (command "")<br/>&nbsp; (setvar "CMDECHO"&nbsp; 1)<br/>&nbsp; (princ)<br/>)</font></p><p><font style="BACKGROUND-COLOR: #cccc33;"></font>&nbsp;</p><p><font style="BACKGROUND-COLOR: #cccc33;"></font>&nbsp;将上面代码保存为lsp文件，在cad中加载，执行spl，按提示输入参数就可以了</p>

乐逍遥

<p>&nbsp;谢谢了，真是好东西！！！</p>[em09]

xtxb0713

关于螺纹的实现方法，我已经在论坛上介绍了很多方法，你可以进行搜索，其中有一种实体螺纹的程序可供下载。

123小壁虎

三维的吗？？？？？？？？？？？？

aghewchen

谢谢，学会了，呵呵

笑莫问

画出螺旋。根圆柱差集就好了哦

梦M随风

我以为是三D的!