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

csace

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

如图，请高手指点 :handshake

http://file:///F:/cs/DSC03466.jpg

chnlws001

我这里有一个lisp,是关于画螺纹的，里面有一个记事本，描述了使用方法，也是从别人处分享过来的，你试用下，能否帮到你，我没有去测试过！我是幕墙设计，这个好少可以说用不着！
, [6 q4 H  H; @
[ 本帖最后由 chnlws001 于 2007-10-1 09:00 编辑 ]

csace

多谢楼主！
1 t3 E& b4 R, @/ k# u/ c先下载看看
本来照了张相片上传了，但不知为何看不到
! I9 r5 D. ~2 s) G! m# v6 Q* [请高手指点！

David_dai

看看你的图片地址：http://file:///F:/cs/DSC03466.jpg
1 E" _+ s- t& Y& U$ e
) R  }8 I( f0 V. H很显然方法错了！
你要反省一下了！

csace

0 W; M$ f  s5 [6 ?/ _. l1 W
4 B3 D) N( j, p[ 本帖最后由 csace 于 2007-10-1 22:05 编辑 ]

csace

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

2374

有平面图吗？

csace

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

飞舞蜻蜓

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

zny850210

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

csace

我用的是CAD06版，没有现成的工具可用，平面螺旋已想到方法，但空间螺旋定位还没想到方法。
# G) B9 x6 @" z1 x* R( z平面效果如下图：
& v# B5 `7 C9 x/ ^% N- }  s8 D5 _

, V- w0 j) h. @4 c: k6 U* c, S; o

镜子·空瓶

<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

0 m9 Y, T$ y; t1 v. q  x9 o7 |
样子象，可不一定标准哦！