QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve' @, a; Z9 D( ?6 c) ^  K3 h
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”4 X# G, M2 v$ ~+ p, Y) q5 l
1.jpg
3 Q' V, R' o5 O/ ^& b) c
1 `. q3 n( V: q8 ^5 G3 S) V3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载4 D3 a5 t9 ]" n
2.jpg 9 m" N% f' T, W% K) Q# `
; A+ h  P7 c. T1 |& ~
出现图示按钮.点击之则运行! R9 ~1 j4 N! _0 Y- A
3.jpg
1 ~, ]" m0 c5 l9 m$ J% V" y- Q 4.jpg 6 D, k& _+ Q% t! T+ ]% u+ i

& z* @/ U8 F' ]点击取自..”2 [# K) P+ C5 E" W3 S9 d
5.jpg
* |2 {; Q, T$ y' Z" s% [( X6 r选择偏心正弦凸轮.lkj”,”OK”
$ }" O8 o7 @' c! q& s  t; A 6.jpg
' q; i& p0 v3 v1 U点相对运动傍的”>>”钮,出现
- U- w) u( b- h. N' ?* z- f7 H( F0 s: o$ U6 t1 e
7.jpg
' U! L( r. g2 W4 ]3 u退出窗口,返回上一主窗口$ l" u- C* }2 u) ]- D" Q. D
”Help”
& v4 B( U1 k+ `/ ?9 q5 c 8.jpg 0 A0 O2 R% _, I6 U
+ k$ X- ~* x  e) g. J& R2 a/ ]
出现函数支持窗口* e& `0 s1 U2 _, z5 S
绘制
1 v7 b; t  ?0 \- d' e# S) ? 9.jpg / n+ @; f9 h! ?
出现一类凸轮图形.
5 F+ k% S* N+ M1 v1 W9 R5 t
) u& K4 A" L  T4 Q[ 本帖最后由 blackbird 于 2007-5-9 12:38 编辑 ]

curve.rar

998.34 KB, 下载次数: 4756

点此下载

评分

参与人数 1三维币 +5 收起 理由
blackbird + 5 奖励!

查看全部评分

 楼主| 发表于 2007-4-4 22:30:36 | 显示全部楼层 来自: 中国四川成都

回复 #1 scliukejun 的帖子

版主,请给我返流量哦
发表于 2007-4-4 22:38:13 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
9 R8 a: |+ g; l4 I& D0 E0 P6 z. |! ~7 T& R% l. 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 | 显示全部楼层 来自: 中国上海
加载了。
  ~5 P7 A1 ?9 N5 {5 y5 q1 K$ l用不了。
  o& ^) O2 _( z提示:
3 {3 W6 q9 t; V+ l    命令: -vbarun 正在初始化 VBA 系统...4 [. z. f8 k1 Z* s
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main6 U0 |; D& ~; C% Y* O
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
- E! `" ^1 q0 y: _  d1 I7 `( d没有返回去用过。但我想2004肯定没问题。
, M6 {: u  x6 _% d9 ?, f另外CAD必须安VBA。# f3 X( Q% b( z9 q3 ]8 K" r+ J
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。8 Y! z0 p6 w/ o5 F; m) B' D( O
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。$ e% O  l0 R+ L
其次我想普及,可一时操作后悔却没办法改权限。2 X* i/ s1 [- }
再则同志们反应真的很冷淡。
2 H! D8 {/ a& z3 m3 W; q有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
  N, c& b4 \2 s$ L那些个想画渐开线的,用上这东东还悉什么呢?2 W: Q6 x9 R9 K) Z. L( f
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
$ _; n  U6 v$ e4 x) D我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
. n2 K5 y4 I* r) w, h& T雷电波公式,呵呵呵呵。。。
8 s6 f0 o5 M8 ~+ j1 n同志们捧个场撒。。。
6 _+ ?3 ^8 S/ Z: G我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
. V& D6 q2 a* U$ M9 y  L通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 556

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
4 t0 w8 N* a1 _8 Z* h3 H0 i李萨如图和4叶玫瑰

4l.rar

319 Bytes, 下载次数: 333

 楼主| 发表于 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"
( v0 o3 M8 Y$ \"0"
+ s8 x" r( t+ G9 Q0 v/ P) P+ _"0.01"$ P5 _# n6 g% T4 s; [
"0". r0 b# @; }5 L8 b% ~
"2*pi", T7 l: h3 _; Q
"r+(r^2-ee^2)^0.5-r"4 E8 ]# p0 h! B! f& }! B, V
"0"
4 O& }, x' r' O6 r) U"x", U3 Y. d2 P$ @' T2 s
"1"6 T% _& N, a/ w- b" o
"1"5 P7 \" Z1 V9 H" E6 |3 i
"ee"
; U/ X4 T* X) t"0"
, Y# T4 d/ s) x  \1 `; A( {6 G"(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"5 w" t( O$ X' s$ A
"1"& C9 `" _0 j; s" E# |2 L
"ee=1"
4 U/ W0 K8 I; \8 P: w  ^7 ?: C"nc=pi/5"% F1 Q8 ?% ?' S& B
"na=1*pi/5"6 j- Y5 y  v; E" V9 T$ D
"nb=5*pi/5"2 f, \( a" ^( B( q3 Z
"r=18"
- ?- J. m/ A9 c* {# O; J# u) v"h=5"' `* d7 [" \3 l9 `- k) u! @
"---------------"
: \! M. Y" N! D, q"偏心正弦凸轮"
) w7 f0 |  \, p! U1 H) R/ ^# r4 ]. g
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
3 N& b) _/ g5 r$ A其中ee偏心距. Q9 D% B% i6 |; e! U; O
r基半径, ^7 a; ?9 H2 A0 H2 a6 W. M. T
h 行程
+ e( W7 |5 a! E3 e8 R* [) U6 F+ |na上升转角8 g3 |8 ~( V, G( o, q/ J
nb上升停止角
8 G/ {  w: M2 lnc下降角
9 a, ~5 ~' H. m4 e在程序中下拉框中可任意修改。. J" V6 K% y3 Y) d# \& i

" p7 }" O; W% L[ 本帖最后由 scliukejun 于 2007-5-16 13:07 编辑 ]

偏心正弦凸轮.rar

289 Bytes, 下载次数: 311

发表于 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 )

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