QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 71760|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve* @- o1 s2 F2 p) b
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
+ Y* b! Q- p6 o 1.jpg 8 @( s$ d. V7 }$ b8 |

0 L6 j% U* g7 c8 c) F3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载; L- |3 }5 X/ g' p$ j8 P$ d
2.jpg ( ~$ a1 d. T8 H, {
( F" n: F' ~9 R% `" N
出现图示按钮.点击之则运行3 j3 ]- c! R" y. K
3.jpg
2 J  b# j  K$ N) ? 4.jpg ( O1 W) C8 t) x3 Z/ s: j, U6 G" w
2 w& F& y6 a- L5 d
点击取自..”3 ]4 X8 U2 N: B7 {6 ]+ }9 F
5.jpg 1 f. O4 o2 o6 r
选择偏心正弦凸轮.lkj”,”OK”
  I! c5 }# r) U 6.jpg
4 w: K7 u' V- [2 n. n  R点相对运动傍的”>>”钮,出现% h" s" {0 x* m/ ~% ?

9 ?; G" x1 C2 l, h: y* c2 Q 7.jpg
- X: F: p. u2 O退出窗口,返回上一主窗口
1 T9 p( Y4 W. w0 Z2 I, R7 w”Help”
" x3 B  }9 j0 r: s 8.jpg & x% C9 x4 U6 i+ D+ _$ ~: i; j

2 J4 M: v% }* l* o  d' d4 r6 q出现函数支持窗口# Z. Z" o& L: I1 }' \
绘制
+ z6 q  ?- |" n5 ?, N 9.jpg
; K; g9 m& V8 T  J* \出现一类凸轮图形.( H' o9 n5 H! r! m
1 j7 k3 y7 s+ |6 Z: ~+ r) Z) Y
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
# e& W4 C8 C" n5 q, M+ n7 Y& W6 D
2 n) Y# d8 X) h4 {不敢用啊
发表于 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+ ]. c; x7 Q7 A! O用不了。4 y) s! n1 u: U: E" Y
提示:( g' m$ U, S- c0 Q0 R
    命令: -vbarun 正在初始化 VBA 系统...
& _* z" v+ G& p8 l; R8 n宏名称(M): c:/curve/curvecad.dvb!vbacurve.main! h7 |3 g/ ?5 u" w  f% m
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
$ z9 f" I: ?* R: g% u( s9 N没有返回去用过。但我想2004肯定没问题。
+ Y# \5 A- H, c" u% s! j另外CAD必须安VBA。5 K+ R) s% ~# g4 t& K
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
- v  |$ h2 ~  u8 C) B1 i. U有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
0 A8 D* u7 S! a1 ^/ q$ ?- B其次我想普及,可一时操作后悔却没办法改权限。6 l  e; _- z1 t  H+ ]5 B
再则同志们反应真的很冷淡。& ?$ p; Q0 g& d4 @) p) M# k, O
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。) {* Z" s9 K# k4 |4 w
那些个想画渐开线的,用上这东东还悉什么呢?+ ^- U$ ]" J/ B2 r* q6 I
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。5 O+ P; Z- k: ^; R0 ]3 x
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
3 b3 z4 e8 v6 H( x1 O1 H' f* z5 W雷电波公式,呵呵呵呵。。。6 g, ?; b9 G- y9 ^7 _% b+ F
同志们捧个场撒。。。  A$ a: V% s6 g/ f! d
我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。: N! B( i" h! o3 c
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:$ f5 E2 w3 ?- H% E* `( E3 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"! v. G8 j( H$ X- y0 @
"0"$ F$ e5 b  h4 S+ F% e0 E. a
"0.01"
  O' A1 h7 P9 d"0"9 w# M' Y) f% F# f
"2*pi"
; x+ v4 c; U- P) ^9 K8 w8 h5 V"r+(r^2-ee^2)^0.5-r"% i0 V/ |$ g% a1 G+ [7 A
"0"& G+ {' ?* y$ B: e4 V$ m
"x"
! H. F: Y+ j  h! z"1") I( G" @$ E6 l8 t1 U
"1"6 |$ \0 ]+ ~7 y8 r
"ee"* [# T- B0 j$ N9 j) ~" X0 u! \$ e
"0"; _/ f/ i) i* E! Z# w% A
"(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"
: P6 x6 U4 p7 z7 }"1"
3 t( T8 l1 H5 B3 b! c  B"ee=1"
; p5 b! ?* y4 E3 Y"nc=pi/5"& T: V% q# t$ o( g. V* n/ M
"na=1*pi/5"
2 D% Z' L8 E2 S- @( }"nb=5*pi/5"/ |! i* q$ d/ K/ z: C) T
"r=18"
( _" ^" F: w% w# o! p"h=5"
$ f, W. Z, O! D0 a"---------------"
( L' h* E) s8 w8 u  v  \0 ^"偏心正弦凸轮"
6 p7 C# O! @1 u" X1 y! {5 M; M& g8 W
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
( x7 s( x( T- m7 H其中ee偏心距0 \/ b6 N* D5 G0 P
r基半径
- t! x/ F0 J, K4 N# Jh 行程' t; K. H& I+ F: i3 O# N2 P$ a0 e
na上升转角
4 l# y8 I; |4 m% z  `- x3 ~, s1 Enb上升停止角/ w1 I8 R' \5 v9 y* ?/ c( j
nc下降角! D$ a6 i3 H0 ^. i2 a2 d3 g' `
在程序中下拉框中可任意修改。) O, I& \# ?6 N* A( r/ l! ^7 `
* W7 b6 b& G  Z; U
[ 本帖最后由 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 )

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