QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 14693|回复: 26
收起左侧

[讨论] 用CAD画对数螺旋线!!

[复制链接]
发表于 2006-10-24 17:30:54 | 显示全部楼层 |阅读模式 来自: 中国江苏苏州

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
请问用谁会用CAD画对数螺旋曲线呀?, }" H1 ~5 b7 K) ?' G+ M6 W- g
如两个同心圆,中间用对数螺线连接,弧与小圆的夹角(切线夹角)为33度,与大圆的夹角为47度,0 A" \* F; o0 |( {
请高手指点迷津!
 楼主| 发表于 2006-10-25 13:02:19 | 显示全部楼层 来自: 中国江苏苏州
自已先顶一下,高手快来指点一下,谢谢!!
发表于 2006-10-25 15:13:35 | 显示全部楼层 来自: 中国江苏常州
软件本身不具备这样的功能!除非有些二次开发的软件有,或者您就自己编程解决吧!
发表于 2008-6-23 15:25:29 | 显示全部楼层 来自: 中国四川成都
画对数螺旋容易,难在角度要按你的要求% o5 T8 s6 z9 G: ~6 g0 h& j
http://www.3dportal.cn/discuz/vi ... p;page=2#pid2399170
; R. R. W* V" ^& b) Q8 |9 b采用对数螺旋线,其基本性质为:曲线上任意点的切线与通过该点的连心线之间的夹角β为常数。该夹角称之为螺旋角。螺旋线在极坐标上的表达式可写成:
3 ]: g9 I* O  M7 r  r=r0*e^(kθ),k=ctgβ
8 ]+ R+ C3 v0 |' o=================================
4 U% r5 Q8 z" a  ]7 MLZ说的是对数螺旋线吗?
发表于 2008-6-29 00:18:37 | 显示全部楼层 来自: 中国台湾
如果有哪一位先进们懂得画出此
5 }2 v5 O: k' V+ }  Q对数螺旋线
5 V7 u) r5 k/ i8 q" \: q  f# K让大家也一起学习学习+ S+ t* l4 l; D* L; x, k' g
不胜感激
发表于 2008-9-3 15:40:47 | 显示全部楼层 来自: 中国广东深圳
我不会。! Z& ]; |: p8 @. ?! T2 ^
我也好想有人告知!
发表于 2008-9-3 22:31:30 | 显示全部楼层 来自: 中国山东济南
高手出来帮一以下啊   让大家都跟着学习以下
发表于 2008-9-4 10:48:46 | 显示全部楼层 来自: 中国上海
用CAD有点难度
发表于 2008-9-9 19:31:33 | 显示全部楼层 来自: 中国浙江金华
利用对数方程,spl曲线EXCEL倒入,转换成多段线,园弧D选项相切画弧.
& e9 g  q! t: _" d1 pHEHE
发表于 2008-10-5 17:11:45 | 显示全部楼层 来自: 中国河南郑州
不容易啊 怎么办呢
发表于 2008-10-6 18:09:17 | 显示全部楼层 来自: 中国广西梧州

回复 1# benwang 的帖子

怎么不试着用PROE啊?; K0 A# R$ S. k( W# ?! b$ e/ B
发表于 2008-10-6 18:51:10 | 显示全部楼层 来自: 中国浙江金华

回复 11# 撒旦的溺爱 的帖子

