QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
6天前
查看: 70460|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve
, P5 L2 M" y( }  _2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
5 ~/ h' V0 q0 X4 D/ z 1.jpg 1 \! y* L' D: M) }1 |3 f

% o3 \0 z/ x; T4 c9 C, I0 o9 S3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载4 u" r- Y* p9 b' c  d# w1 r
2.jpg
, s+ [/ V6 b/ C  N/ z0 d7 k# ^" v
& p! X# V- T- M  F, C' k( ~7 r出现图示按钮.点击之则运行
" Q/ I& B2 {$ @/ h 3.jpg 9 Q% S2 A9 B, l3 V( [
4.jpg
7 o0 D2 y" }- t& p! @

6 |; ~3 ?0 J7 }点击取自..”
- y( u# i9 I3 @$ G" Y 5.jpg ! O, S; ~, F( ^' |1 M
选择偏心正弦凸轮.lkj”,”OK”; s# y0 a3 \8 s& V% p
6.jpg
/ h: G. u5 Q# S8 Y: a点相对运动傍的”>>”钮,出现
' R$ @( ?4 [0 a7 W1 K# F
% Z$ n+ C$ @# H1 N3 u 7.jpg 0 u+ E. Q6 O0 H! J. ?9 k
退出窗口,返回上一主窗口! R# ?! a8 w& \( A- k* ?8 d
”Help”
# ]& Y. K, O* H1 P) N' U% d 8.jpg
0 O# g; F0 {" x( N' B9 N, z
2 k2 o9 H% B- a: t出现函数支持窗口
6 }1 \' R9 v3 p* `. }绘制, G# n- d2 L8 i, h8 x! ~4 y
9.jpg $ o2 L3 ~0 \: f9 a3 ^1 N' `* Q0 W
出现一类凸轮图形.: g! O) P; `) Q2 r3 D

: @8 a$ h0 g4 R! q1 w9 q$ e9 S6 ~[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?6 {' {! F5 G3 Z* y4 U; B) j

) Q7 S) s: B5 @不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
6 ?, e: a( Q- H, M4 E用不了。7 W4 D/ |, |* h) H8 D# M
提示:( Q+ g+ z: ^7 \" |5 }2 h' S
    命令: -vbarun 正在初始化 VBA 系统...
0 h* G1 o1 w. y宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
; O$ H  b( P  Y: l- J! y% |/ S未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。. S0 c' ?% Z( Q8 _
没有返回去用过。但我想2004肯定没问题。
6 w: W! y6 S' o0 a8 X) _另外CAD必须安VBA。
( e* b) l8 `( x6 L2 X8 d; c楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
$ S) E$ M+ U' V5 K有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。2 G0 h! U1 T2 i; Q0 A
其次我想普及,可一时操作后悔却没办法改权限。
/ A, U' y7 e6 e) i: g再则同志们反应真的很冷淡。
0 R- L: |" h8 x2 H: r, C. d有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。& |4 L9 s8 M6 T; A& \, }- D
那些个想画渐开线的,用上这东东还悉什么呢?
" A! `1 P8 l2 [. j4 l比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。0 a5 e$ f5 r9 G, J; d0 C6 K
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)% c  h5 t8 O0 c. m! U  y/ k5 Z
雷电波公式,呵呵呵呵。。。. I' X% S, o- J5 B5 R
同志们捧个场撒。。。
- t6 G: i* ?. Q9 P! n/ p0 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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。: w" m: p5 W- }# @- ~+ k3 K2 d7 z
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
. G) n- ?7 F9 e. y# }. v李萨如图和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"+ G0 P7 f& |% `# C
"0", }& V" f2 s# V
"0.01". s# P- h2 I- \6 r$ w' P5 K) a, m. Q
"0"
2 J7 H, Y$ \1 k' y"2*pi"9 D, f; b- [! b, H/ X; A# r
"r+(r^2-ee^2)^0.5-r"6 l4 C- B( b3 ?& ?* l- n
"0"
0 u8 s" O& f% f- X3 b. e/ z"x"* O- p! }$ j+ {
"1"( J& S5 X' I" f: P
"1", p7 f' K! Q8 L
"ee"3 ]; y1 T0 C. a/ G& F. L
"0"
6 O) o8 y4 A& \2 C, g9 E# F! c. l" f"(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 d/ v- m7 [( e) r7 [) J$ r1 h
"1"
! n3 w! p0 H$ j; N# X. R! ~. O& c0 c"ee=1"
0 X1 `0 l5 Z& I% |- j; q"nc=pi/5"+ j2 f( x! c  J+ }' e% S
"na=1*pi/5"
+ Y6 X; f' Y% \2 \"nb=5*pi/5"& D" D& [3 L, Q
"r=18"" ?% ?. v# a  Y3 S" L& i
"h=5"6 s/ D9 {: w0 T" ?$ `! {- U
"---------------"
8 g& k+ Z) P- `9 J9 S"偏心正弦凸轮"5 \4 c* X. H0 p- T  z
7 G7 {; t5 k5 h: W& ?
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮4 o% m3 d! d' u& H' `0 J8 g6 ~
其中ee偏心距
3 r: X4 W9 D8 ?7 E: y, ~, Zr基半径
: @6 C& K2 M4 m* J, t+ L/ E; Lh 行程
; v" Y% D/ T+ z- e2 zna上升转角
+ i9 m0 Y3 t# Q: j& d4 bnb上升停止角3 u, t* E% |8 O, y
nc下降角
8 P$ N7 ?  a" f3 _9 U在程序中下拉框中可任意修改。
8 h/ k( n( X: K. g, b3 P
3 {. C" i6 e; [1 {& V" N3 B[ 本帖最后由 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 )

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