QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve
2 n- U3 x# `, Y2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
1 s3 L4 N8 @4 y+ `! l 1.jpg 5 _  C( m) i& T* _/ X

8 N% l8 \. J$ c3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
2 W/ n1 r  j2 b$ ~! o1 {- i 2.jpg
. @( @$ T, _8 `
% p+ p+ x- R9 T: D' X出现图示按钮.点击之则运行/ z* B+ a; t  U, o; h' u
3.jpg * U9 O: e4 A: w
4.jpg 3 ~  b+ B- C3 t. v+ }
8 ?, B, [0 {, y$ O- s2 L
点击取自..”
' x- ^& \3 Q, p0 Z 5.jpg : O0 m+ ^7 r* }+ x7 j6 l
选择偏心正弦凸轮.lkj”,”OK”% w' u& ~' s- u+ T! Y- U6 Q1 N
6.jpg ( N9 t5 @  Z, P& J, B
点相对运动傍的”>>”钮,出现
3 i' y- [2 T  g% K
9 i- [+ T+ j) C0 N  H1 t% f 7.jpg ! g" A' Q, J# v. n) o
退出窗口,返回上一主窗口5 s7 i3 E  i. ^. o" y
”Help”
5 l) Z; y7 l2 j3 `6 p/ n- x# h9 \5 z 8.jpg
! e/ u# Z5 \6 h* n
2 g% Y. d5 t. l( s4 Z' L出现函数支持窗口
2 B! a3 ?, e4 y& w3 v/ N) D) [4 e绘制' c# ]) U2 v7 \8 K+ K) _3 k
9.jpg
& ], `5 u, ~1 y. u& B# U! ~8 w出现一类凸轮图形.4 e9 r' H% S9 z. k) E2 h

1 G1 X4 N- I! R" O4 [3 F: n* P2 [, \) h[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?7 r% ?) P/ C$ o0 A( Q
* x0 D) I) l  h
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。# V; f$ T9 z6 t! j2 E3 d1 E
用不了。
* s" o# n) r- G2 o( N4 g提示:
4 t- i+ i" `; E: z6 Z8 D) ~    命令: -vbarun 正在初始化 VBA 系统...6 r+ k2 B8 O' ^2 r* g
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
1 L  J7 G# w( n# C, v4 \) u未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
& P: l+ Q/ m4 J. J8 E没有返回去用过。但我想2004肯定没问题。
9 n0 ?" `* V  y; B另外CAD必须安VBA。
/ A7 j% w; W* T4 A) x8 m楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。% N; q/ \& B" O" M& L/ D
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。/ G8 f2 b5 |% D* E9 M4 M6 E' @
其次我想普及,可一时操作后悔却没办法改权限。
6 D! V$ J! R# P' \* C4 \4 @再则同志们反应真的很冷淡。
+ l4 o) t! q7 F0 x/ f: e有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
8 P; W. j8 R) l6 C& U. A7 [那些个想画渐开线的,用上这东东还悉什么呢?9 `; ?& U" R) F2 C; A) R) }% ^3 S3 I0 [
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。5 X  @2 L2 W8 l9 ~: w
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)% `$ f7 ]% O/ o8 h  E: S
雷电波公式,呵呵呵呵。。。
4 I& q9 ^. G9 d/ Q5 a: O$ }2 ~. E同志们捧个场撒。。。1 [( A- P2 `$ q: Y8 T, v
我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。$ c/ H3 E+ k" @% p+ Q# g
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
$ O: T1 D: A1 X5 R* R, D5 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"- X0 y. n' B& ]; x/ X: j
"0"' _5 K  ]9 n7 V7 G0 T
"0.01"; R# K& h: @  g0 w: W
"0"
+ L+ @% _5 X/ @3 _  H6 r, o1 ["2*pi"/ w( n3 p0 S9 n, r, i
"r+(r^2-ee^2)^0.5-r". o6 h6 H; Z3 K+ i1 l
"0"* G2 R9 s$ z5 e, L3 m  {1 Z
"x"! @: ]' [) x. J0 i8 v1 I
"1"
0 G' q) y, W8 z# a& H% u5 i" Q; Z"1"
% s0 E! a) t6 E"ee"
# ?3 q; @& V% v: e"0"
+ l& m4 S- S$ `1 c"(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"
1 G+ ?6 N3 O' A5 n"1"& j- \& B* Y$ u$ l+ O
"ee=1"
  ^$ b: S9 Q9 \"nc=pi/5"
9 \1 w, `4 L5 l  `& D& x"na=1*pi/5". ?& \/ \" L3 B  J- c& j
"nb=5*pi/5"
) X2 T- a3 ?: n. I4 j: j"r=18"
- M# q4 r& [5 a$ x7 L% J/ T"h=5"9 N, b5 b" `/ Y% o
"---------------"4 V9 ^( }, g' N2 }9 ]% s
"偏心正弦凸轮"
9 @& C- q5 t' }; q$ A: S3 {$ u; q' {4 W: {
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮( F9 S; d4 f! ?" o6 |, L6 Y
其中ee偏心距
4 }5 ~$ L3 A; j* U4 C- qr基半径
- _. |# c, j; R' O9 d$ }+ @h 行程- g; c' u9 q$ g/ l! O3 y4 [
na上升转角& b: }5 B) D# v6 `2 G! |
nb上升停止角
4 O. A( r$ X$ j+ L9 l% q; vnc下降角
6 Z1 g. {5 [/ f! U* E% F在程序中下拉框中可任意修改。, N- Y/ U; [9 z' t# V) v. h
8 Q) L, z) ~8 f0 H! V
[ 本帖最后由 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 )

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