QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
3天前
查看: 71458|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve
9 Y) n2 a! T1 x2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”0 P2 `+ A4 G- T) ?2 }6 z/ q. f
1.jpg 0 Z9 L2 U* }9 w* R8 Z1 ~6 p: f
+ `5 L1 r5 ?  d1 [7 ^% ?/ e7 h
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载7 r& _4 M, x+ O! C4 B  x
2.jpg
: E. g7 R1 V. ?/ d/ u) n$ _  v; j/ k
出现图示按钮.点击之则运行
6 h, {3 Z3 x' t+ O 3.jpg 4 n3 g  c8 T3 Z& B  J3 ~- r2 G
4.jpg
9 }3 O  o1 N+ T4 d4 M
) h( d% [% `( u; v: E3 {
点击取自..”* W* W  N' f7 H+ o/ U
5.jpg 7 P( h1 p- Y7 v9 r+ V+ C& M1 z
选择偏心正弦凸轮.lkj”,”OK”& m, E" ^# z* v" g
6.jpg ; l5 Y$ n+ j0 G/ d' I6 ?  P
点相对运动傍的”>>”钮,出现. A# |& V0 m( D$ Y8 a3 ]
; _1 S, g* L/ L4 _, i
7.jpg 7 {+ V; Q. v, C- j# u9 V: O0 a
退出窗口,返回上一主窗口
! b( u$ O4 @, ?& O) G1 J”Help”
3 `" {+ @% `, A6 m9 r8 u 8.jpg " _0 S: `, P: J( p( S
/ @& b: P- _2 Y; T0 N1 c
出现函数支持窗口' S6 Q+ q. z8 v
绘制
3 T4 T$ G& R9 R, G  N+ y 9.jpg : p9 ^3 v9 ]* z2 O6 ^* b
出现一类凸轮图形.8 s) Q! N" [/ z# e' h
4 G( z" s' ]2 ]& J* d4 E
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?9 K4 m% l$ _- s- N; G! T
! x, y/ M8 I1 ]: m6 r$ u3 S
不敢用啊
发表于 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% D. r' f! b' _5 k用不了。
/ M  A; r. h, N提示:
6 {& Y) L/ ^$ V* ?    命令: -vbarun 正在初始化 VBA 系统...* Q( d1 p6 m9 D# J/ X
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main" Q/ N9 E9 }. s- \
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
, c- H- z+ e# Q没有返回去用过。但我想2004肯定没问题。/ t" I; T0 R& M1 O# U
另外CAD必须安VBA。
4 c8 c7 @! y5 D7 L楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
4 W" g$ ~/ K1 Z9 _有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。" Z& W% R1 r( D( b3 [/ D
其次我想普及,可一时操作后悔却没办法改权限。0 d, s. k& ]  e/ g- a6 U" ^% b
再则同志们反应真的很冷淡。
- J9 g1 k" o8 [4 U% ^/ L有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。8 k1 R1 S) o+ `! R( j
那些个想画渐开线的,用上这东东还悉什么呢?) |: n( x* K3 `9 f
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。% J8 n$ N$ S$ b& v+ c
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)9 G+ V% @3 f- o2 v3 q
雷电波公式,呵呵呵呵。。。# R) D( y7 A+ ]& Z4 |8 ^) y
同志们捧个场撒。。。0 x: Y8 w4 }, M* u+ S" d# ~2 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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。, o, V2 l  W0 b8 |( t) K4 k; b- l
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
* r! @3 e* Y/ H+ n7 y9 v3 Q李萨如图和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"
; g, \8 r: _2 s3 \/ d, I, U"0"
- B2 |7 k* k& v6 K- S" M! b"0.01"
* w  f# z: e6 D4 ~9 P! ~"0"( r; q+ Q" L! {! z
"2*pi"
: ]1 x0 `0 l" x" w"r+(r^2-ee^2)^0.5-r"
. r" G& F/ |/ w( K"0"
: `! q* m8 O  [: i4 [* y) j"x"
$ b6 i) W5 g) ^% C! v; {9 b"1"
) o, L: U. ~6 d7 H# e; L' G5 {" }"1"/ G- ~1 u6 ]4 V. n0 u. d3 k
"ee"' ~. ?( e1 ?( h% F, L8 L& l
"0"/ Q, ?8 E. m5 |
"(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"$ Z0 X! r! e; P! }1 a
"1"
9 [2 `4 u$ n3 w"ee=1"& {6 ?$ s, F0 t) [6 W" X
"nc=pi/5": e. n& `! }" l) i( ]6 Q
"na=1*pi/5"
5 d. I9 X+ F/ Q% A. Q& K"nb=5*pi/5"
9 Y1 y- x3 |: l, s: y# Y0 G"r=18"6 s" G6 N: z4 N7 F6 }! T, `2 g" |' U
"h=5". P/ t1 `+ x1 h! K
"---------------"
. u8 {4 _( N* Q"偏心正弦凸轮"" ~- V! D) Z$ v. i! j1 U; `# A
( ^8 J3 m# n4 d& E0 \+ e
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮2 ?3 l: {7 I! B3 `/ X+ _: Z
其中ee偏心距
( @# r6 V8 {( ^3 t6 o! q2 O3 ur基半径
5 C- y7 |- ?6 h6 q: Yh 行程- t2 z; @4 ^# r: l" v
na上升转角# ~8 N% @; X/ A
nb上升停止角
- H+ }; c, T- Z8 ~, I5 Enc下降角
, M6 H' @; a+ o4 F在程序中下拉框中可任意修改。- E/ ~. h5 w" ~& y4 q

/ y$ C9 m. C) w) p7 t[ 本帖最后由 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 )

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