QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 71643|回复: 232
打印 上一主题 下一主题
收起左侧

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

[复制链接]
跳转到指定楼层
1#
发表于 2007-4-4 21:27:21 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式 来自: 中国四川成都

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

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

x
1.       解压文件至C:\curve
+ B$ ^* [+ S1 W4 b8 P2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”( J: x5 @7 t" F" @
& r5 n5 E* F8 `. |: Y  ?$ s
) l  O. M( }! _6 T
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
( }# Y# ?7 _/ y( m% D # B% [) |. Z4 l, P
  \8 N8 _5 R. ~3 Y4 a7 C
出现图示按钮.点击之则运行- N- ?: M; N, ^( q

: w4 ~& C/ x/ W, @* D / H7 @8 e2 L2 A8 {8 T
/ b% m  v7 r& ]# `6 Y
点击取自..”! T3 z( \% O/ n# ~+ g. M
( Y2 ], |( k9 ~2 F% H" l0 l3 q; G
选择偏心正弦凸轮.lkj”,”OK”5 e; ^2 J9 Z" E0 Z. x2 W  @) f

/ i6 }+ o8 p! ^9 e8 ~点相对运动傍的”>>”钮,出现' b8 Y. q( P& y* `0 I
; u9 T$ O, B( ]0 ]  S; C: M' P' n/ y
- y8 t9 L  z. S6 l6 Z; P
退出窗口,返回上一主窗口
4 N8 B7 m, h. M$ o( i”Help”& I- K$ Z% q4 O$ h  j

6 E8 `0 Y$ X( ^; O8 M' _! D2 y+ v. _4 u0 F1 F0 E& a6 Q2 L' r0 E
出现函数支持窗口
9 v! l" }9 Q3 w% v) H绘制# G$ U- X! S( w& t$ v5 ]$ v3 j0 O
% {( q  S8 w0 A1 ^  _8 J& q6 e
出现一类凸轮图形.
$ @& c- V5 u6 B4 I' L
6 W7 I/ L+ Z8 |[ 本帖最后由 blackbird 于 2007-5-9 12:38 编辑 ]

curve.rar

998.34 KB, 下载次数: 4760

点此下载

评分

参与人数 1三维币 +5 收起 理由
blackbird + 5 奖励!

查看全部评分

2#
 楼主| 发表于 2007-4-4 22:30:36 | 只看该作者 来自: 中国四川成都

回复 #1 scliukejun 的帖子

版主,请给我返流量哦
3#
发表于 2007-4-4 22:38:13 | 只看该作者 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
# X- Y7 M0 O* m" q/ c7 Q" i' G7 W1 u- k9 r+ P" t; F+ Y% `1 I
不敢用啊
4#
发表于 2007-4-5 14:29:27 | 只看该作者 来自: 中国北京
支持CAD那些版本? 都支持吗? 权限太高 不利于推广
5#
发表于 2007-4-5 20:54:21 | 只看该作者 来自: 中国广东东莞
下了,谢谢,但不知支持那些版本
6#
发表于 2007-4-5 23:54:48 | 只看该作者 来自: 中国广东佛山
正想了解一吓~等同志们发表吧!
7#
发表于 2007-4-7 14:21:46 | 只看该作者 来自: 中国上海
加载了。' I* ?8 E1 [0 W6 ~3 q
用不了。
( ^& w+ T; X. b: x1 ~提示:* H) F4 h1 R- T! s
    命令: -vbarun 正在初始化 VBA 系统...2 t* I3 E! r- g: D4 C! |
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main& d: y4 \% s' A3 i2 b: c4 `# J( F: r
未找到宏。
8#
 楼主| 发表于 2007-4-12 13:00:05 | 只看该作者 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
# _+ h& i& n9 l8 X没有返回去用过。但我想2004肯定没问题。
. x4 u# K/ @* H. U! E另外CAD必须安VBA。7 t& G3 S' n8 K8 O
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。  q& W) @  ?8 M- i
有的低版本须在设后关CAD然后重启.
9#
 楼主| 发表于 2007-4-14 16:46:40 | 只看该作者 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。8 F: [" V4 d- Q. b
其次我想普及,可一时操作后悔却没办法改权限。
2 D; i. P% H: ^) }- g再则同志们反应真的很冷淡。
* A& P) e7 b2 Y2 o& ?! V+ l4 E有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
- |: G7 V' V: [) l+ R' C# J5 l4 p- o那些个想画渐开线的,用上这东东还悉什么呢?
0 q, R7 U" D+ Q) \( \5 `比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
! M2 O3 c: {0 d/ c" D) |4 a我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
6 k* j# v' B9 T8 Y: b( a1 a0 ]0 S7 Y$ z雷电波公式,呵呵呵呵。。。
. K3 j: B  f/ n- v同志们捧个场撒。。。% s% q( `4 N; J) B1 s! g
我给的可是LISP原代码啊,光下不回复的是不是太没良心了。
10#
发表于 2007-4-14 16:52:27 | 只看该作者 来自: 中国上海
辛苦了啊 楼主 呵呵 多谢你的分享
11#
发表于 2007-4-14 16:56:27 | 只看该作者 来自: 中国河北石家庄
辛苦      了啊 楼主

评分

参与人数 1三维币 -3 收起 理由
唐昕晨 -3 复制他人发言

查看全部评分

12#
发表于 2007-4-15 21:07:01 | 只看该作者 来自: 中国安徽蚌埠
这样的程序不错,希望以后多传一点,这对大家都有用。
13#
发表于 2007-4-18 21:10:29 | 只看该作者 来自: 中国北京
我也来学习一下,在此非常感谢版主,不过有时就是不回帖,可是也不能说没有良心,不论在什么情况下,都是不能改变你的功绩的。光明的永远不会黑暗。达者,永远是老师。我想我可以这样称呼你“老师你辛苦了!!!”
14#
发表于 2007-4-19 13:09:38 | 只看该作者 来自: 中国山东青岛
谢谢楼主。希望楼主能将LISP程序也传上来,现在没用到公式画曲线,不代表以后也用不到。现在不收集,到用的时候根本就找不到。
15#
发表于 2007-4-19 18:04:32 | 只看该作者 来自: 中国广东佛山
这个程序以后可能有用,先收着,谢谢。
16#
发表于 2007-4-19 19:39:11 | 只看该作者 来自: 中国浙江宁波
用了,能不能上一些公式给大家分享。
17#
 楼主| 发表于 2007-4-22 11:18:24 | 只看该作者 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。3 f9 s! B$ |' w; M! \
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

18#
 楼主| 发表于 2007-4-22 11:23:03 | 只看该作者 来自: 中国四川成都
再为两个好玩的:
2 w* g; M0 W  |& O4 O. D6 V$ ~李萨如图和4叶玫瑰

4l.rar

319 Bytes, 下载次数: 335

19#
 楼主| 发表于 2007-5-1 21:49:04 | 只看该作者 来自: 中国四川成都

推瓶螺杆截面公式(送料机构)

20#
发表于 2007-5-2 21:38:26 | 只看该作者 来自: 中国山东日照
高手,敬佩,连 安装及使用帮助.mht都有,就是不知还能用在R14下吗
21#
 楼主| 发表于 2007-5-2 21:58:49 | 只看该作者 来自: 中国四川成都

回复 #20 szp 的帖子

试试嘛,实践了同真理,多说无用。
22#
 楼主| 发表于 2007-5-16 13:02:36 | 只看该作者 来自: 中国四川成都

偏心正弦凸轮绘制公式

"VAL"
& V: G; a% V) ]0 ]3 u; Z, `* [7 y"0"# w( [" G* d0 Y7 G4 M
"0.01"$ m; d; N* f. B1 t, i1 Y
"0"
: X) I) v2 o0 Y3 Q) s& I2 x! F  @! X"2*pi"6 @3 T# I1 J: d* |
"r+(r^2-ee^2)^0.5-r"( b( n% f7 W5 e& d/ s# C" M1 G
"0"1 T5 F$ ]5 d5 H# E8 ~
"x"
+ ?3 x* h/ o& m6 K0 F8 ]"1"
  x6 S+ B5 X; ^, u  }"1"4 y% f' t' @- M
