自钻螺钉的螺纹及钉尖在CAD里的三维画法

csace

自钻螺钉的螺纹及钉尖在CAD里的三维画法
, f; g" }0 ~+ D. C. r. u
8 v, h  e, e1 J: I3 R/ C4 l5 N  {如图，请高手指点 :handshake
, L5 F5 f! R" B  `- U4 Y. R* {+ }
http://file:///F:/cs/DSC03466.jpg

chnlws001

我这里有一个lisp,是关于画螺纹的，里面有一个记事本，描述了使用方法，也是从别人处分享过来的，你试用下，能否帮到你，我没有去测试过！我是幕墙设计，这个好少可以说用不着！

$ h  N/ A' ]+ U. {, T& n: F5 A- {[ 本帖最后由 chnlws001 于 2007-10-1 09:00 编辑 ]

csace

多谢楼主！
先下载看看
# |% s2 J" u. ?# D4 a" }4 r本来照了张相片上传了，但不知为何看不到
6 f, _5 {- r6 O* S$ r' |* v请高手指点！

David_dai

看看你的图片地址：http://file:///F:/cs/DSC03466.jpg
8 U+ ~  x! u  V. G" Q
很显然方法错了！
. a) ]& L* v6 T2 n( n你要反省一下了！

csace

1 N0 m% t4 k* N, G3 m
* J' t3 t. x: H[ 本帖最后由 csace 于 2007-10-1 22:05 编辑 ]

csace

上面图片是刚传上去的，请高人指点三维图的画法！！！

2374

有平面图吗？

csace

回 7楼
平面图还没画，这是在车间拿的几颗螺钉照的，想练练三维画法，到现在还没找到螺纹的画法（尺寸不重要，每种规格不一样），您只要教我螺纹的画法就行。谢谢！！

飞舞蜻蜓

都是标准件呀，学学也不错！

zny850210

在CAD不可以化螺纹，虽然向但是不是真的螺纹！

csace

我用的是CAD06版，没有现成的工具可用，平面螺旋已想到方法，但空间螺旋定位还没想到方法。
+ c3 L7 U$ X- h1 ]# i$ W平面效果如下图：

: {# a8 U. c. t( ~+ B# |

# ]' K6 ~' {4 I$ M+ t0 U2 Y

镜子·空瓶

<B><FONT color=teal>倒！回复完才发现这是2007年的贴子，给唐版提起来了。。。)5*(</FONT> </B><BR><BR><B>lisp源文件，复制到文本文件，改为<FONT color=red>LSP</FONT>后缀名，在CAD中加载，就可以生成螺丝啦(载入后，快捷键<FONT color=red>XLT</FONT>)。。。</B><BR><BR><B>以前用04的时候一直都用这个，，后来用09就不用了，，，，</B><BR><BR>

;========================================================<BR>;<BR>;&nbsp; &nbsp;本程序适用于锥形，倒锥形，柱形，螺旋线的生成<BR>;&nbsp; &nbsp;2000.6.1&nbsp; &nbsp;&nbsp; &nbsp; LJC<BR>;&nbsp; &nbsp;2000.5.30 2000.6.1&nbsp; &nbsp;2004.2<BR>;<BR>;========================================================<BR>(defun C:xlt(/)<BR>&nbsp; &nbsp;(setq b1(getpoint "\n下端圆心:&nbsp; &nbsp;"))<BR>&nbsp; &nbsp;(setq ang0(getreal "总转角："))<BR>&nbsp; &nbsp;(setq a(getreal "下端圆半径R=："))<BR>&nbsp; &nbsp;(setq b(getreal "上端圆半径r=："))<BR>&nbsp; &nbsp;(setq h(getreal"上、下端高差H=:"))<BR>&nbsp; &nbsp;(setq n(fix h))<BR>&nbsp; &nbsp;(setq delt (/ (*(/ ang0 180) pi) n ))<BR>&nbsp; &nbsp;(setq j( / h n))<BR>&nbsp; &nbsp;(setq ang 0)<BR>&nbsp; &nbsp;(setq jj 0)<BR>&nbsp; &nbsp;(command "ucsicon" "or" )<BR>&nbsp; &nbsp;(command "ucs" "o" b1)<BR>&nbsp; &nbsp;(command "3dpoly" (list a 0 0))<BR>&nbsp; &nbsp;(repeat n<BR>&nbsp; &nbsp;&nbsp; &nbsp; (setq jj(+ jj 1))<BR>&nbsp; &nbsp;&nbsp; &nbsp; (setq j1(+ 0 (* j jj)))<BR>&nbsp; &nbsp;&nbsp; &nbsp; (setq ang (+ delt ang))<BR>&nbsp; &nbsp;&nbsp; &nbsp; (setq r(- a (/ (* j1 (- a b))h)))<BR>&nbsp; &nbsp;&nbsp; &nbsp; (setq pt2(list (* r (cos ang))(* r (sin ang))(+ 0 (* j jj))))<BR>&nbsp; &nbsp;&nbsp; &nbsp; (command pt2)<BR>&nbsp; &nbsp;<BR>&nbsp; &nbsp;)<BR>&nbsp; &nbsp;(command "")<BR>&nbsp;&nbsp;<BR>)

[ 本帖最后由 镜子·空瓶 于 2009-1-10 15:41 编辑 ]

shzyd

' F( e, l3 F8 C" n6 I# J样子象，可不一定标准哦！