QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
请问用谁会用CAD画对数螺旋曲线呀?
/ X* Q; N( u4 y" V  w2 R0 Q如两个同心圆,中间用对数螺线连接,弧与小圆的夹角(切线夹角)为33度,与大圆的夹角为47度,! z. s# g. }( g6 ~' D
请高手指点迷津!
 楼主| 发表于 2006-10-25 13:02:19 | 显示全部楼层 来自: 中国江苏苏州
自已先顶一下,高手快来指点一下,谢谢!!
发表于 2006-10-25 15:13:35 | 显示全部楼层 来自: 中国江苏常州
软件本身不具备这样的功能!除非有些二次开发的软件有,或者您就自己编程解决吧!
发表于 2008-6-23 15:25:29 | 显示全部楼层 来自: 中国四川成都
画对数螺旋容易,难在角度要按你的要求' w1 Q7 X/ u6 Z( j- p5 n( G* c
http://www.3dportal.cn/discuz/vi ... p;page=2#pid2399170. y) G( n1 P, P# c& K9 z" M
采用对数螺旋线,其基本性质为:曲线上任意点的切线与通过该点的连心线之间的夹角β为常数。该夹角称之为螺旋角。螺旋线在极坐标上的表达式可写成:
, d8 Q6 {' N4 S0 ~8 Q1 s: K* [8 J  r=r0*e^(kθ),k=ctgβ
6 s' p: X! k! `% x, o( @# C=================================/ l+ j7 r1 ^5 \0 q/ a( p2 E/ M) g
LZ说的是对数螺旋线吗?
发表于 2008-6-29 00:18:37 | 显示全部楼层 来自: 中国台湾
如果有哪一位先进们懂得画出此8 r9 w! I) C6 Y+ u7 r9 ]4 m1 o/ N' Y
对数螺旋线
  D+ _; F* W! m" C4 [! T让大家也一起学习学习
. B8 u+ D! U' [; h% Y! g5 B不胜感激
发表于 2008-9-3 15:40:47 | 显示全部楼层 来自: 中国广东深圳
我不会。
- j, D- \7 O- j5 W/ }我也好想有人告知!
发表于 2008-9-3 22:31:30 | 显示全部楼层 来自: 中国山东济南
高手出来帮一以下啊   让大家都跟着学习以下
发表于 2008-9-4 10:48:46 | 显示全部楼层 来自: 中国上海
用CAD有点难度
发表于 2008-9-9 19:31:33 | 显示全部楼层 来自: 中国浙江金华
利用对数方程,spl曲线EXCEL倒入,转换成多段线,园弧D选项相切画弧.* Z, @7 |5 s! n9 U' c& q
HEHE
发表于 2008-10-5 17:11:45 | 显示全部楼层 来自: 中国河南郑州
不容易啊 怎么办呢
发表于 2008-10-6 18:09:17 | 显示全部楼层 来自: 中国广西梧州

回复 1# benwang 的帖子

怎么不试着用PROE啊?6 G* M) s2 ?7 z8 @
发表于 2008-10-6 18:51:10 | 显示全部楼层 来自: 中国浙江金华

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

人人都会破衣?) @4 \/ C0 p( M0 ]
就是会也还是要画的.
9 g, w6 Q( l. _: |) v! c不用牛刀了吧.5 Z! x7 `1 |) Q, y8 p% ]0 Q4 G; i
HEHE
发表于 2008-10-9 16:00:13 | 显示全部楼层 来自: 中国辽宁营口
本题没有限制对数螺旋线的具体参数,所以能做出无数个答案。
- V" A7 P# v. u! E( L9 l+ v下面挑两种特殊情况,比较好做的做一下
- j1 C7 G: c' C* j( A# k一、当极径和切线夹角为90度时,对数螺旋线就是一个圆! Z* [9 [8 e0 n0 E8 I% D: Q
Untitled-1.gif
3 ]6 C$ u% b8 n  f! m% o 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语言编的程序,还是牛人多啊* H3 W3 v0 [5 P9 B- V: P
Sub LUOXUAN()
. y9 }8 F$ j, n    Dim R1 As Double, R2 As Double, A As Double, A1 As Double, A2 As Double, P1(2) As Double, P2(2) As Double, T) ^, ^+ T" v/ G3 o' H
    Dim L1 As AcadLine, L2 As AcadLine, R As Double, I As Integer, P(302) As Double, S As Double" ]& q1 v7 D9 m+ n4 a
    R1 = 100: R2 = 200  p* ~( c8 g+ A& q9 P9 X6 W
    With ThisDrawing
3 q( n/ y& O7 U- J8 h        .ModelSpace.AddCircle P1, R1
& C4 Z: w  Y' F6 C& {        .ModelSpace.AddCircle P1, R2; X) w8 I( }4 I, D
        P2(0) = R13 N  ]$ j& i- u( X2 I
        Set L1 = .ModelSpace.AddLine(P2, P1)/ q4 L6 {. d& V- r) }4 Q
        Set L2 = .ModelSpace.AddLine(L1.StartPoint, L1.EndPoint)
4 V; G% m3 w. {. G* `/ e8 }        A1 = 0.244346095279206: A2 = 3.14159265358979 '14度到180度
( N/ m6 ?/ ]2 ^2 H0 O        Do
  B) C' R" N% P6 N; Q5 N' W, v. S            A = (A1 + A2) / 2#
" |2 B8 o' U( G+ l: Y5 ?! ?            L2.StartPoint = .Utility.PolarPoint(P1, A, R2)
3 s# d8 D, e& s. _8 D3 @$ |            L2.EndPoint = .Utility.PolarPoint(L2.StartPoint, 2.89724655831059 + A, 1) '166度+A, P7 a. M0 Y: P8 d1 l, U" P
            L1.EndPoint = L1.IntersectWith(L2, acExtendBoth)
/ M) {! V1 T; e* V( f" L: v            L2.EndPoint = L1.EndPoint
. F" @1 l- k9 e3 i7 Z2 a3 X1 S/ s% f( {            R = L1.Length * Exp((A - 0.244346095279206) / Tan(0.994837673636768)) '(A-14度)/tan(57度). \4 j  A. W0 {( y  H( u" ~
            If L2.Length = R Or A = A1 Or A = A2 Then Exit Do
- H3 }. c1 r! ]6 A8 N3 h0 _9 M            If L2.Length > R Then9 o1 {2 A1 C" W  N. Z5 ?$ R
                A1 = A
- C) x9 D! T( h            Else; g) K) s; D/ i: L) X9 B
                A2 = A& T" W" q+ p: P8 P3 A
            End If
) z/ Q* f$ _. K' }. w        Loop. `& |1 A  R8 ]' P' Z- x
        .ModelSpace.AddLine P1, L2.StartPoint; W# C/ c6 u% F5 S
        For I = 0 To 100; G. j! I9 H0 o) s! s- }2 A
            S = A / 100# * CDbl(I) - 0.122173047639603
. G& v% d# }* s9 j( `            R = L1.Length * Exp(S / Tan(0.994837673636768))
& p+ W; U6 |( M! L4 }2 G            P(I * 3) = R * Cos(S) + R1 - L1.Length: M7 k7 S0 V; q- y, t
            P(I * 3 + 1) = R * Sin(S)2 r3 ?3 d2 z7 R7 b+ X
        Next
3 v6 z" W0 [6 O- t8 E; ^+ P6 D, j        .ModelSpace.AddSpline P, P1, P12 l' J+ q+ n+ I. m* o
    End With" M4 d$ |! l# m& g+ D
End Sub
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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