QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
6天前
查看: 14992|回复: 26
收起左侧

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

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

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

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

x
请问用谁会用CAD画对数螺旋曲线呀?* L7 [5 i3 c- r$ |
如两个同心圆,中间用对数螺线连接,弧与小圆的夹角(切线夹角)为33度,与大圆的夹角为47度,
" \* F' Z0 n' q" f0 `6 u请高手指点迷津!
 楼主| 发表于 2006-10-25 13:02:19 | 显示全部楼层 来自: 中国江苏苏州
自已先顶一下,高手快来指点一下,谢谢!!
发表于 2006-10-25 15:13:35 | 显示全部楼层 来自: 中国江苏常州
软件本身不具备这样的功能!除非有些二次开发的软件有,或者您就自己编程解决吧!
发表于 2008-6-23 15:25:29 | 显示全部楼层 来自: 中国四川成都
画对数螺旋容易,难在角度要按你的要求
! M% i- W5 A4 G8 @& \http://www.3dportal.cn/discuz/vi ... p;page=2#pid2399170$ h& z% {+ w# O# z) S7 W
采用对数螺旋线,其基本性质为:曲线上任意点的切线与通过该点的连心线之间的夹角β为常数。该夹角称之为螺旋角。螺旋线在极坐标上的表达式可写成:
" v0 h; I: G4 I' Z  O: l  r=r0*e^(kθ),k=ctgβ+ b- y. {& j8 |/ Y1 T3 K2 h
=================================
8 [' T* P& Y% Z$ x3 q+ }LZ说的是对数螺旋线吗?
发表于 2008-6-29 00:18:37 | 显示全部楼层 来自: 中国台湾
如果有哪一位先进们懂得画出此. e* M4 ^4 Y  d. S
对数螺旋线
. O1 m4 N+ C: u* k/ s让大家也一起学习学习% Y3 @7 L: w0 [8 s
不胜感激
发表于 2008-9-3 15:40:47 | 显示全部楼层 来自: 中国广东深圳
我不会。
' c: _' R3 p& ?) s4 T8 q: T/ f我也好想有人告知!
发表于 2008-9-3 22:31:30 | 显示全部楼层 来自: 中国山东济南
高手出来帮一以下啊   让大家都跟着学习以下
发表于 2008-9-4 10:48:46 | 显示全部楼层 来自: 中国上海
用CAD有点难度
发表于 2008-9-9 19:31:33 | 显示全部楼层 来自: 中国浙江金华
利用对数方程,spl曲线EXCEL倒入,转换成多段线,园弧D选项相切画弧.
/ T6 G; E- _1 C% t' }8 RHEHE
发表于 2008-10-5 17:11:45 | 显示全部楼层 来自: 中国河南郑州
不容易啊 怎么办呢
发表于 2008-10-6 18:09:17 | 显示全部楼层 来自: 中国广西梧州

回复 1# benwang 的帖子

怎么不试着用PROE啊?
  D. W; C8 N& v; B* m! `5 k+ N
发表于 2008-10-6 18:51:10 | 显示全部楼层 来自: 中国浙江金华

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

人人都会破衣?
0 {& z: T( @" v% L9 x2 Z. E  J就是会也还是要画的.$ E0 t: o  `1 m8 ]" z: x, A1 X7 X
不用牛刀了吧.
: r& X6 r& K# }& ^HEHE
发表于 2008-10-9 16:00:13 | 显示全部楼层 来自: 中国辽宁营口
本题没有限制对数螺旋线的具体参数,所以能做出无数个答案。
4 Z5 d5 X" `, p$ M# t下面挑两种特殊情况,比较好做的做一下- X3 n8 v8 b# [" \3 R; B
一、当极径和切线夹角为90度时,对数螺旋线就是一个圆! c3 [) a4 J8 N$ @+ i/ D
Untitled-1.gif
9 n% h4 J- n  \ YUAN.dwg (66.03 KB, 下载次数: 16)

评分

参与人数 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语言编的程序,还是牛人多啊) R% v9 D0 x% ]6 i) ^$ N
Sub LUOXUAN()+ ?9 b4 M4 K9 E9 D+ t5 \
    Dim R1 As Double, R2 As Double, A As Double, A1 As Double, A2 As Double, P1(2) As Double, P2(2) As Double9 s, A8 Z1 r( B  T
    Dim L1 As AcadLine, L2 As AcadLine, R As Double, I As Integer, P(302) As Double, S As Double
$ a' ?+ H# Y! Y; R4 ]) t- M9 ~    R1 = 100: R2 = 200
; J4 B) W$ l1 K: ?2 C4 h    With ThisDrawing$ T) `( A: e/ y: p" F) g
        .ModelSpace.AddCircle P1, R1/ @8 z9 {" }' A6 l" a
        .ModelSpace.AddCircle P1, R2# q# k& e# M; M( j! r
        P2(0) = R1$ k. I) e+ C* j# c, G
        Set L1 = .ModelSpace.AddLine(P2, P1)
: V' {7 p* q2 N8 c        Set L2 = .ModelSpace.AddLine(L1.StartPoint, L1.EndPoint)
/ }9 K) `& w7 g; D( N- t        A1 = 0.244346095279206: A2 = 3.14159265358979 '14度到180度
- M1 D7 x$ c% w4 H        Do! P) |3 L4 b& X! X  ^; `4 O
            A = (A1 + A2) / 2#% Z4 |+ N1 D" n
            L2.StartPoint = .Utility.PolarPoint(P1, A, R2)
6 P4 ^( C8 c9 _6 J, A8 n7 d            L2.EndPoint = .Utility.PolarPoint(L2.StartPoint, 2.89724655831059 + A, 1) '166度+A0 m& D; m  w  a) w9 j
            L1.EndPoint = L1.IntersectWith(L2, acExtendBoth)
; O: W1 @( J+ d2 T            L2.EndPoint = L1.EndPoint
" t. u4 k& l, \            R = L1.Length * Exp((A - 0.244346095279206) / Tan(0.994837673636768)) '(A-14度)/tan(57度)3 B$ y$ e+ H% X0 J, w
            If L2.Length = R Or A = A1 Or A = A2 Then Exit Do
# }9 K" M8 w- `/ R# |$ a            If L2.Length > R Then4 |- g* V/ I% p/ D' @
                A1 = A  o5 }8 C+ h! h4 {" U' n. B6 q% g5 P
            Else
6 [$ J8 Q, j3 X, X% O& i                A2 = A5 C$ y" q: K7 h0 l. J
            End If
3 \, \% |9 A" ^- n& N9 g' I        Loop0 ^( y- V* D" ~4 \/ u
        .ModelSpace.AddLine P1, L2.StartPoint
& r+ D0 T' x4 U6 W        For I = 0 To 1005 B6 Y% U; B% f' j) w& w' \. _
            S = A / 100# * CDbl(I) - 0.122173047639603
3 W1 F* p2 u( c. G2 U, j            R = L1.Length * Exp(S / Tan(0.994837673636768))- g" ?" p( [0 d$ J4 d1 d: n& \
            P(I * 3) = R * Cos(S) + R1 - L1.Length8 a* n1 c5 b; \- ]
            P(I * 3 + 1) = R * Sin(S)
/ [# ?8 U+ l8 B        Next
( b" w0 T! f8 u" T, p        .ModelSpace.AddSpline P, P1, P1
, I; ?$ K) L" E5 k4 ^" ?$ h; k+ t& @+ C    End With
. ^1 O( Y9 A$ r. ~$ q/ dEnd Sub
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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