QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
4天前
查看: 67878|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve! h$ q' F, _' k8 |
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”6 c+ ~! m1 g/ T; x+ F& _/ o
1.jpg , X& I+ _9 I# }$ u
7 ]; Q- S( I: z  t6 ?, H
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载% Z5 _5 _5 f5 m7 B' p# U
2.jpg
0 h6 Y6 h4 f7 r) C, p; S% L4 e, l! L8 _% M0 T  ~
出现图示按钮.点击之则运行
% u, ^4 t! e5 P1 m 3.jpg * L* [+ U. L2 E4 B  Q5 Y+ ~* \" o
4.jpg 9 f) I3 d, Q! ?* v
  _/ O2 e+ }# {. t! D; u6 G  O0 Z
点击取自..”; W* A- M* ^; s7 @+ P, y/ C
5.jpg # c9 j, Z) o) c# ?' {1 |( d# e
选择偏心正弦凸轮.lkj”,”OK”
- j; H  j" E4 p* h4 N, d' n1 W& } 6.jpg
1 O8 F! Z) H" @* }- l; V点相对运动傍的”>>”钮,出现+ \# N, \0 z- ?% t* _' ?2 M

2 s+ Z  p' O% X$ h0 Y 7.jpg
2 Z; Q# t: M' E3 K退出窗口,返回上一主窗口' i! p3 F* H' X; F4 T7 k9 z1 i
”Help”
# P- |) U) h% n+ ?, ~ 8.jpg # `2 Y- O8 X* [% B+ y
) P! n  i- X8 }& a
出现函数支持窗口$ q1 G4 L, E1 u. E( t
绘制
* _- h0 v* u# U  d" q8 t4 r 9.jpg
5 n3 K' ^+ {9 S0 W% ~出现一类凸轮图形.
$ ~; h9 g$ \7 G5 W% G) F: r
& U  f8 {+ Y+ M) |[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?! F5 i- z6 I9 N: Y5 J- ^

. M( }9 w8 f6 A( B  V+ C不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
; U. U* `  U4 ?# d6 s用不了。* H4 V6 j3 I/ x7 O+ F
提示:; J% F$ h( _( @* i, ]7 B* Z1 j
    命令: -vbarun 正在初始化 VBA 系统...) p% g6 B5 i: X. W  H
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
$ S  u$ s( M/ K5 d9 I. S, ]  Q未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
5 C: ~# h' m- B# a* f没有返回去用过。但我想2004肯定没问题。8 I% ~( C  y. w
另外CAD必须安VBA。0 x& T# Q! f3 _: s4 N
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
8 ^6 ^5 i" `- N0 l" T+ D有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
  ^3 Z+ m0 v  W2 ^- b* c; Z其次我想普及,可一时操作后悔却没办法改权限。1 E7 x5 `' j9 c# k- w
再则同志们反应真的很冷淡。
7 ?7 Y2 Y9 j5 [' S- y2 Y2 f有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
: S* W% ^" t, q6 M0 N* m那些个想画渐开线的,用上这东东还悉什么呢?+ c6 t' A  T4 n& T
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
" a1 x- Q, P/ n6 E6 c我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
. w2 K2 A9 g0 l$ d) |雷电波公式,呵呵呵呵。。。
/ c; M7 U; \/ ]3 `3 q1 `同志们捧个场撒。。。
& t: T  |: H$ S( X) n4 @我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。& ?- k" q0 g5 E9 X
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 556

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:7 @7 ?6 c, Q9 ~; G) ]/ M+ H: P
李萨如图和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"
* z7 d0 v$ }$ z5 _' `/ ^2 f"0"
- ~4 t; {( N) I"0.01"
: D% H8 }/ E- ?, b7 O$ z) s3 L9 O"0"
- O( x  Y1 Q4 M# I# ^* J4 G"2*pi"1 \6 O" Z6 G% U7 x& ~- A
"r+(r^2-ee^2)^0.5-r"
/ J/ R1 I3 f% f% D"0"0 ^) m3 b8 {: K2 r/ _2 q0 ~
"x". o. d3 ?) B. g$ r
"1"4 {- N* e1 Q" o5 r
"1"
. E* E8 z5 S4 \"ee"
: d! w3 g8 v) Z5 O"0"' ?& L4 s' O% J+ c4 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"& c: e4 q% U+ U* Q& ~# d. m
"1"7 v. l6 r$ e3 j  T0 z( k
"ee=1"
& s) k9 q! B/ ]; N"nc=pi/5"
) k1 o; ?$ T8 e; X. i; l4 z/ F# v"na=1*pi/5". H8 M* X1 U: R
"nb=5*pi/5", p3 r9 ?5 \) h) J, D
"r=18"- I' |4 [' F; h2 z: S; ^
"h=5"' \2 D; d5 k0 }8 Z7 a
"---------------"6 v# D1 F' M. X, d
"偏心正弦凸轮"9 B6 h7 U( t" `& b" v$ R
9 Z4 ^& F( r! G. w  `$ [% S; Q
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮1 ]5 @; S9 v* z! u8 D
其中ee偏心距( D1 ?3 ~- }* {6 H+ j
r基半径3 K0 |( S, l; N- o" m8 b! c& D
h 行程2 g/ e# A3 w2 @1 w
na上升转角2 ], B8 J. w& O
nb上升停止角
% c" {% n1 k# r; R; |6 G" O- Snc下降角7 V8 }9 [1 p# x* j
在程序中下拉框中可任意修改。; d7 @" U: m4 a' t& i* {- |: v
. o( ~+ c( Q' f
[ 本帖最后由 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 )

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