QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve
( R) q8 T/ y; w4 C2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”& j" r: p/ r/ b. I
1.jpg
) F5 L; C% h# b* O
) U( p- J6 |( q" Q- n3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载+ j$ h9 @! N/ \! L
2.jpg - b  j; H* s2 n+ l5 _2 Z
# K2 n+ r% V4 _& h* _
出现图示按钮.点击之则运行6 B4 s* }( u$ |9 ]( c  y
3.jpg 5 d& R* w  f; c  t4 V
4.jpg
0 {7 @0 P. ~/ f; b% [% \+ F8 l5 e
- j) ^, X, Q/ }# n* G0 d+ R( w  j1 j
点击取自..”
: w5 M3 x7 y# g0 z/ K0 y# S( Z2 c 5.jpg 3 Z. ~# q; j6 ^* D8 Z7 t
选择偏心正弦凸轮.lkj”,”OK”
" E2 |- f7 K2 `+ i* B+ O+ ] 6.jpg 7 [* m, \' J  {6 I/ R2 C* s
点相对运动傍的”>>”钮,出现
% R, ^9 r& L# a( U4 D; e/ ?( z
: A% O. }! s% B8 M: W 7.jpg
6 m2 i/ a0 M, ]! H0 R: U4 H: N& @退出窗口,返回上一主窗口
- n" H4 O* c1 G6 m. ~+ _1 W”Help”9 c8 Y4 K! x# ^( O; V6 h0 |
8.jpg 3 w9 T  `, J, l/ J
% n! q4 j7 F$ M; i
出现函数支持窗口) I2 ]3 b( {2 \4 v# W5 B$ p+ k
绘制4 P! Q7 T& i! L# v
9.jpg 0 C2 [( ?# F/ ~$ z
出现一类凸轮图形.
) d) m" g. \1 f
0 r; M# W8 B5 D6 A) h& q[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
. A; ?4 a# Z: F7 v( p9 [  [) G  R% p) t2 D4 a: U7 g  D# d
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
5 W: m% g9 m/ R& n1 |用不了。+ P7 r7 x5 K( g; E
提示:
% O- D, N- }7 U+ m    命令: -vbarun 正在初始化 VBA 系统...$ F& P. Y  }) K. M) ~0 I
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
/ Z. L8 x' d) z6 I2 f未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。0 m% A7 C9 z+ U( i3 \
没有返回去用过。但我想2004肯定没问题。
+ H& i( Z5 o, j: |8 N) ^另外CAD必须安VBA。9 T* `- @7 O6 @. C/ G* I
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
7 M8 g' k% L$ l( O, \有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
' s3 K8 a; b6 {( y其次我想普及,可一时操作后悔却没办法改权限。
1 @  j2 d; D' g6 E& u9 l再则同志们反应真的很冷淡。5 M- I' L% ?( h8 R1 u
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。+ A1 }, a. I7 s( d3 F
那些个想画渐开线的,用上这东东还悉什么呢?# K! s# ^; p8 O) }, _, s$ [1 ?# x
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。! u. T) V: n5 G5 W! x
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
6 H8 d, R3 M$ L# G0 `雷电波公式,呵呵呵呵。。。+ [; S3 a# x/ K5 ~0 v( O
同志们捧个场撒。。。
4 q; w0 _1 v2 @4 S7 g7 D我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
7 v& v! o$ r' F5 F. k通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:0 {' L, t4 W. j8 P8 V2 U" P
李萨如图和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") f( V  M3 Y. \$ A
"0"( b3 b$ a1 B* Y' E( L! d
"0.01"
* t/ H/ D) Z% s6 r  ]  z) u"0"
/ b  [; X, z: {5 z"2*pi"
+ e/ N/ n0 u# ]% J$ W' R/ T# Y* a/ l+ |+ R"r+(r^2-ee^2)^0.5-r"
- O) o8 L$ W( _8 v3 }* I! C& y5 }"0"
  `  Z0 F' H) _8 H"x"& J7 d/ U  g$ y0 n4 s
"1"/ c4 M8 f0 c* W- {: b" J
"1"
( J2 y7 q  m. V& \"ee"
: ?5 \# J! j4 a& m7 h. ?* N! Q' W+ W"0") r; b( |1 w* R( U2 N! x
"(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"
7 w) U% P0 b# q5 M"1"& {& @' b: b4 }
"ee=1", S; A3 Z: @& c! }/ R  t" @
"nc=pi/5"
) `/ V8 X: U& t* L2 ?: M' {"na=1*pi/5"
0 [$ t  E$ B/ i1 X6 v0 X% N/ l"nb=5*pi/5"
5 B8 w* q7 F: R: }4 j; C4 M8 F"r=18"2 ?6 Z2 D. Z' g3 ], Y. h) J
"h=5"
3 ?8 D6 h* A3 `/ ?"---------------"
1 W1 q% o+ J) {4 X2 [; O"偏心正弦凸轮") R: K5 i! T" k/ G
; N; U* L& K! \; i, f1 N
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮" i- o. \- @0 b
其中ee偏心距
0 `% ?4 t5 w6 K0 J. G. tr基半径3 w! l5 N3 N" U
h 行程, b: |5 o' w, U  i5 R  `
na上升转角/ t. J* z+ @( v& K+ P0 V* @
nb上升停止角
/ R8 Q9 W& n! H- z; W2 Z" |( k. l0 Snc下降角
( A: A. F% N! g5 d1 ~& O- E. V' x在程序中下拉框中可任意修改。9 T3 X: s2 o* y( Z9 a7 D- s. r

9 B) n! W4 C5 j! B- z1 b[ 本帖最后由 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 )

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