QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
5小时前
查看: 72122|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve4 y- [( ]; _, A, x) f* P
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”9 a1 C) [3 S& l7 _8 n5 ~3 D5 U8 k
1.jpg 7 ?# ^: k9 _, t  `/ m* y$ X$ B
) k. ~% q/ ~# c4 T( A/ J* P, K7 R
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
% q# W  ?/ K; [7 K8 w 2.jpg
" a' [) J# {; n7 i3 V2 g7 f* I6 {' l8 E! M+ X
出现图示按钮.点击之则运行; X/ m8 d2 ^  D2 `) T1 m+ S
3.jpg
0 R+ H# I+ i  \* z/ o6 c, w, ~ 4.jpg ) w/ Q1 b! e  a2 y- T0 W
3 m( T4 o% Y5 i: u. W$ q1 t# B
点击取自..”9 C! ^+ S9 s# \! W% G; ]: w
5.jpg % `+ G0 j: J; Z
选择偏心正弦凸轮.lkj”,”OK”
% j3 L$ k+ b/ w7 @9 u 6.jpg 5 B8 d  |8 [7 l& x( |  [
点相对运动傍的”>>”钮,出现) z$ \  t1 l/ w' q

# @- k1 |( y; o2 ?6 O( B 7.jpg 1 Y6 G' j7 u- ~3 }3 x
退出窗口,返回上一主窗口) F0 A1 u& |/ U/ Z; e9 r2 R1 T+ X
”Help”
  A( H0 \7 e0 u4 S3 w. O 8.jpg
  o  S# L- z/ i( Q/ e' I9 t) N0 L3 g+ \+ y4 B
出现函数支持窗口' t; D1 L4 ]8 |4 a
绘制
; K8 x9 q1 P6 s4 S 9.jpg
, Y. j4 U2 e) `" c: B+ G7 O出现一类凸轮图形.
2 K* o1 d( z) ?9 d/ v, |  I' s# d/ e/ }. P. W
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
; \' S0 |- f. H+ m! i7 y9 p
3 m+ u0 h7 f3 j4 w不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。4 w% o, a; r9 l" N( @1 g
用不了。
2 A* k3 m, ^4 J5 |提示:
- o( n2 J; ^( `5 Z    命令: -vbarun 正在初始化 VBA 系统...
' R! P. x# A8 e1 B$ o% u. o; G宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
" V& Y7 J, u$ u  V7 [8 t/ n7 b未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
" E% }) \! i( w* F9 L( J没有返回去用过。但我想2004肯定没问题。
' j% l1 o$ `! n! \) C7 L9 Q另外CAD必须安VBA。
( K( o. m5 \1 L楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
3 U) L. Y% B; \5 G8 }有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。  L0 g6 _' P$ x+ D; W, D5 q5 u
其次我想普及,可一时操作后悔却没办法改权限。4 ^+ t. i, J' W, M, Z& \# @
再则同志们反应真的很冷淡。
- I& e9 x9 G4 [* o$ x$ Z' H有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。3 f5 e3 R8 F) ^" e" P# l( I: |! }
那些个想画渐开线的,用上这东东还悉什么呢?7 I& J. B# L, e
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
5 \: H5 X! y9 l我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)2 o7 ^  C5 l/ `; O2 g" G7 j8 J7 f
雷电波公式,呵呵呵呵。。。
" X. [$ u) T/ I5 Y8 V! i& K同志们捧个场撒。。。
3 A1 S( U- z" _2 [我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
. t: Z; K! A3 @* q3 h6 k% i通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 559

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
( s6 V1 K" {; m) x. ^# r: a# e李萨如图和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"
3 f1 `! k" n. n"0"
" a0 m$ q$ D* y! ?0 [1 @+ F; y5 r"0.01"! t" U/ _& T4 J! e" U8 G. r* T# s
"0"; f( R4 x/ F/ J* f7 ?( z& W2 {
"2*pi"
8 m- E+ w2 b3 M* `"r+(r^2-ee^2)^0.5-r"
* `* _1 A0 Z% T- L( r+ T# ]"0"
/ A7 v7 x  Z" V  w' z) k4 w"x"1 |- `1 G  {* E  h: p; W/ d7 D
"1"6 F7 a/ I+ b9 ~) W9 p6 J( H& L
"1"0 g" D6 e. j* p1 h! I1 F
"ee"$ P8 ]" u& l0 \) _! ~
"0"2 |' h+ ]* n8 M6 x% g# R2 l
"(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"4 A' {) r0 ~. a% L3 H, z
"1"
2 y1 x2 V0 _$ l5 n8 S; J"ee=1"" B; v3 }, o' y/ {- `6 V- q
"nc=pi/5"
8 a# J- {/ V8 g& y' q"na=1*pi/5"
& {' W7 {: G2 T+ ]) |/ J"nb=5*pi/5"
& _% V. L' O( }/ O* ?"r=18"" D& |1 X2 k2 j5 L: @" E8 s( s
"h=5"
1 r' [* P% H( ~, Z6 X- z7 h( Z# j! [1 l"---------------"& {% q  J+ K- Q3 E6 O( M7 L/ L0 S: E
"偏心正弦凸轮"
( @! G& c7 ~4 N* h
1 D8 z8 u$ Y3 u3 u4 b5 c以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮+ N2 L) a& s! }7 p
其中ee偏心距$ J9 {6 W& y% m0 o9 ?7 t
r基半径
+ a2 P8 K! C7 @8 E9 mh 行程
9 D% G8 @. i! I/ u- O. I1 Z& }na上升转角
) }5 F4 N1 p3 T: n( f2 q1 mnb上升停止角
3 z0 g3 x2 c: i+ u, ync下降角
, D7 u; D, r$ G( o' Q: C: x在程序中下拉框中可任意修改。% g7 X% `4 Y8 w6 ]- ?. W

6 p! z, \0 g  E3 E7 O( u- r[ 本帖最后由 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 )

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