QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
5天前
查看: 70444|回复: 232
收起左侧

[原创] AutoCAD下公式曲线(人人都会画函数)经典程序分享

[复制链接]
发表于 2007-4-4 21:27:21 | 显示全部楼层 |阅读模式 来自: 中国四川成都

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

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

x
1.       解压文件至C:\curve7 J2 K2 G" d/ ^
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”1 z% ^4 H1 H- s
1.jpg
7 ^/ t' X. j2 V  d% H- G, [4 b) ~$ M7 }" q& i5 {
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载; h* X7 l. ~: v7 _" h
2.jpg 0 d5 s+ T/ B$ ~2 F

9 Y0 ?. r; I# F# D7 \出现图示按钮.点击之则运行8 i2 A- O. `' }5 F
3.jpg
- {, j# @% c( @4 B 4.jpg
1 |$ y" I: I* |

' U2 |! z/ T, D  b点击取自..”6 q- n/ {3 R& E0 J
5.jpg * ?! q# ~5 e) l9 D/ A
选择偏心正弦凸轮.lkj”,”OK”1 o( n3 Y. c, q- Y* ]8 z4 a
6.jpg $ x  F5 _6 H6 \. \' a7 n6 N. Q
点相对运动傍的”>>”钮,出现
* x/ A- g: r$ s8 ~& j6 m
5 u2 e8 x, b9 L  q- p9 L' ] 7.jpg
" m, p! u0 A% u3 F退出窗口,返回上一主窗口
5 Q6 z3 x9 a2 F”Help”% C$ Y7 k- U5 n1 K; X  {0 C! m
8.jpg
8 Q- M3 v3 p1 L! W! L$ w2 N  s/ W0 z3 C: _
出现函数支持窗口  f0 J. k* g& S( k7 g3 B
绘制9 S4 n: X' o7 J- N( M) J: K) J( V' ]
9.jpg . h9 J0 V# I# {& \( X' w
出现一类凸轮图形.: u7 J* O8 J1 U. a2 C1 ^( F

  P" S' |9 o  r3 `; e+ Z8 J) i* g[ 本帖最后由 blackbird 于 2007-5-9 12:38 编辑 ]

curve.rar

998.34 KB, 下载次数: 4760

点此下载

评分

参与人数 1三维币 +5 收起 理由
blackbird + 5 奖励!

查看全部评分

 楼主| 发表于 2007-4-4 22:30:36 | 显示全部楼层 来自: 中国四川成都

回复 #1 scliukejun 的帖子

版主,请给我返流量哦
发表于 2007-4-4 22:38:13 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
. m  ^8 h2 P* F  N! X$ L" d2 x4 q; h5 }
不敢用啊
发表于 2007-4-5 14:29:27 | 显示全部楼层 来自: 中国北京
支持CAD那些版本? 都支持吗? 权限太高 不利于推广
发表于 2007-4-5 20:54:21 | 显示全部楼层 来自: 中国广东东莞
下了,谢谢,但不知支持那些版本
发表于 2007-4-5 23:54:48 | 显示全部楼层 来自: 中国广东佛山
正想了解一吓~等同志们发表吧!
发表于 2007-4-7 14:21:46 | 显示全部楼层 来自: 中国上海
加载了。( G- B% k' j; K  r% m# E
用不了。
: c3 w# g8 K& a) j3 j提示:
7 ^* r8 S9 l; z; f    命令: -vbarun 正在初始化 VBA 系统...* v; N2 }( s9 I6 Y! E
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
6 z; G; a7 H4 @) t( A未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
& F3 J! y. P1 V( F1 f2 O没有返回去用过。但我想2004肯定没问题。
4 h2 T# m4 w8 ?  U另外CAD必须安VBA。
4 @/ a  L9 E% s' t楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
# }& Q# v# K2 x3 p6 v$ j+ C# j有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。  R9 l6 ^; @, W# K- U
其次我想普及,可一时操作后悔却没办法改权限。- w# h5 d9 n+ }5 E* V- I
再则同志们反应真的很冷淡。" w6 F. ?$ U9 }& C0 ~4 n
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。6 a1 }3 c  x" K* ]& x% q# z
那些个想画渐开线的,用上这东东还悉什么呢?6 Q  K  e' K4 `+ X8 n* i# M
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
8 V9 T4 e" w$ }我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)0 Y2 ?: x- U0 Y0 t* j* @
雷电波公式,呵呵呵呵。。。  H! m. o$ I( S7 ?' W1 i# `, [7 h- v
同志们捧个场撒。。。8 D- A" U( [! p9 R
我给的可是LISP原代码啊,光下不回复的是不是太没良心了。
发表于 2007-4-14 16:52:27 | 显示全部楼层 来自: 中国上海
辛苦了啊 楼主 呵呵 多谢你的分享
发表于 2007-4-14 16:56:27 | 显示全部楼层 来自: 中国河北石家庄
辛苦      了啊 楼主

评分

参与人数 1三维币 -3 收起 理由
唐昕晨 -3 复制他人发言

查看全部评分

发表于 2007-4-15 21:07:01 | 显示全部楼层 来自: 中国安徽蚌埠
这样的程序不错,希望以后多传一点,这对大家都有用。
发表于 2007-4-18 21:10:29 | 显示全部楼层 来自: 中国北京
我也来学习一下,在此非常感谢版主,不过有时就是不回帖,可是也不能说没有良心,不论在什么情况下,都是不能改变你的功绩的。光明的永远不会黑暗。达者,永远是老师。我想我可以这样称呼你“老师你辛苦了!!!”
发表于 2007-4-19 13:09:38 | 显示全部楼层 来自: 中国山东青岛
谢谢楼主。希望楼主能将LISP程序也传上来,现在没用到公式画曲线,不代表以后也用不到。现在不收集,到用的时候根本就找不到。
发表于 2007-4-19 18:04:32 | 显示全部楼层 来自: 中国广东佛山
这个程序以后可能有用,先收着,谢谢。
发表于 2007-4-19 19:39:11 | 显示全部楼层 来自: 中国浙江宁波
用了,能不能上一些公式给大家分享。
 楼主| 发表于 2007-4-22 11:18:24 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。8 b" S' N6 w2 Y. Q* M; _
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:) y- e( q, T* e3 v& X; f0 X
李萨如图和4叶玫瑰

4l.rar

319 Bytes, 下载次数: 335

 楼主| 发表于 2007-5-1 21:49:04 | 显示全部楼层 来自: 中国四川成都

推瓶螺杆截面公式(送料机构)

发表于 2007-5-2 21:38:26 | 显示全部楼层 来自: 中国山东日照
高手,敬佩,连 安装及使用帮助.mht都有,就是不知还能用在R14下吗
 楼主| 发表于 2007-5-2 21:58:49 | 显示全部楼层 来自: 中国四川成都

回复 #20 szp 的帖子

试试嘛,实践了同真理,多说无用。
 楼主| 发表于 2007-5-16 13:02:36 | 显示全部楼层 来自: 中国四川成都

偏心正弦凸轮绘制公式

"VAL"+ S5 L1 e- S$ w$ T) y
"0"! n1 N& l# {# t9 g
"0.01"0 \( D! I8 b  d! k+ `' P& J
"0"
; P7 n* G! Z2 A6 l: {6 Z8 I+ X"2*pi", X/ e4 S! c2 N7 b4 y3 Y; `/ Y- ~
"r+(r^2-ee^2)^0.5-r"
3 a' q  T' ~$ q$ B" ?"0"
2 P' u9 [+ O  P' h4 w  \" ?: u"x"
; N0 h+ z3 c- w"1"$ w% {) A( q  C
"1"
: q; s( ]; s: o"ee"
. I: y+ q& a- d6 q9 X* k6 @"0"0 \, D' A7 x# p  z- h( n3 _0 G4 Q
"(x-na),(x-na-nb),(x-na-nb-nc);SIN(R2D(2*pi/na*x+pi))*h/2/pi+h/na*x,h,h-(SIN(R2D(2*pi/nc*(x-na-nb)+pi))*h/2/pi+h/nc*(x-na-nb)),0"
1 B% g9 p4 f6 R; V3 L0 U"1"
7 J# \* q8 d4 {. W6 w0 g" b, o+ m"ee=1"
3 [. J# U  ^  |- \" [( u"nc=pi/5"
( d) @* C  E: ]* E# W. j4 g; R"na=1*pi/5"- q# }1 {. o4 |3 _
"nb=5*pi/5". l+ x8 D  X! G: |  x9 I, E
"r=18"" h! Y3 N+ B. h: s6 A
"h=5": r$ P1 j6 d$ x- A( F& n" g
"---------------"
+ D* K4 q# q$ C- }"偏心正弦凸轮"9 d9 h* T. N3 A1 @% q- r

( v0 Z/ _( ]. F. B# x' [3 |以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
& G( K! r5 T1 B- Z: p4 a- c( |' b其中ee偏心距
* }0 H# M8 q: F' |% q3 W+ J4 Br基半径& o" V6 D# a  D8 W  e
h 行程
! [/ w2 ^# _1 Y& l$ T5 nna上升转角1 A+ U  p; o) Q% e( m5 ?3 x# [
nb上升停止角
# t7 d/ ~& A1 e8 ^nc下降角) d, J0 p3 ~; k
在程序中下拉框中可任意修改。
  \- Y. T, k8 _  m6 i& I$ X7 a" B) b3 M, F5 q9 C2 j
[ 本帖最后由 scliukejun 于 2007-5-16 13:07 编辑 ]

偏心正弦凸轮.rar

289 Bytes, 下载次数: 313

发表于 2007-5-16 19:28:21 | 显示全部楼层 来自: 中国湖北黄石

回复 #9 scliukejun 的帖子

谢谢楼主希望楼主能多上传些LISP程序上来.有矩形截面的弹簧程序和画内螺纹的LISP程序吗传上来我急用.谢谢...!!!
发表于 2007-5-16 19:34:27 | 显示全部楼层 来自: 中国广东中山
看贴,不管有用没用,顶下,以示感谢与鼓励~~~
发表于 2007-5-16 20:31:34 | 显示全部楼层 来自: 中国上海
谢谢楼主!下了好学习一下!
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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