QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
6天前
查看: 70496|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve
, ~$ [. J* f. y( {+ ^2 h" D2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”2 v) ~/ c+ Y! t3 r8 g5 Q
1.jpg
2 c, {. D. Q% X: j2 B1 l' `4 Z9 r  M! X& Q
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载' V, ], s/ E' F4 y$ k) x& d- N7 X
2.jpg
1 k% ?" |, W8 Y
" x9 `  i0 U5 V3 x出现图示按钮.点击之则运行1 x) U, m, C7 {& [6 z/ ~+ l
3.jpg
5 ~$ ?: S+ N. w! B 4.jpg % c. g" Y/ h5 O1 E# r. M; w
' b9 j' W& S4 i
点击取自..”6 P4 c, R  f* B- M
5.jpg
8 a% `1 r! U  w2 r' P选择偏心正弦凸轮.lkj”,”OK”
8 x! V* t' ~7 A) K 6.jpg 9 M  q5 g# q3 A# ?+ B1 r8 H
点相对运动傍的”>>”钮,出现7 N- c/ O, V% K* E4 y
* ]: r9 ?7 o8 Y( x0 j
7.jpg
. ?8 O' Y, `3 s* e: C退出窗口,返回上一主窗口, r4 c6 w* l. q7 D
”Help”, H3 |6 V! \# k+ Q
8.jpg
$ [: q; q& c; N$ o1 J# q6 X0 w) Z$ y( A9 B" C! v
出现函数支持窗口1 \- K- _* Q' u( N7 n3 X1 L8 j
绘制: j- l; t8 ~3 N/ e% q7 [/ @: ?
9.jpg ' M  k8 _$ k* g
出现一类凸轮图形.$ I1 t  G3 S, Z1 l3 m' |" N
- D8 }& I, C2 U# D0 ]) v* e1 c) p
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?  L# N# }& a# z5 `, g
0 D9 O6 I+ n' P7 n7 S# W
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。. A) @7 ~& |! M$ ~
用不了。
# z* g+ Y4 z& \6 @4 ~提示:
) B3 i7 p8 Q, `5 a; B# Y    命令: -vbarun 正在初始化 VBA 系统.../ p; T. b' u$ R
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
0 n: h# N$ \" k7 ]) n2 w  r  a未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
  n) r& {; p+ @* m" x2 Z. t没有返回去用过。但我想2004肯定没问题。. T: h0 d3 u, f/ y) O) x3 I
另外CAD必须安VBA。0 z( i5 F) H' A; I3 a# d
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。4 x/ c" P$ M- Q; f5 C+ j
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
8 c8 C8 |* U* s其次我想普及,可一时操作后悔却没办法改权限。
6 u6 e/ ~2 B8 C  y" N再则同志们反应真的很冷淡。
( m! h2 y) F( h# C9 R有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
# `' M) @6 A. E" Q4 c/ K7 o那些个想画渐开线的,用上这东东还悉什么呢?
$ Y2 H  |7 y* F2 q5 z* l" a比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。) B% a; r7 J# v( W  H( z
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)# R2 c' q; q2 c0 _6 n) l: [2 n- Y, y4 X
雷电波公式,呵呵呵呵。。。$ r+ s; M% u6 S8 \3 a
同志们捧个场撒。。。
# K' a+ p8 d( r- R* [. j我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。+ c6 L0 F& z% E; q: v
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
9 Z* Q) P, I$ z- f* a李萨如图和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"
' t$ `$ s: j) }# z  I0 @1 g"0"
; Y2 _, E- m4 y2 y8 W"0.01"
7 r) J% F$ Y. X; G! G+ h9 T; n1 _"0"
; Q" m- O( k: F& F) m"2*pi"
9 o) U9 x3 \: D. `( E8 B+ c+ u"r+(r^2-ee^2)^0.5-r"" V* I+ r  ]# p% y; f
"0"/ L+ H: v# m% Q
"x"$ G0 P1 g# r5 h: X
"1"
' h9 S) X) b: ~: M# R"1"5 r' U0 H; w/ ]) N
"ee"7 k6 j: J' @2 ]+ x% @* z
"0"
; k, e0 e- N; X  U) r+ H"(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"
, [- g$ {7 L+ t: r, c3 @4 A4 X9 B"1"
# O. l" S$ n" t# E6 `+ R"ee=1"
7 u! B7 d1 U5 l  @) y: A  A"nc=pi/5"* k. `& \4 M1 M# V" t( _" ~( D' n
"na=1*pi/5"8 a  ^2 t- r- p
"nb=5*pi/5"0 Y+ H! e) ?$ R7 h
"r=18"
, u5 d4 o. V  J) U" E: \"h=5"# y! B: l7 s( p) b# G. `( L2 k
"---------------". o" D# T6 N* C! i/ u
"偏心正弦凸轮"
" ?4 J& Y! Y! a/ p) v% g3 @
. ~9 e, S& ~2 V! [3 E% j6 y以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮2 K- |, X  W0 N' L6 ^: X. S
其中ee偏心距* n& W5 S+ \- R! m: Y' L+ W/ y
r基半径
1 ]6 e( `) S' L! z  wh 行程
3 G* m( x# K5 z/ lna上升转角
+ r1 L8 _. h% G* @/ U4 z& Hnb上升停止角
' G4 I0 `3 n; ^4 B6 N" F* ?! lnc下降角
7 r+ {% ?' s: R& ~6 o. _在程序中下拉框中可任意修改。
7 t/ P  d  m9 e
+ Z/ o! o. X( J4 ~[ 本帖最后由 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 )

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