QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve) G3 U: ]) B% K: o+ _
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
) k* x5 Z4 T" I; ?& m1 h, _1 i. l& ? 1.jpg / I: x" H# V: i& }
  ~9 V7 t! M' z: ?7 |* S% x7 V
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
+ u1 V/ W: @/ S" D 2.jpg
: ^$ f* n. M$ |9 P& _. F7 K" U/ \
出现图示按钮.点击之则运行
: d6 E# S; ]1 q# d- A 3.jpg 2 K0 ^+ `8 b, f2 v. T& d" H& D& W
4.jpg 9 @7 y% D/ B. p
2 F+ X& p. b7 \* a7 j! W: _
点击取自..”
( \& c0 o" S" K 5.jpg
# z1 d# Y& J, z  f% G4 @& p选择偏心正弦凸轮.lkj”,”OK”
1 L' [$ B" h0 ], V- _2 d( A& H 6.jpg
/ j7 Z/ Q! \% ~8 ]- ~  T9 \: Z点相对运动傍的”>>”钮,出现
' F2 d8 W: ^) n' m7 z2 R2 X, J
1 c* l  |& c8 O, i9 p3 @: h& ` 7.jpg
7 n) H) \8 A; Y8 l; u退出窗口,返回上一主窗口% L  S6 f7 H0 V% X
”Help”
5 V/ b8 m9 U6 _ 8.jpg
4 s) k/ c; S  j2 ~, A; m* g2 T7 R
  m" l. E% ]# q出现函数支持窗口3 P4 A+ X# P$ ]: P0 F* `
绘制
6 T0 P3 W4 \& p% X+ M* i% S 9.jpg ! L2 s1 u7 d6 a
出现一类凸轮图形.
) q8 S; }' ^: L) M# Z3 c, @
% i1 t' L! b# u1 u) f! b9 v+ }) N2 b1 e[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?( J( T) Q8 j, r. X# M

( K1 G2 `7 o8 I6 U* Z  ?不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。- c5 ^7 [8 \  i$ x% N( F( n1 j' {
用不了。
( m. K2 y) b/ J5 N" x9 [. B提示:0 h- u/ j8 V* E8 N7 O% H4 I3 M
    命令: -vbarun 正在初始化 VBA 系统...2 |2 S: O  O, M
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main2 ~' G/ ?- y+ n, f6 D* Y
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。( w% ~4 Q1 g2 I/ Q; I1 ~% O
没有返回去用过。但我想2004肯定没问题。+ v4 A8 S* b& N9 e6 K. B
另外CAD必须安VBA。0 j$ e" D0 X; l) }& v: t, ~
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。( C+ r7 @  R9 `7 P
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。3 J) B4 `& G/ @' V" L0 M# M5 S" ?
其次我想普及,可一时操作后悔却没办法改权限。  C- A; e, |3 ]
再则同志们反应真的很冷淡。
+ d% U. i0 ~( I: b1 Y9 _4 S有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
3 {, B- B  `: p) ?* `那些个想画渐开线的,用上这东东还悉什么呢?
# M5 v+ S. n9 x8 }2 ^  l比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。, c+ J* K: e& I! j2 o
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)! }0 t0 V1 g) u5 N8 D* W
雷电波公式,呵呵呵呵。。。
6 m! z" ]- c" w& E- Y同志们捧个场撒。。。
9 X: e+ Y  a5 ?% `! }! R, I我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。/ t3 t2 K$ O! ~3 B# Z% M
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:$ }) K* r9 _% j; @( W7 g
李萨如图和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"
4 D" A7 p$ }* K' P" g7 j"0"' S9 t' X$ w1 w- M* `
"0.01"; P6 c! U# j$ M
"0"
8 d  O3 f" z6 a  P" l. B"2*pi"
5 g/ o& [* C$ @"r+(r^2-ee^2)^0.5-r"
( R) ^8 _& r" X" p, Z8 o"0"; e9 O1 S0 a; s3 y  |* M
"x"
7 z, [) l9 q$ O"1"# l7 c- N) ~3 S, N4 E" ]% d
"1"
" a) ?( w* S+ e5 p"ee"/ ?4 B0 a- J! l) b6 S
"0"
7 C: X  j- z5 b# M% F1 O& ~"(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 h$ X$ l9 J5 I  q( O"1"
$ K7 J5 b5 Y& ^0 ^"ee=1"; p6 Y& C* c4 G- _
"nc=pi/5"
: u- g% c! z0 T% V* v. K& h"na=1*pi/5"
5 H) j+ |8 |" w4 A3 h. j"nb=5*pi/5"; i$ f. {% \- l3 v/ f
"r=18"
' a+ J$ B. ]" t' e/ D"h=5"0 P6 e2 h$ ]$ z+ R4 W, I
"---------------"
: t; V! }) \+ Q/ Z6 m9 t"偏心正弦凸轮"
& ]% F5 w4 x8 j8 o4 T. s
" U7 O) {: ^- U# \. W- z4 S+ ]& v9 F. T以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮. J* z  U7 O! m4 a' m# r( j
其中ee偏心距
9 \8 R& i$ s- ]1 L" \0 sr基半径' F- I# j! m( `$ f" W' M$ i- g
h 行程
6 K1 x0 C, Z; h- ana上升转角
8 U6 _% t  b+ V) j3 K5 v: y( vnb上升停止角
8 U6 c1 l+ l' m% B( N# n8 vnc下降角4 t5 M& G7 I  `1 r0 x% ^
在程序中下拉框中可任意修改。
' I4 W! t0 H, |) s% }$ d  V
& i8 A! n5 B2 x6 @& ][ 本帖最后由 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 )

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