QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
10天前
查看: 67985|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve4 ]! i) H6 G: B. [+ F& w7 ?
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”$ w, ~% `3 N" `, p8 d# p
1.jpg - T  V( y( y# I
  ^7 `3 n& R. M) u) T' O9 V. X7 ~
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
4 n4 \8 K/ R7 \: Y; S# J4 V% J# ^ 2.jpg 8 U9 m5 q5 @% Q3 @" S+ ^( c/ x
: Q# V4 ]2 a& W, m- L
出现图示按钮.点击之则运行% P) F' P0 V& r& Z' B. n
3.jpg 8 ~4 ]+ y% n4 p0 `( o* ^0 ]
4.jpg + W% i  u/ o. ~. g  J
" d" c6 ?9 Q/ v
点击取自..”* M8 E, j% e% ^% S* |' W
5.jpg
3 Z  Y' T- y# a' q  B选择偏心正弦凸轮.lkj”,”OK”. K+ g# `  x; U! y# i
6.jpg
5 a% ~0 T8 c2 y/ R点相对运动傍的”>>”钮,出现# X8 v2 q: n7 a( z

6 v) C% ~2 c& {$ |( h) a 7.jpg : T5 O3 j6 F2 ]4 o
退出窗口,返回上一主窗口% Q( _/ C/ B+ [/ F2 L
”Help”* {6 i" A1 ~0 A2 Y  R8 E' u: _; {
8.jpg   e2 v- _$ w, h+ U& l2 s: V+ d
2 C0 ~, i- e/ O, N' Q3 X3 o0 n
出现函数支持窗口4 J5 R% A! a9 _( }' w
绘制, c9 U- I0 C1 M, Q7 V
9.jpg 8 h& G  g2 d/ _. h2 b4 {+ j7 R% _
出现一类凸轮图形.
! n' t* Q* Z8 \2 i- a: ~2 ?" ~2 B* U, E
[ 本帖最后由 blackbird 于 2007-5-9 12:38 编辑 ]

curve.rar

998.34 KB, 下载次数: 4756

点此下载

评分

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

查看全部评分

 楼主| 发表于 2007-4-4 22:30:36 | 显示全部楼层 来自: 中国四川成都

回复 #1 scliukejun 的帖子

版主,请给我返流量哦
发表于 2007-4-4 22:38:13 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
; m9 l4 T% V% C% ^1 l, B/ T" O0 s  y" l. [
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。3 S7 J3 B) j  b8 g  b
用不了。; F! A) K% m9 B
提示:
4 e  O9 F* I8 P- h" E" Z6 v    命令: -vbarun 正在初始化 VBA 系统...5 X7 z3 c8 _* H$ C3 l3 ]7 w# ~/ J
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main, b3 h4 O" }% A4 y
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。- ]- H0 K, ]/ D
没有返回去用过。但我想2004肯定没问题。% }. S* q- q! c! n, [$ t
另外CAD必须安VBA。
% h, V: ]8 e0 i/ v楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
5 x! {, I5 k5 A: E* \( y6 [有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
+ h. f2 P6 T. h( ^/ B其次我想普及,可一时操作后悔却没办法改权限。
" s# s: w$ _7 V& M% b再则同志们反应真的很冷淡。
5 e+ P& x0 v5 ?1 r有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。; f3 i7 A! [$ f8 {' R; q
那些个想画渐开线的,用上这东东还悉什么呢?, h( L2 Z/ @7 y
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。! K! N' R2 u2 W1 k: _" i
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
+ B$ N$ f" [6 a% Y4 p; O雷电波公式,呵呵呵呵。。。
* Y, l; i" b7 s同志们捧个场撒。。。
: G7 t* t3 P2 K6 T我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
) S" S, Z' t# s- c5 J/ o通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 556

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
# {  }0 S- X* E7 t4 y7 l李萨如图和4叶玫瑰

4l.rar

319 Bytes, 下载次数: 333

 楼主| 发表于 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"
0 T; F3 ^& w$ a9 e. P+ x"0"
. {1 h0 J" v5 \( ?6 Q' r6 C"0.01"3 j9 S+ L/ r$ a! ?. l6 ^
"0"
+ a. @. X* G& i( C' {"2*pi"
4 g; m+ U- s6 a# T& l9 u"r+(r^2-ee^2)^0.5-r"
' H) a" Z' h6 c$ Z"0"
) S7 v! M3 h* y/ K8 v- J: W% }1 X"x"6 C$ h" _, n4 Z; h) O& r& ~7 G) Z
"1"% n+ e7 W/ y6 k. Y3 P
"1"
8 H! T  w" }( F+ i" x4 {; }2 b! \. a4 B' F/ O"ee"
) ~' ]3 ~+ X$ T3 O"0"
  q2 Y& r/ E- {9 K6 N1 w"(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"
1 ]4 g( l8 s+ m"1"
( X0 N& E! j+ j+ W  Z& f+ t+ i: h* p; D"ee=1"
" @3 f1 d( K/ }: g; l"nc=pi/5"
/ M; X1 n1 J3 l: |: J2 q' M( l"na=1*pi/5"
% l7 p( v9 u8 @. g"nb=5*pi/5"( P  _7 X; B" r2 A; o. x9 V
"r=18"1 L9 K1 h7 m. u7 B. w: P
"h=5"
5 d! p: |5 k1 n7 [! n2 |" ]) p* E"---------------"
/ A1 k5 Q$ q7 E- q9 S" r$ m' V+ f"偏心正弦凸轮"
7 n+ J' Z, z2 P0 T; P% X4 O
7 G2 H+ T4 a9 A" b* h以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮/ |: D- E. D4 E& F
其中ee偏心距' G+ I, _3 q3 u1 l
r基半径
# M- @# m* G* S" vh 行程* q* z/ R4 H1 n% J
na上升转角$ p0 i8 u2 n8 u; L, @6 ]
nb上升停止角
" s7 ]2 |: V, |; [' v  V( h8 mnc下降角2 ~% g  l5 U- p# y- e* s+ o
在程序中下拉框中可任意修改。
0 U' B2 k" u5 p5 W
, c. j: [: i* X5 a8 ]+ ?: {2 a$ ^[ 本帖最后由 scliukejun 于 2007-5-16 13:07 编辑 ]

偏心正弦凸轮.rar

289 Bytes, 下载次数: 311

发表于 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 )

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