"ee"
! S$ {. N0 ]5 `8 ~"0"
& A. A% u3 u" K0 g* 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"- k0 S5 u1 M  s; n$ p
"1"$ A! ]9 ]( N3 g% w* k) @1 Y9 j8 G
"ee=1"/ B- d$ W) u2 `2 g
"nc=pi/5"; N' O; N2 i: z5 m
"na=1*pi/5"
& d- n3 V- E" G5 m" w- T/ U"nb=5*pi/5"0 W4 u/ ^- K" k
"r=18"* O  q& V: H' l( p* h
"h=5"6 I/ G/ [2 @9 W) R( ~6 a
"---------------"( F# M( e, @1 ~0 a5 g# p
"偏心正弦凸轮"
2 D3 m/ D- C- [
, m7 b( b- g9 Y8 u4 A1 Q以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮3 ]) e8 @  Z: [; [, k+ u# n8 Z
其中ee偏心距
% Y( F+ |8 `8 `3 ]7 x* i0 D/ ?r基半径
- }! ?' Z7 x& K/ sh 行程& L( d) M! j, L( j; g8 Y+ c
na上升转角! U& }4 E& X5 K* g  K$ W& b' H
nb上升停止角
7 }' f: K/ }7 Y) p9 Nnc下降角, F* k% O+ Y, R$ T
在程序中下拉框中可任意修改。9 K# ?6 }* j8 y+ y

2 \1 |# B8 H% m/ J: k, D: ], j2 h[ 本帖最后由 scliukejun 于 2007-5-16 13:07 编辑 ]

偏心正弦凸轮.rar

289 Bytes, 下载次数: 313

23#
发表于 2007-5-16 19:28:21 | 只看该作者 来自: 中国湖北黄石

回复 #9 scliukejun 的帖子

谢谢楼主希望楼主能多上传些LISP程序上来.有矩形截面的弹簧程序和画内螺纹的LISP程序吗传上来我急用.谢谢...!!!
24#
发表于 2007-5-16 19:34:27 | 只看该作者 来自: 中国广东中山
看贴,不管有用没用,顶下,以示感谢与鼓励~~~
25#
发表于 2007-5-16 20:31:34 | 只看该作者 来自: 中国上海
谢谢楼主!下了好学习一下!
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

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