QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve/ }6 d8 s$ o* h: V$ L6 X
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”) p9 t, h# ~2 B% g& {3 m4 C
1.jpg
) c6 z/ r/ n( s: @
# J# d5 q9 M, s" C" y3 D  h3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
$ S- i* e& A! O7 H- ~# K 2.jpg 2 z8 n. J/ R2 H1 \& S

& p4 r5 H8 G# \7 e1 K3 r出现图示按钮.点击之则运行" t, b2 ^0 ?! F# e# l% j1 r" t/ Y
3.jpg
* r7 P* J6 E! z( `+ { 4.jpg
" k3 y* T# k5 D  s
) A$ O& E3 x4 X; n! l: j( P
点击取自..”
% i. O, ]8 D, a5 R' k* W2 i 5.jpg
1 _- o2 X6 ]) n选择偏心正弦凸轮.lkj”,”OK”1 j% ^- K# V2 m" W5 R: O5 y/ _' c
6.jpg # }- K/ o/ p& v5 }7 U( B
点相对运动傍的”>>”钮,出现
  _2 `! J) j$ y) I$ O7 C, m& J+ Z" s  F
7.jpg 0 I" Q: m' ]+ s$ ?' N
退出窗口,返回上一主窗口$ e: b' q' u" C2 A  H
”Help”
+ g9 G5 ^) k! G) k/ {0 D3 a 8.jpg
# l2 g" y/ j% k! l" _6 h  x
, C* M3 m$ c1 {. y% w; n出现函数支持窗口
/ B4 |; ^( A: b5 N4 S/ w绘制
' T4 g1 i. J% S/ O5 T 9.jpg , }- C3 z" A6 [3 N6 D' T
出现一类凸轮图形.
+ D& W/ a" v" R% }. \. ?! p* u; I8 N: v  n: s/ J0 Y: x
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?9 x' d8 ?* S! g8 g

8 V5 E" h: e! g不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
0 k& f) i6 }! Y% A, R用不了。
5 M& a: W; `4 Y提示:2 a2 ?' m3 j$ D( A9 E6 X
    命令: -vbarun 正在初始化 VBA 系统...
1 j! B; \  c& V  \0 W宏名称(M): c:/curve/curvecad.dvb!vbacurve.main5 n- d3 Q- |1 O
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
9 o7 G. d* j4 V3 _  |1 F! Z没有返回去用过。但我想2004肯定没问题。
/ b+ S9 b8 a. J另外CAD必须安VBA。
$ U  |( U) C0 l# W4 J楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
2 N5 s- g6 u/ }$ ^有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
! g1 z+ }/ Z9 ^' e3 R5 w# i其次我想普及,可一时操作后悔却没办法改权限。( O) u9 P' D7 \4 \( d8 h! T
再则同志们反应真的很冷淡。( A! d9 i, l0 u5 C* r! T
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
3 k( |1 E" ]( m" T8 N那些个想画渐开线的,用上这东东还悉什么呢?3 z4 i- T, D" y2 T8 ^: c
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。2 e8 I) O* f1 l
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
4 u1 Z* _8 M. Z% Z1 u雷电波公式,呵呵呵呵。。。8 K4 E8 k0 [9 q9 S7 J3 n8 \' S
同志们捧个场撒。。。
" s! j6 |! E+ v" x2 A, A$ O7 o8 S1 N+ @我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
8 b4 @% f. U4 Y- K0 W, A2 h通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:6 ^/ F' X9 y! h( Z
李萨如图和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"2 y  i0 b3 n2 m% V5 z! a2 H! ]9 o
"0"6 U+ A* X1 h9 W! k4 b# F
"0.01"6 F, _# C  A# N; O  i% Y
"0", k) ]6 N' n3 _/ P& Q
"2*pi"
! s. t5 r& J% g& n4 `2 f"r+(r^2-ee^2)^0.5-r"- U" O$ I! O3 W% T
"0"% P& x4 N9 }: ?1 B  x3 b) i2 G# [
"x"& {& y( @* B6 I  ?1 ^5 i
"1"
3 z: [# r; R$ y# u, k4 L" s"1"
- S: ^. l* J1 b5 \9 |"ee"$ h- v* e7 W% s' y
"0"
' ^3 v7 z: K5 `4 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"
. Q5 q2 y3 w8 W# `) l+ ]"1"
% C# u; g) @) i9 E( C"ee=1"
: V9 a4 O- o1 k6 ^  G"nc=pi/5"
8 R" |; [2 M5 `8 i1 o7 H"na=1*pi/5"0 s6 s) k" _/ g- @$ L9 w" m) p
"nb=5*pi/5"3 g4 b% n% }. z. V* w
"r=18"5 y2 p% f  X- Y* m7 ~
"h=5"
4 a; q' c0 {. s. K9 H# c"---------------"# h* H6 s9 Z3 v4 i9 ^
"偏心正弦凸轮"
& a, d) g5 ?/ i0 t( H( h9 u
) Y1 C/ y! x3 ^8 T! O- c4 d" `+ q+ F8 A以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮! C( {% z% g( G- G( V# s; n
其中ee偏心距
: K0 [% G- D+ m% ^1 j0 yr基半径
7 G  @5 Q% Z  T7 `h 行程( y% \9 i  S) y6 o8 v: }' W! I
na上升转角* Y4 Y; i' I4 B$ Q
nb上升停止角- K2 ?+ A" H) a- R/ H% P
nc下降角- C/ J/ i$ B4 z+ E
在程序中下拉框中可任意修改。
3 u3 a( S" R& v6 ~2 |' w% W# E' f$ Y. e& {
[ 本帖最后由 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 )

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