人人都会破衣?
$ c) ]" Q% e* K' l  |3 ?就是会也还是要画的.3 L" Z, l; C# I- e
不用牛刀了吧.
6 B* u. Y. m7 jHEHE
发表于 2008-10-9 16:00:13 | 显示全部楼层 来自: 中国辽宁营口
本题没有限制对数螺旋线的具体参数,所以能做出无数个答案。
, w2 B( F8 p; U  o下面挑两种特殊情况,比较好做的做一下! q1 i3 f. i' H" G7 F
一、当极径和切线夹角为90度时,对数螺旋线就是一个圆9 n2 S. f3 q; @/ U, `
Untitled-1.gif
; q: y1 }8 c% ]" V$ @% H YUAN.dwg (66.03 KB, 下载次数: 15)

评分

参与人数 1三维币 +8 收起 理由
★新手★ + 8 技术讨论!应助

查看全部评分

发表于 2008-10-10 13:25:12 | 显示全部楼层 来自: 中国四川成都
13#看来是万花众中找到了里面的一点绿,不过LZ要求的对数螺旋线也可以是个圆,不知道是该庆幸呢还是让大家感觉遗憾呢。
发表于 2008-10-16 22:27:34 | 显示全部楼层 来自: 中国
太复杂了,看不懂。
发表于 2009-6-7 12:43:05 | 显示全部楼层 来自: 中国上海
看了很多关于螺丝的问题,好像都很疑问。希望上图
发表于 2009-10-22 14:47:49 | 显示全部楼层 来自: 中国江苏镇江
想要多学习的 不知道是否可以告知如何绘制呢 因为我也遇到同样的问题
发表于 2009-10-22 14:48:33 | 显示全部楼层 来自: 中国江苏镇江

回复 4# scliukejun 的帖子

呵呵 这位高手可否具体的指教 我也碰同样的问题 急需解决
发表于 2009-11-6 15:17:36 | 显示全部楼层 来自: 中国山东济宁
请教用CATIA怎么生产对数螺旋线!!谢谢
发表于 2009-11-6 15:18:13 | 显示全部楼层 来自: 中国山东济宁
QQ:919711873  谢谢
发表于 2009-11-7 17:04:16 | 显示全部楼层 来自: 中国江苏苏州
初接触者   路过看过飘过踩过
发表于 2009-11-10 15:14:06 | 显示全部楼层 来自: 中国河北秦皇岛
怎么画的,好神啊,说来听听
发表于 2009-11-10 15:31:40 | 显示全部楼层 来自: 中国江苏无锡
机械原理书上有介绍,建议看一下。。
发表于 2009-11-10 21:31:28 | 显示全部楼层 来自: 中国河北秦皇岛
我怎么没有找到,不要随口一说
发表于 2009-11-10 21:43:10 | 显示全部楼层 来自: 中国河北秦皇岛
人家是用VBA语言编的程序,还是牛人多啊: X' c. `: [- [' n) F
Sub LUOXUAN()
& y6 Z5 F( @. U7 B9 F9 U  Y8 T    Dim R1 As Double, R2 As Double, A As Double, A1 As Double, A2 As Double, P1(2) As Double, P2(2) As Double! D! L2 z  t# o2 Z% @9 @
    Dim L1 As AcadLine, L2 As AcadLine, R As Double, I As Integer, P(302) As Double, S As Double
* K" U- E# j/ @  j2 z( k1 e% d    R1 = 100: R2 = 200
6 }: l8 D$ \6 M! ]# `4 ]    With ThisDrawing8 z; L9 F: l2 _  M- a  ^7 Y
        .ModelSpace.AddCircle P1, R1! M3 r( H8 T7 I0 {
        .ModelSpace.AddCircle P1, R27 K* C/ M2 C( c1 Y* ]
        P2(0) = R19 L- A  z6 E4 J& o
        Set L1 = .ModelSpace.AddLine(P2, P1), W' z; X9 D6 ~9 |
        Set L2 = .ModelSpace.AddLine(L1.StartPoint, L1.EndPoint)
/ k- e8 P( C5 l6 Z" ~  L5 O        A1 = 0.244346095279206: A2 = 3.14159265358979 '14度到180度
3 h. Q4 |, v' U$ P! P! E( ~( D        Do
3 _" p$ V% N4 ]2 y  X7 z4 N6 G            A = (A1 + A2) / 2#
- i/ W# m! H. Q( T            L2.StartPoint = .Utility.PolarPoint(P1, A, R2)$ m4 [$ Z& j) c- L) n; x$ l
            L2.EndPoint = .Utility.PolarPoint(L2.StartPoint, 2.89724655831059 + A, 1) '166度+A: s+ Z/ [; B( h0 s
            L1.EndPoint = L1.IntersectWith(L2, acExtendBoth)( G6 S- q$ A/ ?9 n6 E8 E
            L2.EndPoint = L1.EndPoint
4 _; L# X! V; \: k) A( I            R = L1.Length * Exp((A - 0.244346095279206) / Tan(0.994837673636768)) '(A-14度)/tan(57度)
- w% I. ^+ t1 O            If L2.Length = R Or A = A1 Or A = A2 Then Exit Do) }. O- N% M4 K1 M. f
            If L2.Length > R Then
, l3 B. {' j9 O1 Z                A1 = A
) {' s! t' J" |# h/ e$ P            Else
9 O. E/ s3 A& D( A. F, J# r                A2 = A/ m* X2 S3 j* U  h4 ~0 ]) _; o; `1 `
            End If
8 @- P. w$ v) Y        Loop
$ K. a! h9 k$ ]! Q        .ModelSpace.AddLine P1, L2.StartPoint& F  H9 k/ @* I( Z: a3 Q
        For I = 0 To 100% y! p& G" h5 h6 s- X# e
            S = A / 100# * CDbl(I) - 0.122173047639603
$ E! k8 b6 E& z6 E8 F/ T/ g/ k) y            R = L1.Length * Exp(S / Tan(0.994837673636768))) `4 c. N+ L9 O3 ^- {, a1 N( A
            P(I * 3) = R * Cos(S) + R1 - L1.Length- N$ O# b# D7 f- t* x% a+ }
            P(I * 3 + 1) = R * Sin(S)& v% ~5 A6 d  i8 `
        Next
! X) c. G; S( a5 `' U& c        .ModelSpace.AddSpline P, P1, P1/ [3 _$ n- @$ Y$ e+ s- }; v( U- m
    End With+ e$ ], c9 C& B) U  u
End Sub
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表