QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve, a$ L, ]6 L0 K* }: H$ J1 S$ l
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”* P1 Z% u. A" B' R. \2 ~4 ~- \/ [
1.jpg 4 }. r9 N5 E$ h2 t# j3 ~/ W" A  W

" S& O& t( ?, m3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载! K/ ?3 Y2 O. g1 }) `" \
2.jpg 7 s$ l: K* L* ^: @9 e' r! K  U
! X) [- [/ |) ^8 [7 L" I3 E
出现图示按钮.点击之则运行
- T, _9 I3 Y% @  {4 o/ t  G' T5 X 3.jpg 8 [4 S% k7 T( i; |- y# y$ s
4.jpg
! U: |' Q6 ~/ p. }* ~8 A. P4 K
8 A6 x& L% N$ r' @& {  X4 R; o
点击取自..”
5 f; F8 k% O& n- Y 5.jpg ' J  C, g, f1 z) _
选择偏心正弦凸轮.lkj”,”OK”
7 j9 g8 B6 K9 z/ B) A' o 6.jpg 9 g5 N" {: x% R$ b, g8 B$ {- V
点相对运动傍的”>>”钮,出现
' y1 F6 W9 n+ L) q
. j) o1 @" C: \8 V7 D* s' A 7.jpg ! A0 R) V1 \& F5 _/ v+ e7 J+ ~9 C
退出窗口,返回上一主窗口
% I. F2 Q9 ]3 d2 K+ `9 W  Q”Help”. _& I% q& n, [4 l+ C/ {5 i" p
8.jpg
/ P' N: f5 m- A0 w3 w; o: q! g( O4 M) ]- ?
出现函数支持窗口7 L0 Z3 Y5 C. T0 l! K& \! R" ~, ]
绘制  J9 {* \& G/ C+ B+ B7 ~/ ?$ t
9.jpg
! d+ W# B- H2 }出现一类凸轮图形.
- v9 _( A* ?. p- `, Z) E7 ~1 ~- p' q* w1 T3 w6 d
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?0 X' z; J+ [: a, y5 Y$ W

( h4 q" d) L" A. G4 C不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
$ L( l" e9 Q6 h1 x2 t3 l, y用不了。" F* O$ ^( U1 j  h, t1 _5 h' S( B9 @5 a
提示:! g! `2 l( @4 m4 Y& A" B
    命令: -vbarun 正在初始化 VBA 系统...
  F, P$ G( I& z" L/ A1 g宏名称(M): c:/curve/curvecad.dvb!vbacurve.main: b/ N# E1 ?4 }& c' z" l
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
5 g% }. w, k  J% c没有返回去用过。但我想2004肯定没问题。; q+ z% q. C7 }5 n1 A
另外CAD必须安VBA。
5 l4 m8 \/ Y7 u7 U% H+ ~楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。0 K3 h% l8 W* l9 e" s
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。5 x/ U) m& U3 D7 c& a! g( W
其次我想普及,可一时操作后悔却没办法改权限。
+ d7 f4 _2 @1 p) }. q- Q再则同志们反应真的很冷淡。( [, G- c3 c6 S! ~
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
- L/ C( l% ?) \+ R那些个想画渐开线的,用上这东东还悉什么呢?: m0 a: l  ^# y$ j
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
' N. b* B$ D: k) w. K5 T6 Q我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
0 Z! x. m! J! [雷电波公式,呵呵呵呵。。。
; i+ F4 g) k5 @9 L同志们捧个场撒。。。* V( N. T% @, B1 O% Y2 ^" U2 T
我给的可是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 F6 |' g: Z: ^& ^) m" q. a  |2 }通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 556

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:* x8 y) [+ a4 q, M  V2 U# r
李萨如图和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"8 Z) Y# `5 ~7 v  y
"0"
+ Q& H$ S1 Q9 \& R3 o8 O+ L: G"0.01"; j6 C! [, @% j
"0"
" u, b- v0 z8 C: F"2*pi"6 G. b4 g2 w. X# D& R+ K, K
"r+(r^2-ee^2)^0.5-r"# j9 U7 U# e6 {# ^" k
"0"  @. C, a4 w: v) I
"x"0 S+ c* I/ [8 m: R9 k' t1 Z1 m, X
"1"' K, _9 p& w* D9 W. u  D
"1"1 e& u, m4 H+ b# i5 M
"ee"
8 {3 \/ O) U. m% Z% U"0"/ Z# j" N- |/ u
"(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"7 ]  g. F9 I. s( y3 _4 b& L. N
"1"" k, L- h7 X; I6 K  g
"ee=1"5 Q. |9 v( n$ \4 H- l
"nc=pi/5"
* \& {8 }6 `% Y1 N"na=1*pi/5"
9 ^/ u' G* `' b2 E6 K"nb=5*pi/5"
7 D& N+ Q7 X% f"r=18"
/ C# K# f' V1 V; j: S: ^"h=5"- k* S% C% O' H0 K, z, H# o; _
"---------------"
) n0 F: T) s# I0 h+ C- X7 s"偏心正弦凸轮", p9 I3 T: A8 {6 l

" d8 |! \, C0 S! g' N1 P8 S* A以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮, I5 X& |  F2 g2 Q
其中ee偏心距
1 U3 @+ }  k/ z: [8 z! A7 ]r基半径0 _" p' d- h+ q2 K* ^/ ~
h 行程
! o) |- w8 f- g" }5 P8 h2 ~5 fna上升转角3 m, \/ T0 ?' g
nb上升停止角
+ R5 r* Q- z" m& o) wnc下降角
$ }! j) v( s) _( V* c1 |' {在程序中下拉框中可任意修改。
$ c: ~" N7 L. ~7 ^. X/ v2 |1 F# C9 J' n
[ 本帖最后由 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 )

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