QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve
8 r- a/ e+ I( C0 N2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
; r9 v$ I& z9 r' W 1.jpg + O" \- N4 m( q7 e

4 C$ a" B9 J( `5 i2 C6 Q( \3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
6 r( M+ v. A' a 2.jpg 8 }/ s! e: M9 @5 @6 z) c: x+ h

6 l7 V3 E# S/ {' S- k. V出现图示按钮.点击之则运行
# ]9 z+ \$ O/ \1 s! l; a 3.jpg " z0 f" A, l5 X$ d" e" t" I
4.jpg
; e) z0 v* `# L: a1 S: u) I

: t3 [/ Y: ~6 t$ p: d点击取自..”
' ~  {" |& ]2 i. r( L$ z& K/ `# q/ I 5.jpg
6 E4 `8 R" i) z$ }: s' t选择偏心正弦凸轮.lkj”,”OK”
6 l; u, M/ K/ z5 w" _. x3 C3 `5 k8 i 6.jpg 6 S# o1 E$ ?/ T% |
点相对运动傍的”>>”钮,出现" j: P0 _/ c, x/ C

9 `1 ~3 v2 j, t( x- c3 {; I 7.jpg ( X1 m% O3 u* x; i* a
退出窗口,返回上一主窗口
5 \! \) W9 H' B1 T* ?”Help”
' u+ W8 ~* q+ `- f) g4 k; \3 { 8.jpg
/ H6 }; _3 ~% |6 n; k! R. L# J. ^& Z
出现函数支持窗口
+ `5 A+ K% k) c. @7 F5 S绘制
- O5 Y& R2 E# l. B 9.jpg & d8 g8 A$ a  p; [# g% h. t- v
出现一类凸轮图形.
" [& k5 v" [9 o7 c& x) c, J, i" D. o# |5 A* a& x( w% Z
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
- j5 |, f  Y# j; _# E  Q, ?  r% c! c3 L& l, B0 X& G8 I+ k8 A! S6 z
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
4 ^, n" _* d. r用不了。
* f9 D8 s: n! |6 R- \提示:
1 g6 e1 d0 f; {8 C& r0 p    命令: -vbarun 正在初始化 VBA 系统...
/ T4 |4 K: v& W5 O* n+ S, {宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
( Q/ u  f- ^( ~8 z& @# D未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
" k  ?% `2 J! m4 O9 v% P没有返回去用过。但我想2004肯定没问题。% Y; m1 }) N: _0 X' Y2 t, m
另外CAD必须安VBA。) X8 Q, P% f9 o' ]  ?
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。" O# }+ c& e. U( _
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
! L( X5 V+ h$ ]1 ?; O其次我想普及,可一时操作后悔却没办法改权限。
! ?0 D/ C3 M* }再则同志们反应真的很冷淡。
" l3 M! b% M. `# D; k' s有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
/ O" R9 P' M( a' I' @那些个想画渐开线的,用上这东东还悉什么呢?
  e. F, g& c5 |' R7 W比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
8 c, V# `# q1 j6 P5 l: i$ k我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
; d" g6 g4 {) y: l& \* }雷电波公式,呵呵呵呵。。。$ A1 ^7 Y) q& c- A4 G4 U  n
同志们捧个场撒。。。
  ^1 k2 K( E1 |4 j, X& X我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。' _: g" c0 v# h4 I
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
( O/ F3 k$ d' X0 z0 g! U$ 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"
2 X. O: [) ~5 z" u2 }"0"
) J- v- e& v( F' B3 ]: s"0.01"6 c" b* J) @1 V; H9 _3 P" t
"0": h. ?4 V6 l6 P
"2*pi": Y, e6 D( P. b. ?# v+ s2 Y
"r+(r^2-ee^2)^0.5-r"8 r& J8 v" H1 p+ {/ Q" C" R% p  c
"0"
, x- g' f' g' ?% L+ ]"x"
% W  I) w4 c' [3 R# s- I"1"+ i3 N/ I$ L& ]( F+ o7 w0 ~
"1"
# v6 X- x8 @9 f$ M, ?"ee"' S4 M7 O  J9 ]2 p
"0"& C8 g  P0 Z$ E; \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"
: m& n! L9 X! z. B2 \3 y7 q"1"" h$ g/ T) {& y7 \. t6 V
"ee=1"
  T/ U% Y( f7 A! t"nc=pi/5"
( a( P4 B* ]+ P9 H8 M/ o5 n: n"na=1*pi/5"
. \3 ~, `+ _* y"nb=5*pi/5"
6 n4 ~- ^9 f" F9 [& f"r=18"
9 H! K7 S) P/ p- b"h=5"
# J6 s+ ?/ D# Q2 l"---------------"
$ d+ G. W4 I+ c  A4 w"偏心正弦凸轮"
3 Z/ J( ]( x1 R2 Y9 w/ B% P, y, A# Z% l
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮" @* a8 Q+ U6 F: `' w
其中ee偏心距
1 @+ V! N" c) C3 y5 m; \5 l1 z% Cr基半径, d9 h. q5 H. ^* D
h 行程
: E! l5 J2 |2 O1 D, ana上升转角* F* T; o. A+ K( e. K: c. g! c
nb上升停止角
& V. @' U& A5 Q# j$ O9 _nc下降角
/ n: q& s5 J. G4 H; |& u3 Q在程序中下拉框中可任意修改。0 L0 T, t' i# @$ I: C' y

  n8 \+ M6 s7 h/ }0 s[ 本帖最后由 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 )

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