QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve
0 C6 U8 F" p+ l2 B9 p3 Q2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
+ z$ k) w& l, W$ j6 _$ G 1.jpg , e+ I' e# h6 V& k/ H
8 n2 K' G8 f" B; K, N! P. e" k+ g* y
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
1 b1 j/ f* U+ H' Q 2.jpg : C" L* g$ Y. i) u( u
  n& @" H+ g* Z5 H
出现图示按钮.点击之则运行2 k1 W  R5 L7 m" x9 X
3.jpg
7 P- Z$ T6 p/ Q# |) T/ \ 4.jpg + b/ l; r+ ], e/ N
% u, t% K' u( E' \- a
点击取自..”
3 `% W% F0 n) y: p+ P5 {1 B" \ 5.jpg $ D/ P- z) G$ S* f: j8 A
选择偏心正弦凸轮.lkj”,”OK”
! ?- E% M* x8 @( q9 t) k4 \  u6 Z 6.jpg ( P" I/ E. x. |6 A% y! J5 L
点相对运动傍的”>>”钮,出现
0 H2 f% y1 M1 g7 @- D4 n, t! b, y
7.jpg 0 b" w7 O4 @8 n# ]3 a1 F! i
退出窗口,返回上一主窗口" ?' c: ]8 K1 q) f2 ?6 i
”Help”; E5 r( J' @. _0 S0 K4 f( h
8.jpg
* F* y/ R' H0 n+ W
% a7 [+ ?+ I, I! M, q; x8 y出现函数支持窗口
) p1 l( n& s* v1 I/ c% \' n绘制7 }6 r! u: f! p' O+ Z
9.jpg
$ o8 i2 |6 c+ N  d* \3 v出现一类凸轮图形.
) e* f7 L: `! ~0 w8 }! Y3 G& m: {4 J
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
/ K( h/ P* z0 `4 p" ]; _8 g! 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 ]! `! H3 ]
用不了。
* G: ?' B3 F5 h提示:  {. a+ f- J" i4 y/ y! P+ o
    命令: -vbarun 正在初始化 VBA 系统...
, j' ?; v3 |, V; ?* U& Q5 T4 A宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
5 h$ Q8 P* T9 c8 `3 D$ f3 z8 i未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
+ b3 n! j9 ]9 }: g! _没有返回去用过。但我想2004肯定没问题。/ O5 E6 L( i. L* Q
另外CAD必须安VBA。
' j/ l9 L" m+ V' A8 A% w楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
! l: h5 A  O5 G8 p1 g% S有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
3 B: V, R) A: _其次我想普及,可一时操作后悔却没办法改权限。# k1 a8 @# U: s1 C4 V
再则同志们反应真的很冷淡。0 B) p' u. v, K+ V1 `9 H2 p* W
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
3 v, _- _9 \5 g  b. ], U那些个想画渐开线的,用上这东东还悉什么呢?' T0 w8 {& p% ~! f4 B& e4 }
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。- z! }- x4 d# ?+ e& |
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
5 C/ L  r; p7 T雷电波公式,呵呵呵呵。。。* ^) {; @$ Q7 s4 [# @5 `2 b
同志们捧个场撒。。。8 r# G' r+ U/ Q- F4 S
我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
! ?% N2 U5 w& A8 B通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:* k2 W/ y0 w* R& ]
李萨如图和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"5 \1 E3 a# L6 ]" \
"0"0 ], D" @9 y+ I* \+ s
"0.01"5 x) J: a3 v/ V1 f
"0"3 _# Y- E, w. }; e: z; q1 S
"2*pi"
" D1 P& H; W! Q. s4 Y) F"r+(r^2-ee^2)^0.5-r"
2 I; Q' B" x6 `8 V  e% h"0", Z6 r' j! H8 X6 v/ K
"x"
3 I0 d& M& J. Z"1"% J6 ^9 c5 J, h. \0 v
"1"; ~: R& l5 [  W, q7 p1 P
"ee"
! r: W9 s+ N4 t  k! j"0"8 g* S( e$ Q9 n* E. V: Y
"(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"2 D& u( c2 a# ~; C4 @% m
"1"
, M+ M6 n2 ]% n  o"ee=1"
+ Z! W6 N1 ?' q! I- e"nc=pi/5"
( q$ t2 P; ^! E5 L4 a1 ?. Z"na=1*pi/5"$ j+ ?* l0 O: d2 Z
"nb=5*pi/5"
: F2 ?* y+ T9 s" E+ O6 b  C; @"r=18"2 c, `! d8 _& {' k
"h=5"
* Z. M1 }) {- k8 `+ s9 a- f" }7 ~"---------------"$ R) }6 d/ t2 I( J" Q6 l
"偏心正弦凸轮"4 [9 ]! ]! Y2 P* q: ^0 Y2 P  p8 b" `
( F& @+ j* y  c0 q0 t
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮- r3 m  ]* a$ u  [* G- [
其中ee偏心距5 K* M* _- @8 E! }. [
r基半径1 h$ R' A0 Y. ^* d6 m) M
h 行程
/ k: I! z$ l$ q: gna上升转角2 v$ H$ a/ e" Y0 N# b" p; ]$ }
nb上升停止角
8 U7 n% |3 m0 I2 ?nc下降角
7 V: {+ M9 ?% A+ d4 ^1 e在程序中下拉框中可任意修改。1 m; \3 _# a8 h% z& B

" v0 X, f; G, @  |% x8 s[ 本帖最后由 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 )

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