QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve
; G# p3 t- \# n6 d0 }: c9 t2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
# j5 V( N6 ~/ X: f: p" g 1.jpg ! O2 b8 v. L# v; ^1 n; n

" Y6 \* z$ e" i) x5 J+ j( L3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
% a$ m: c0 I# g2 p% Y: V' L+ o* r 2.jpg . m8 z& w$ x: ^

! T' i& ]  j, ]1 @出现图示按钮.点击之则运行
7 L$ R% }+ F: P; d 3.jpg & n9 I9 ]1 C# y( s; A
4.jpg
- L* S$ y6 e- q, f; z* A7 A2 C

/ c& I# ]; U, @* A7 `点击取自..”
, S. ^; o; }! r  v% V 5.jpg ' L0 R* z4 c9 a) R* t- B
选择偏心正弦凸轮.lkj”,”OK”
( @; B8 }9 W% L% ?9 h, s 6.jpg
9 B3 k: P- w' e# ?2 f7 ~! t( c点相对运动傍的”>>”钮,出现/ M& K- I* Y7 i# y, ^' }
4 i- F6 q2 {. R! ?; K3 P
7.jpg
0 J8 H& A$ E( q' X退出窗口,返回上一主窗口3 B! F$ @& n! {; Q; q
”Help”' c' H9 e- r, B0 n5 |- J$ a
8.jpg
+ Y+ w5 A; m$ C& [, U+ r7 J8 i
" y9 v. R1 k4 Y) ~4 H出现函数支持窗口$ ^, [" A$ T7 G+ e/ d7 A
绘制: \7 h7 r! p! y
9.jpg ) r/ |$ q: ^( w& I  c& \
出现一类凸轮图形.
. M# @' D8 r) c6 H4 y0 i& L" O3 d% J8 b2 M- C- p) ^1 k
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
% }) S# }7 j5 T8 ?; t7 y) b3 j0 L  F4 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 | 显示全部楼层 来自: 中国上海
加载了。
" i; C1 Z6 N" a2 E+ A' [0 [用不了。
  ^! ~, v% l) N/ Z6 Q3 D提示:0 |4 L) s8 k. R0 d" k' {2 o2 p
    命令: -vbarun 正在初始化 VBA 系统...8 l( [* _4 o5 e1 T! q' v: Q; r
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main" D0 ^) |- a$ L6 U
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。" W; k% M: y" ~9 f$ j
没有返回去用过。但我想2004肯定没问题。
3 R9 p- e8 ]- L! G+ e另外CAD必须安VBA。- |' \( J# d3 f9 R  r# ?
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。4 {  I/ y. v- d! V5 v# a4 q
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
3 p4 j9 x0 W, Q9 ?其次我想普及,可一时操作后悔却没办法改权限。
9 n: t3 m/ _* `& y8 I. u再则同志们反应真的很冷淡。
" |9 k; O) F; P有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
' P% s, G, T' R! f) o1 Z; {那些个想画渐开线的,用上这东东还悉什么呢?
0 s. @. r# f/ }- N比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。  l0 L+ g+ O* x1 I! d% g! K
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)+ S6 w. \  j' r: Z5 |5 {
雷电波公式,呵呵呵呵。。。
+ v- J, J5 d$ V9 H8 o同志们捧个场撒。。。# d- T! P. p0 o7 T% \" 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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
% u# @1 J* E$ p5 k  O- R% n通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
% S1 t+ n( \/ o" E. k2 J) l李萨如图和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"/ B% |4 l2 K- w$ S
"0"
5 T: |, x" Y3 M, B' m; e  u3 g"0.01"
2 X# g1 n! Y, w"0"
% J6 {" H- b" U$ w) d# T2 c) l"2*pi"
2 C$ W! c0 G/ J$ N  L"r+(r^2-ee^2)^0.5-r"0 }& R0 e& v4 \; b$ Q
"0"! w' e# ^) f" {8 e" p* K9 J! ^7 X6 C4 Y
"x"
3 _2 l- u3 x% _. [! Y"1"
3 ^# W: h4 O! R6 M"1"
: b0 O/ T, k! c) I. w/ A( ~"ee"
% a7 \' K) d1 w- M"0"
% w" W/ O! @0 c- ~"(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"% O: ]; l6 B) m! V- U
"1"
, z( W' Q' n- w, `' R/ l"ee=1"
& z* K5 u) s  J2 y"nc=pi/5"
5 o* E+ P; ]$ t' P# U$ y"na=1*pi/5"
; N2 Y) n7 @) v1 V: T"nb=5*pi/5"
8 }2 R( o- S; X$ g7 k"r=18"6 n- h) {7 q# d3 G$ ?
"h=5"
  e. z+ z! s' f$ B"---------------"
3 I- M' h, K7 |6 Y* o5 L"偏心正弦凸轮"' N# g4 v1 v$ o/ p$ \) l. o
  t) f8 d" C, \
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮7 m3 y9 b: e7 h$ _' v# g& \, b) w
其中ee偏心距1 Q# p7 w% s, G1 ^
r基半径
2 {8 C) ], R* \. f: `, O. gh 行程
# G! ]  ]! v; [2 n0 nna上升转角2 Q( }% z/ V& a9 G7 g
nb上升停止角* q2 w; P' Z( C/ j4 T: Z
nc下降角: b: E; c7 O) [1 l" v( H
在程序中下拉框中可任意修改。9 B6 Y! d4 l$ U1 L5 p6 h

3 ?- J1 H) o) }: ]- ?[ 本帖最后由 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 )

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