QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
7天前
查看: 14993|回复: 26
收起左侧

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

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

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

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

x
请问用谁会用CAD画对数螺旋曲线呀?# D' K9 w/ L2 D7 L  Q
如两个同心圆,中间用对数螺线连接,弧与小圆的夹角(切线夹角)为33度,与大圆的夹角为47度,2 w) j$ Q1 m% V# i3 [
请高手指点迷津!
 楼主| 发表于 2006-10-25 13:02:19 | 显示全部楼层 来自: 中国江苏苏州
自已先顶一下,高手快来指点一下,谢谢!!
发表于 2006-10-25 15:13:35 | 显示全部楼层 来自: 中国江苏常州
软件本身不具备这样的功能!除非有些二次开发的软件有,或者您就自己编程解决吧!
发表于 2008-6-23 15:25:29 | 显示全部楼层 来自: 中国四川成都
画对数螺旋容易,难在角度要按你的要求
+ U1 R) @5 ?* D6 hhttp://www.3dportal.cn/discuz/vi ... p;page=2#pid2399170( @+ \- h7 g8 m; d+ l  h, e* e
采用对数螺旋线,其基本性质为:曲线上任意点的切线与通过该点的连心线之间的夹角β为常数。该夹角称之为螺旋角。螺旋线在极坐标上的表达式可写成:
9 X+ q" n9 a' \! O$ h% H  r=r0*e^(kθ),k=ctgβ- H$ q  Y% N* U0 y& e" |  Y! O
=================================
. g/ y6 `" @2 _# VLZ说的是对数螺旋线吗?
发表于 2008-6-29 00:18:37 | 显示全部楼层 来自: 中国台湾
如果有哪一位先进们懂得画出此7 \( p% r9 _1 o" `2 g
对数螺旋线
3 i2 U- E( D# s6 l让大家也一起学习学习  E7 c" [' V7 G9 @: d1 b! p2 J# w( I
不胜感激
发表于 2008-9-3 15:40:47 | 显示全部楼层 来自: 中国广东深圳
我不会。8 G1 o0 f' j6 J" [4 ^
我也好想有人告知!
发表于 2008-9-3 22:31:30 | 显示全部楼层 来自: 中国山东济南
高手出来帮一以下啊   让大家都跟着学习以下
发表于 2008-9-4 10:48:46 | 显示全部楼层 来自: 中国上海
用CAD有点难度
发表于 2008-9-9 19:31:33 | 显示全部楼层 来自: 中国浙江金华
利用对数方程,spl曲线EXCEL倒入,转换成多段线,园弧D选项相切画弧.* k+ u5 D3 S. i6 D1 ?% j
HEHE
发表于 2008-10-5 17:11:45 | 显示全部楼层 来自: 中国河南郑州
不容易啊 怎么办呢
发表于 2008-10-6 18:09:17 | 显示全部楼层 来自: 中国广西梧州

回复 1# benwang 的帖子

怎么不试着用PROE啊?8 D8 t! U/ R( R9 [( s, U
发表于 2008-10-6 18:51:10 | 显示全部楼层 来自: 中国浙江金华

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

人人都会破衣?
' |  F1 B( c3 m' g  t就是会也还是要画的.
) D5 Y$ [' E& [5 i' p8 y% q: n不用牛刀了吧.
  {6 P8 a3 h5 F( AHEHE
发表于 2008-10-9 16:00:13 | 显示全部楼层 来自: 中国辽宁营口
本题没有限制对数螺旋线的具体参数,所以能做出无数个答案。4 G7 X/ A$ x. Y0 d" v
下面挑两种特殊情况,比较好做的做一下+ a+ \: o- M# [5 C. B" j) M
一、当极径和切线夹角为90度时,对数螺旋线就是一个圆
  S  ]6 w) R" m! a( A7 ~ Untitled-1.gif
. ~7 \& W! H/ J6 A6 _ 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语言编的程序,还是牛人多啊
% S7 i' }" u, G( e( U1 r7 LSub LUOXUAN()
0 [( M8 H& c# ]2 M( X) O: m    Dim R1 As Double, R2 As Double, A As Double, A1 As Double, A2 As Double, P1(2) As Double, P2(2) As Double! Q' f' C5 x, \( i3 Q
    Dim L1 As AcadLine, L2 As AcadLine, R As Double, I As Integer, P(302) As Double, S As Double
3 d2 X* `3 \5 ]9 d  |    R1 = 100: R2 = 200# ~  @( H. e( F0 s6 ?6 y
    With ThisDrawing
% @1 O! f/ ~; ]' k5 A% O        .ModelSpace.AddCircle P1, R1* G. e2 S# v. G# z% _$ F
        .ModelSpace.AddCircle P1, R2
! x# S$ D, Z8 D( @        P2(0) = R1
1 Y% T  J  H9 d& a; j# G5 i        Set L1 = .ModelSpace.AddLine(P2, P1)
9 _; \; H; |+ ~. U% J, K* j  [        Set L2 = .ModelSpace.AddLine(L1.StartPoint, L1.EndPoint)
/ C9 |5 U0 A; q/ v' H4 s4 @( w        A1 = 0.244346095279206: A2 = 3.14159265358979 '14度到180度
! a+ O  e2 W( c0 j        Do) @% C7 h- |. D% z$ U' Y
            A = (A1 + A2) / 2#6 T" k4 {5 k  l+ m# M' S" i( K6 C
            L2.StartPoint = .Utility.PolarPoint(P1, A, R2): I) `) e, v; d
            L2.EndPoint = .Utility.PolarPoint(L2.StartPoint, 2.89724655831059 + A, 1) '166度+A
6 c9 J7 Z3 \0 @: H3 _            L1.EndPoint = L1.IntersectWith(L2, acExtendBoth)
: v6 a2 k" l8 s! a, m' w) P4 ?! c( d            L2.EndPoint = L1.EndPoint+ N% H( H! C9 I
            R = L1.Length * Exp((A - 0.244346095279206) / Tan(0.994837673636768)) '(A-14度)/tan(57度)$ I4 J* @! L6 t$ j" J- s: X2 ^
            If L2.Length = R Or A = A1 Or A = A2 Then Exit Do
. t' r! A# z; E& p$ H            If L2.Length > R Then- n* O( h; n5 R. I, V  L
                A1 = A$ F! M( a2 E4 i! W! x
            Else
' ?  N9 ]4 j1 I% G                A2 = A. U- r) [1 w* l7 N( Y; O. Z& P! p& ^
            End If1 Z( G* {$ b* O. J
        Loop- k3 L# ^/ w+ ]* e) L
        .ModelSpace.AddLine P1, L2.StartPoint3 t( g: b* c" o: j- p
        For I = 0 To 100
3 d+ \& I  x) q. y: X0 z1 m            S = A / 100# * CDbl(I) - 0.122173047639603
* F4 @4 J! z4 J! S1 ?  y6 }" v            R = L1.Length * Exp(S / Tan(0.994837673636768))
& N2 r" R# h4 h: A* e4 i0 m. Z            P(I * 3) = R * Cos(S) + R1 - L1.Length2 ]- q" e9 G) t, Y: Q; `
            P(I * 3 + 1) = R * Sin(S)% n1 `' d9 |; W1 X  A; A! P& u
        Next0 i/ s  `3 `* g9 E
        .ModelSpace.AddSpline P, P1, P1
4 m- W5 t) m. W6 Z* S    End With
+ H+ z- o6 u% [End Sub
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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