QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 71624|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve* g9 A! ]4 `, w$ g! f) k: A
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”$ X! T' T; G/ g
1.jpg   [9 n: w& y+ @3 @1 r0 B3 A

8 Y0 Y) {  A1 G& {9 p, `" X' @; O3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
* R, C+ `# Z  Z9 @ 2.jpg 6 b6 r5 o$ V+ a$ w6 w% F8 _1 n

4 n( f$ M( v! O4 I% ?出现图示按钮.点击之则运行1 c8 \) Z5 b5 }  K$ H  k* _) [
3.jpg
) Q) r) Z. c' k* L 4.jpg
) Y9 {+ v8 ]2 l' r+ |9 @( ^

& I/ {' \% R  x& F3 f( l点击取自..”4 ?( j* F" }5 R8 N
5.jpg
7 x; a5 S$ X1 @2 N选择偏心正弦凸轮.lkj”,”OK”  @% I2 `% J1 P% Q! H- m- G
6.jpg 6 H2 y5 Z$ @6 s/ `9 l( R
点相对运动傍的”>>”钮,出现9 u2 Y' I% ?/ i, i  a  L) T
3 M4 D4 d2 q6 c" I
7.jpg 3 B% j5 ~+ T( R
退出窗口,返回上一主窗口
! s- m4 Q: t" e: i”Help”; b  z$ l% e' ^1 a# u
8.jpg : P7 l( U* Y0 W2 u+ K0 O! C

. W* S. `/ y, r8 y' f4 O出现函数支持窗口9 B' t8 Y2 W$ o" }) S' h, t
绘制& c" Y9 i' ?% L- K
9.jpg
. O- E0 H% F( S出现一类凸轮图形.; p. Z+ G! S+ K' ^2 O+ w0 Y% P

) _' r$ J3 w- N7 n" j. D* ^[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?! c  @7 ?/ o% g1 X
* }' I0 c7 D0 n5 l
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
4 Y- x" C9 i! |$ L" {& U用不了。9 C3 K! ?9 M/ L3 k1 q2 V' H
提示:
: A* U0 W: Z3 X    命令: -vbarun 正在初始化 VBA 系统...5 i5 p! S1 h: l6 `, ^
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main9 j- h5 @; u7 l  ^7 p9 [+ I
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
9 g. D* r  U4 ]+ E; N" [$ ?1 x- u没有返回去用过。但我想2004肯定没问题。
' k, F: ^* Y+ g4 |" U另外CAD必须安VBA。! Y2 G% `4 q  R- j
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。1 W; R2 G( s; q& c) u& ?/ |6 \
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。2 L% L1 j5 F- w5 j
其次我想普及,可一时操作后悔却没办法改权限。* ~  O; h8 `! o" Z% @4 [* B5 y
再则同志们反应真的很冷淡。
- Y) X  k# p" I; a5 ]有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。$ k' N' \1 D( q. d
那些个想画渐开线的,用上这东东还悉什么呢?
4 K+ [' c7 u4 l0 r6 ?7 W$ Z比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。1 d( L4 Q+ }9 @" `* K! c$ \
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)4 h5 \+ G* m9 u& S$ S
雷电波公式,呵呵呵呵。。。
( @1 R, l( `0 x同志们捧个场撒。。。1 W  q+ c) ^# G& {& L6 A
我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
# E* s3 g" a( X" W7 t通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:$ f, c! w7 d. B5 s) ~
李萨如图和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"$ P# H1 U7 Q$ F) e
"0"
" r. p& n6 |, I4 N"0.01"" H# k7 T! {+ J2 v" p4 q: c
"0"
; I  P+ F3 w6 d' X$ o5 H5 [) |"2*pi"
6 G" [  j' z9 N2 ^' K"r+(r^2-ee^2)^0.5-r"$ s) M' D! a# ?% x( o
"0"; g* D3 r7 N" ^& _; H
"x"
- `! {7 Y( M: ^9 {: W4 G& \0 @( L"1"
/ Y+ W6 L$ H/ m; i6 R% v9 A& M& O  l"1", [- `/ n) Y$ C' ~; |; l
"ee"
% y8 q" ?& e+ K' Z"0"
6 E! K! ?; }- y) I"(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": u3 f4 v5 ?* @5 }% }7 P; D
"1"8 B4 K& D, @9 X- j* A" m$ `
"ee=1"
  I" W9 l4 C8 h4 I$ h1 Z& d"nc=pi/5"+ u8 f( Y" d# J; j0 D7 [5 |& H
"na=1*pi/5"4 }% R) o* b8 U% n# q; _7 ^
"nb=5*pi/5". T0 u- |8 V6 k: `6 M
"r=18"+ }0 ?( a5 N7 |2 w
"h=5"5 r& I  K+ h# M9 r- F6 z
"---------------"
- Y9 T) A9 }  r0 h, [% o# g$ O"偏心正弦凸轮"
; q' D* L( u) J# {& k- J- X. W
1 z4 t- `% x" Z/ K; Z! p% m以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
% O% u$ I) D& V) t, d6 o  L( ]其中ee偏心距
* [$ D! }8 K+ M2 ]0 h% P$ {r基半径3 r$ g) z' ~, F6 H
h 行程* {9 n9 Y$ {! n* V* h: Y! K
na上升转角
3 @" a4 F; u) @7 b. K6 Dnb上升停止角' U6 i! |% T1 \, B
nc下降角
9 u, V! B. U- m/ Y" k) o" i& h在程序中下拉框中可任意修改。# S& n$ y+ z! \. I4 w2 [# Z. B* |

4 H9 s0 v9 B1 L9 D( ?4 r6 P[ 本帖最后由 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 )

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