QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
2天前
查看: 72276|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve
0 J- E, W! _2 e: B  R/ f/ j$ A2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”* I* P  W! V: ^( k4 g* _1 Y
1.jpg
  K6 R" g  y5 n' q
/ ]0 W5 N4 g; p7 ^3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
& G" C. q6 v% L2 z/ w: \3 L$ A- w& x 2.jpg 7 O- O6 d3 k& Q+ D. A" Y# D

, s" k6 G% l' x5 N0 x6 {8 {, `出现图示按钮.点击之则运行. A8 Q$ l( }- J' K+ ^+ y
3.jpg 9 g7 q; [& ?2 ~' a" i8 F
4.jpg
  V+ |' e+ ?% j7 S

: B' H4 d3 X$ O* G6 v" p点击取自..”* j. r$ _: \; r2 P4 c
5.jpg 2 {# T( d, R* _! ~3 s
选择偏心正弦凸轮.lkj”,”OK”
! J5 p. k+ o2 R! @4 ~; }( J$ J0 n 6.jpg 3 y7 t% s& b; w5 @! i
点相对运动傍的”>>”钮,出现  e( _6 l, e+ Z- `, N( H

  `% Q- u; [  c* _, `! `# V 7.jpg
8 K' A. C/ K- Z9 i退出窗口,返回上一主窗口
( t! U$ q3 R  a9 s; l- ?: l6 P”Help”
& H  G  {2 Q+ O6 I, n9 V  z 8.jpg 3 _9 F* v$ E4 D6 p/ {

2 [! e4 o' a; F& P0 l) p: d; m: t出现函数支持窗口
9 u" c, U6 U$ N3 a  z绘制' ]9 v# G8 n6 `# j. g1 z* M$ O
9.jpg
/ k5 `9 Y' n/ U- ^' R- x9 b9 \- w# K出现一类凸轮图形.0 S+ p9 s3 X3 F5 i1 s5 {

, d% g2 D' z; i- r! n! n2 ]$ D; e* l* X- F[ 本帖最后由 blackbird 于 2007-5-9 12:38 编辑 ]

curve.rar

998.34 KB, 下载次数: 4761

点此下载

评分

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

查看全部评分

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

回复 #1 scliukejun 的帖子

版主,请给我返流量哦
发表于 2007-4-4 22:38:13 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?  u0 n* }: f+ H% J

8 p0 k- k- e% P4 p不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
" F$ s% c" W0 x1 W用不了。% O, J/ H, R# t
提示:! C7 `% Z: l$ L3 e" d: Z
    命令: -vbarun 正在初始化 VBA 系统...
' s6 j4 j! }0 B( ~, R2 w8 F宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
% e6 b# m3 r: j未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
  P( ^3 I7 X$ A$ `! _+ ]( E' Z没有返回去用过。但我想2004肯定没问题。
" q5 P; N/ G* I; B  M7 i/ c另外CAD必须安VBA。
8 H8 V$ |- N# ~! }$ W8 z2 _楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
# F5 e3 ~9 }1 I8 a+ \2 Y有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
7 b( ?, f: B* Z其次我想普及,可一时操作后悔却没办法改权限。
3 q. N/ d: k  Q- T: n/ r: }再则同志们反应真的很冷淡。4 s( c8 z, P* o6 D' \+ j
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。2 d4 t% [3 u7 s
那些个想画渐开线的,用上这东东还悉什么呢?
& k' a) `( V/ c5 J- g9 L) h1 L8 L# g比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。4 K$ z1 e5 B) E# a% u# M
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
. ]3 Q" }. M5 g6 j0 J雷电波公式,呵呵呵呵。。。
7 C7 o/ {/ c$ ^同志们捧个场撒。。。8 e& S: q7 k; J3 q, H
我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。5 j/ ?4 R# M) [1 B
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 559

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:/ Z3 e  F8 l0 e) \" E/ s
李萨如图和4叶玫瑰

4l.rar

319 Bytes, 下载次数: 336

 楼主| 发表于 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"
* ^9 e! R  Z" j; G"0"
( x1 x3 {6 o, w6 d) t" B. Y"0.01"
3 d4 A# w; W  J' d# \- a"0"- O% @& Q' C* e+ y# ^1 I* @/ W
"2*pi"
$ a6 }# E4 g3 q  v' X"r+(r^2-ee^2)^0.5-r"
" ^! ]) z8 ^$ j8 B2 _"0"
1 @& y3 k1 \- h$ ^" z"x"
1 I/ ?; k6 a. j# f9 W"1"
8 v- D* f. ~6 l1 k, f"1"
8 ^/ q2 T# e- S"ee"1 H  z% ~; `: S' P* j  e3 d
"0"
- P! _+ }0 s, M! T  u6 k"(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"
) N4 O) s9 ]+ e8 x"1"% ~- b. U3 t1 v
"ee=1") q7 ]# h  W, |- r6 a8 @2 ]
"nc=pi/5"
6 C  J& z! J# E4 H0 V- s1 b"na=1*pi/5"* r7 Q- h' K; ^7 I6 K8 I
"nb=5*pi/5"
: f6 f/ E; h+ G"r=18"
; Q% ?/ l: e  W- h5 k- v2 B; [3 P"h=5"
8 f8 Q& T: V1 P! u"---------------"4 s* x; }7 a! b' u, F9 C% K
"偏心正弦凸轮"
* m/ N5 F8 w* }
$ j( V1 @; N  m2 r5 ]: E7 z; G以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮* ~% B* ^: z) z, ]
其中ee偏心距5 I+ d) \% w8 D$ l0 b( j* o
r基半径  E& n0 v( `* k. g5 l, p
h 行程
3 S  q2 m9 F- \0 d& r3 E& ^na上升转角
5 ^/ p+ [% {, T% w) T' hnb上升停止角- U" w! A5 x9 P' Q. |- M
nc下降角- J2 m5 S+ D, @, ]# a3 k) @* F
在程序中下拉框中可任意修改。
" u7 P7 f% [& x+ e8 I* f! ?
5 ^9 Z1 t" N! ?. S[ 本帖最后由 scliukejun 于 2007-5-16 13:07 编辑 ]

偏心正弦凸轮.rar

289 Bytes, 下载次数: 314

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

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