QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
5天前
查看: 70450|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve- P0 l, y8 ~. b6 K! l$ J
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
1 R6 [+ e3 T: o 1.jpg / ?& I3 F1 g) k

( k" x+ G; ]# C3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
# c. Y4 M7 {/ @9 F. a& s' c. R 2.jpg
4 D! m, x: @8 J4 E: d! J# H2 a7 e- f% t" z, K
出现图示按钮.点击之则运行% \" T# g1 H/ O/ W  ^' Y+ Z  j
3.jpg
- }/ e$ \4 H% q# J8 u& [ 4.jpg
, t& ?/ g* e6 |( Q5 g4 Y/ R) a
1 M; ?& {! I; P
点击取自..”
% s& T% W) k, P" Q1 s5 [; ^/ e: s 5.jpg ( M0 ~4 t# T4 _$ D( X4 V5 E
选择偏心正弦凸轮.lkj”,”OK”) x* g6 p2 I$ g" v2 u" @) E
6.jpg
' l& x, P7 q' W4 U& T* l+ b' p2 ]; q& \点相对运动傍的”>>”钮,出现/ Y- ?/ m$ G! ]9 m( G

; ?9 I' p+ D; C9 V. q: e 7.jpg 4 Z( ^: Z  d. Y/ \$ a8 _- q& v0 q
退出窗口,返回上一主窗口, A: h" @1 f% x1 o7 b! m: m
”Help”
% K8 \) n/ p- Q  |8 S0 x. \' F3 ]- x 8.jpg
. H! q( c' K' y- I, Y! W5 u* Q2 u1 b/ K: g/ W1 W2 G
出现函数支持窗口% p0 k3 @9 w6 v; K# b, g
绘制
; s- n4 [* I/ I# ]2 z 9.jpg 0 r1 \; U) A" P( T" R4 `1 M
出现一类凸轮图形.
9 U! u  x. t1 T& e
4 N4 z, d9 q  D5 v[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
: V- ]) s: p/ x* ]6 z" U, ~# x+ r8 M% E. t- j
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
+ k6 t% }5 H1 ~用不了。6 F, S+ o5 `: k# R2 N$ n
提示:/ u0 E5 n9 Z6 d! }: x
    命令: -vbarun 正在初始化 VBA 系统...
! E2 `% [4 ]8 Q宏名称(M): c:/curve/curvecad.dvb!vbacurve.main) J7 p& E1 I/ E: {, Q7 u( ?
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
6 \# m: ~6 o! ]% a$ X4 U' N! b没有返回去用过。但我想2004肯定没问题。
4 W4 M: J# |/ y另外CAD必须安VBA。
" D8 L# E5 L$ `2 X# R/ W楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。, f5 _2 j4 f6 r3 v2 N2 l  Q; j
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
( |% I9 D) @6 l其次我想普及,可一时操作后悔却没办法改权限。
/ c: @8 H% r& P" i* _+ T再则同志们反应真的很冷淡。% N8 k) v% E; i0 K! D( ?
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
4 n9 I. v) i8 C7 z+ @! S% V那些个想画渐开线的,用上这东东还悉什么呢?
% {: Z+ A1 {6 [" x比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
/ P+ T7 O' E; b* H6 n% ], J我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
# \+ a* p7 p/ H7 m9 b雷电波公式,呵呵呵呵。。。
, a5 @, y7 u! {9 P( g* T( _同志们捧个场撒。。。+ C* T: E& g! q2 U& E0 `0 k
我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
7 D4 z' |0 V; x. @通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:: A# k, Z3 M% D5 D. {9 S
李萨如图和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"/ z5 i9 A8 U* O& L/ l
"0"
* v! X5 N$ Z# E3 a3 N"0.01"( R/ Q  Y8 c1 Q0 ^' Z7 m. m) y" {) {
"0"8 g7 a2 ^# x8 D( g& s! F) _
"2*pi"+ i, Z4 `, j) r+ {: [
"r+(r^2-ee^2)^0.5-r"1 r* j/ z  _2 P6 d3 m! t# s
"0"% [9 g0 N  [& E( M; X% o$ b0 M
"x"
. k5 M" [/ c+ w$ L"1"% i( ~; T) \3 k$ k; e5 p
"1"
- V3 Z3 F; s! K"ee"
3 h* S8 l8 y% V# g% r"0"
! c, U* D8 z4 d. J"(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"
6 y% j7 B5 [2 J' n9 U; H"1"
( H7 P3 F1 e4 M5 p) o  Y( W6 W"ee=1"
9 ]: u" @1 ~& }" o9 H"nc=pi/5"$ J( _  j8 p  s8 R  U
"na=1*pi/5"
) Z, j2 ?5 Q: r! N# e3 W  S"nb=5*pi/5"
" q; j& }1 \9 n: K8 s$ F% M"r=18"/ |, D. Y$ n6 [% g% e; |
"h=5"
+ W3 i# p: N" M5 f! V9 m"---------------"
$ ~$ s' ]" n8 ~& h3 d* F5 t! v"偏心正弦凸轮"; |7 c3 g+ T; f: f9 x/ s" N& f

9 h" ?5 D5 D4 D1 ?4 `* z以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮; ]/ L7 U( ]: B' W2 q' E) p: a1 }. j
其中ee偏心距# d# D; m0 Q) R. i, ?/ n
r基半径
* z! C+ D0 j( S7 _* @9 oh 行程
& T* e! x* h' \/ G4 vna上升转角! r- A7 z9 h1 t* J6 a3 b2 g2 o
nb上升停止角+ r8 F1 A  Z- a0 e! z
nc下降角
# q$ p6 d/ @* m) U在程序中下拉框中可任意修改。0 H7 i8 u1 {, `* i
3 S+ {0 p5 t4 \. F( ~
[ 本帖最后由 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 )

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