QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve
5 @$ G8 \# b& y% D6 i& V" D6 ]2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”3 b- t- J& q% ~) N1 |
1.jpg
1 e! d) w0 u( O
3 {' I# c2 F* A" s6 U3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载5 J& {( \: U  H1 r
2.jpg 8 \7 f, Q5 w& t- t6 {
( \/ ^3 l4 c- X
出现图示按钮.点击之则运行
  b: d+ k- r4 x- H9 f4 b; A 3.jpg
6 r5 `( F& n; Y5 j+ Q# W! [ 4.jpg
' H8 x9 V9 s) b4 X; h# M0 h' l

& D+ `2 I' V% z; ]3 d$ S+ G点击取自..”4 T2 ^* P0 q: ~  Q
5.jpg
& M. I/ ~+ W3 D" ?& P选择偏心正弦凸轮.lkj”,”OK”9 @: p* o2 A0 b- V
6.jpg
8 S# C. L1 Q( X* _点相对运动傍的”>>”钮,出现9 {$ Y  E; b5 [6 t: y
; a/ Y: C3 K5 U' H
7.jpg
/ O- B; `& h; x4 H2 f; K2 f! Z退出窗口,返回上一主窗口
4 p$ B, B( \1 i; W”Help”$ s" S% K+ ~, f
8.jpg
. x/ a* g  b7 C5 `5 `4 V# G
( E$ F" j5 `5 o) R  R# s) \/ y出现函数支持窗口- w' c& g' Y; H! N
绘制4 V) z8 y- a! I* l
9.jpg
: {6 Y6 `, i3 z1 j+ Y) Z6 `& x出现一类凸轮图形.0 O) M* a1 `: H3 ^
0 S0 b6 o4 G* m5 L
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
% u% E5 |6 d- S5 E/ H+ m3 w' Q. _8 u0 N& F; W: V
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。$ P$ D$ k4 v. _3 K( e2 r
用不了。2 t" E) ~! e% Z; v* n. F( x
提示:
7 t9 f6 K6 E( ?: d    命令: -vbarun 正在初始化 VBA 系统...
* _# Z3 A/ F, q4 L宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
7 H4 O/ H$ F3 {. M* a. {未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。" n* n1 r$ l- q  R* _. s
没有返回去用过。但我想2004肯定没问题。) _9 J+ Z: F$ z, f0 @
另外CAD必须安VBA。7 c' k0 {  X0 l1 [, n. H
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
; T6 W, f8 |4 \' J7 O5 c2 Y3 z0 D+ a8 _. ]有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
* u* b+ D( F* h, g其次我想普及,可一时操作后悔却没办法改权限。
. ]6 o7 n: J2 v再则同志们反应真的很冷淡。0 P) S6 u% A1 h, [. _8 ]% X9 [
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
7 o, ~& t' [- W8 V) i* d5 P那些个想画渐开线的,用上这东东还悉什么呢?
6 x9 @: N, [) Q1 U, P$ u比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
* m2 W5 t3 }4 {$ _. K我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
1 V/ M! l2 l2 L5 f雷电波公式,呵呵呵呵。。。9 }4 n5 I: U/ S
同志们捧个场撒。。。
2 X" w/ ]9 c, G3 z0 @+ F( ^& E我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
2 t/ l* z- D' K* b# h! p通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
# P8 u8 R* n) S4 u3 R" W1 u李萨如图和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"
. l, t4 C  m$ o+ s: h5 {: s"0"; Q4 k3 C; Q$ w1 }: K
"0.01") x' Z& `' r+ M: E3 w
"0"
. ?! Q) m5 c+ l8 e"2*pi"5 U" Y- M+ d- a9 w8 }" k
"r+(r^2-ee^2)^0.5-r": S' x  v# J4 M' O" M: R. q
"0"& P! _! X+ `) o9 \" {8 M
"x"8 c+ u0 F! L$ q! L% _0 L% L
"1"! B# B$ w! N/ [+ K1 q  ]( I
"1") S  d+ N3 p2 @$ m
"ee"
- N# O3 L4 V3 ]"0"
4 X5 ~, e/ I. r) f( P, @% w; 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"2 w" n, p5 ?$ L/ R
"1"
3 `+ M; n& G' u1 p5 y- A" q0 j0 j"ee=1"
0 l: a! m# k  Z0 b1 ~"nc=pi/5"& O- W. o! p) ?# k6 K. a5 ]
"na=1*pi/5"
4 O& P6 e9 e! ~( v- G"nb=5*pi/5"3 w8 Z) S" N9 p* M9 z% X. N
"r=18"6 ?; R+ t# J5 u) i7 Q3 Z5 G% O
"h=5": ~  M3 k# X0 z8 @, d
"---------------"
$ ^" T, I- |+ m: C# e1 T"偏心正弦凸轮"! s. t/ u& F5 ~% V- a

$ M8 B6 E; ?8 v: j/ z3 w. h+ B以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮' V" |1 C7 L" {4 @2 I
其中ee偏心距/ ?/ N, B$ o7 U) M# j! q
r基半径6 B5 T$ n% |2 @" W6 k% r! P
h 行程
- a2 [6 }# L6 E2 y6 o* |/ Rna上升转角
/ e% q, w9 s8 Qnb上升停止角
% `$ y/ ^1 W& u0 h/ K. j+ hnc下降角, F1 X3 @0 U0 I* O  q' m' y8 s
在程序中下拉框中可任意修改。. E" T! `1 q: ^5 s( P! h
# Y2 G( ~, O4 |* y4 A/ D
[ 本帖最后由 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 )

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