QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
5天前
查看: 70446|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve3 ~$ j$ t- v! a/ E
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”7 S; y% I! O& i4 O  q4 M- W& q# W
1.jpg
# G: L  A5 p, ?4 j+ {/ y2 Z$ B; ]  O) L
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载& a; f4 m+ r$ [7 {7 v' E# W
2.jpg
( ~0 w8 K" P- C( M# j  [/ i" ]2 s, B( z3 c) Q- @  m9 T' N
出现图示按钮.点击之则运行" f. F9 W6 a6 q
3.jpg ! D8 V  K% R: Y
4.jpg ' Q# s7 I3 b  \* V9 A' A

$ p' H$ ?+ t+ }+ P( E点击取自..”. h3 b3 M6 ~, S, f: J) v8 ~, G
5.jpg ) h3 \- T2 j4 m3 F# \
选择偏心正弦凸轮.lkj”,”OK”! e% z. L- J& M& t. N
6.jpg # F1 h+ G# s' C4 N. C
点相对运动傍的”>>”钮,出现
8 j; @7 C* O6 @4 }! h" ^5 O: N' p$ p
7.jpg + k' |' u" S! ]" w. I% c
退出窗口,返回上一主窗口
5 [- ~: b7 M/ X* k6 ^! n; Z- |”Help”& N1 K" U6 a! A& D9 N
8.jpg ' ~+ a9 I, Y' L
9 |3 |( s4 q8 t4 B: R- Q- D
出现函数支持窗口; c7 I7 @7 }! I
绘制
6 T9 E! u+ R& {" M- \( z 9.jpg 1 R. J- E* f6 k5 R3 A, p
出现一类凸轮图形.9 G& T, o3 L% x! ]! z* |0 S
; {5 u8 r& L- g! f0 W. ?. _
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
' i6 }2 J! H7 V2 A
' V/ `( {) Y  s! f不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。  M0 l9 e9 u8 N+ L3 I
用不了。: ^5 B" U7 p5 D9 G0 ]
提示:/ m2 E- l; ]; A) t& E! j3 {3 I& }
    命令: -vbarun 正在初始化 VBA 系统...
7 ?: I4 a$ Y) Y  C宏名称(M): c:/curve/curvecad.dvb!vbacurve.main2 ]% s* P  O$ Z
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。% b! C2 [  J$ M, Q1 ]  j: u
没有返回去用过。但我想2004肯定没问题。/ [+ D' E* c- Z  O
另外CAD必须安VBA。
) h7 j& K  L) P) S0 I! @楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。% e0 }; S5 @# o/ ]8 n6 e
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
/ Z" P4 _2 l, p1 L4 A其次我想普及,可一时操作后悔却没办法改权限。
. l) r4 G2 T, u/ O6 C( M6 t% e再则同志们反应真的很冷淡。
' _6 T8 h. ~. x5 X" \1 d$ s- z+ b有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
( x# ?* E0 ^* y那些个想画渐开线的,用上这东东还悉什么呢?! c% s& u( x7 {' Q. d
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。/ `( ?& H5 v3 e. j( M7 v/ ?
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
3 g. _/ c& Q& J/ M8 V雷电波公式,呵呵呵呵。。。
  O0 K+ N; f4 x/ l同志们捧个场撒。。。  }# r: z: A/ E: 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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
0 j* j7 L. n% _: a* u通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
+ n7 z, `* R0 P' |0 z4 A2 D9 W, R$ X李萨如图和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"
: }3 z3 X: x! c+ B  w"0"! S/ t' R6 ~/ _) j
"0.01"
" l4 p( Q& f% L, V) ~"0"
" n4 k+ B0 h. ^( H; k* U0 b"2*pi"- S6 _3 n* ?/ V' I* D9 {; C
"r+(r^2-ee^2)^0.5-r"1 J. [( ?: j6 o1 {. S: |0 r8 x
"0"
7 y$ |5 i4 X8 E& l"x"
2 I# z/ b3 u. c* d"1"
! b" E& E8 C' L9 ]"1"
& E9 u  C3 E" J1 J5 Y/ b"ee". {7 P8 q& N0 Z: C$ ^
"0"# u& W# c; c1 n% L2 {0 c5 S  ~, s! t
"(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"
& ?0 C3 E5 ?; E"1"
7 R% F8 W/ n4 C. }"ee=1"
$ y5 o% V# {) P" m3 I4 F5 ?  K"nc=pi/5"0 @1 f' t$ |4 Y1 p
"na=1*pi/5"
3 I1 C9 |4 y# A: k( d"nb=5*pi/5"
& n2 @( I3 \' y5 R8 R"r=18"! Q# P1 [, {  ]- [4 w
"h=5"
5 ^6 n$ x  n8 N! [+ U* f7 k! q"---------------"
$ b: H# u/ l8 a+ y' U"偏心正弦凸轮"/ g& T( B& L% g6 u. ^

8 e9 A( n. z8 f1 R$ f, W- g# v- B以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮! t& h6 b, r: K4 G+ n! t
其中ee偏心距
1 p) R. p! L9 E& U7 f$ x; rr基半径
+ M0 n# ^) Z7 W; @2 o# @6 |h 行程$ l3 \% i( r7 N- Y
na上升转角! p9 o* \1 o  y3 ~4 i7 d1 F: N
nb上升停止角
. _8 f+ X. u/ n, j6 v! D6 m9 S; Cnc下降角6 Q7 O, M" m$ i, a
在程序中下拉框中可任意修改。
6 |, Z4 [3 p, ]1 ]6 D$ d. R1 @
- d0 X+ ~3 Z4 g5 F7 H$ y# L: x[ 本帖最后由 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 )

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