QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve% }9 L5 G# K  r1 z
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”. D! o2 k; y* }/ @! o* B+ \
1.jpg
; {3 F9 K4 w5 w+ m: O
8 s% Q6 I) n8 z0 L3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
( j) ]8 y2 V/ y: \" |- M 2.jpg
6 T" Y2 _" ^8 `2 U' F8 i8 G. p) y9 r' t& V+ {, \# o9 A
出现图示按钮.点击之则运行5 ^4 v! U$ m1 b  \" J
3.jpg 9 x# i. A# b) p
4.jpg
  C: Z, ^- S. C  T

( s3 _! u$ r+ P! n7 ~点击取自..”
; q6 r9 u) m7 t9 l% G 5.jpg - s& b' N$ J$ D
选择偏心正弦凸轮.lkj”,”OK”
+ A! b5 j; O* g# H* P( k 6.jpg
6 y# X/ }- h3 x2 h8 x6 m8 z点相对运动傍的”>>”钮,出现- k' d+ O. y( ^3 w% t
- m2 R/ B7 \, r( i
7.jpg
: _( g$ s& E' ~& t退出窗口,返回上一主窗口
) U* o. S: k+ m”Help”5 a$ C+ v& d; y, W
8.jpg
) C! c0 {& R8 _
8 K, @5 M0 I4 P% l出现函数支持窗口
, ]$ }* _6 m' D/ d, L绘制
* e$ J/ o# e: X: b 9.jpg ( e( F1 W7 i+ y* c' J% I8 G* d& S
出现一类凸轮图形.
) r& q9 O& S. p  }  Q6 a" v1 i; |
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?+ G& `, W' H% G9 {/ h+ \

8 L% j2 g0 o* S) y! v* r$ R不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
  G9 R  o6 I: q4 ^' ]6 C用不了。
% i2 ^* b# t, n提示:: }5 S) ?) q! J: ^4 Q
    命令: -vbarun 正在初始化 VBA 系统...
: i3 Q0 O  i0 H9 ]宏名称(M): c:/curve/curvecad.dvb!vbacurve.main) D0 Q( t' Q& A
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。9 y# i- G" b: C) ^% O; o
没有返回去用过。但我想2004肯定没问题。  I7 P, O& G5 l: G- ?" h
另外CAD必须安VBA。/ g; U7 m" u, R. D. `; U4 R$ z
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。- p* H! a3 @. e8 S1 L  g! U- `0 J
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
( G# k  }1 r& x# z+ S其次我想普及,可一时操作后悔却没办法改权限。/ B7 J$ Z+ q2 s9 I
再则同志们反应真的很冷淡。
& f- j0 j+ {- I4 g) J有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
3 ~5 S  M9 P8 g0 W& `那些个想画渐开线的,用上这东东还悉什么呢?) A$ I9 o! c0 [% T* ]
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
3 ]' l* g& r/ ?) O7 C- J我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
# m" h& |  {# t9 y7 P雷电波公式,呵呵呵呵。。。/ U0 |6 N: n, @
同志们捧个场撒。。。
9 q. l: D4 v1 \2 A" O我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
: U1 e! k# o/ y9 A/ a: W4 `通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:8 I" U; c7 }1 F( B; h; x% y, ~
李萨如图和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"
, _, h6 [- h1 M) X5 ?) N"0"
% b1 n0 l" t$ M3 ~2 G4 d* V7 z"0.01"
  B5 x3 t/ R0 ]9 e! i"0"
( k. i# m9 S  U/ @$ {5 ^"2*pi"" w  o" r4 N4 O3 L; [' k
"r+(r^2-ee^2)^0.5-r"
7 G/ Q' G. W( E) N) X"0"
1 [. u8 n4 ~5 K, A5 _"x"
  N3 B1 u3 Z: L, S  }"1"* E9 W4 \  Y! M& Y
"1"
& c" W/ K( F+ G. |; Q  Y# q" v"ee"
2 B' Q) _9 W; s* Q' F"0"
! H1 c9 E/ ~3 X: t9 _# c4 y9 Z"(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"- g* r" [, Y1 y- O, S
"1"8 T0 P1 z: ^( v9 f4 }( o  u
"ee=1"
# r6 e8 u9 a: g0 J% W"nc=pi/5"
/ y. [2 J! y7 V1 x6 i"na=1*pi/5"
8 _  e5 [& J; C% @. m; x! j8 @"nb=5*pi/5"
* m% A( _0 D2 f. b; ?"r=18"6 v% P3 V4 \. C
"h=5"
( W) n. G  |6 ?9 s"---------------"% F* U: T8 R. ^6 W4 S# ]' _
"偏心正弦凸轮"8 j5 x) O( p, x% H3 ]

9 P9 U6 R3 ?" M9 w" I/ @5 I以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮2 |( r3 S4 E: c5 k" @6 X
其中ee偏心距) F' K- ^. {6 Z8 P: ^1 q
r基半径
  B: g4 C5 z3 m# W8 f% m% Mh 行程* v, ?& _! g! l. `. p( _$ ?1 p
na上升转角
# z( |+ J- t( s1 O& l1 [1 tnb上升停止角
9 S/ q; }5 I5 h2 A! T) F$ [nc下降角5 ]  S0 ]# ?8 V9 ]  B' i5 K
在程序中下拉框中可任意修改。( g& E$ i$ q" j8 H5 X8 J9 `

' x0 x8 j$ I# L1 L0 G# B[ 本帖最后由 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 )

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