QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve. \" y$ L; b# X2 o. K& M: d5 s
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
9 {. |2 s+ e  [8 i3 q- ]5 E. W2 @ 1.jpg / Y4 Q8 c! }0 k) O- z
  J# M; o- t6 {
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载. h3 X6 F) B; F0 V
2.jpg
5 v( k1 ~, ?# k7 r6 n8 U; F; c4 \; s! v$ U
出现图示按钮.点击之则运行
! _" _5 ]  y# V. {7 M9 y8 ? 3.jpg
- a, C9 b+ v" U4 Q 4.jpg - q. j. z% g0 w. n1 A- v4 F

9 V, X# L4 `3 K& w2 k0 ]点击取自..”
3 o$ C8 Z; J6 p% e; K! z- q, D 5.jpg
7 _8 [7 X  c( F选择偏心正弦凸轮.lkj”,”OK”" A, i' l& l& _9 W& j
6.jpg
( j7 E" r8 f0 e& L: A+ z9 N" Z" a! k点相对运动傍的”>>”钮,出现7 O$ g$ C; ^# m5 |7 j0 `9 I
( g1 a6 ~( w$ {( {+ G% u
7.jpg
. R4 ]4 H# `7 k退出窗口,返回上一主窗口
7 _1 @# c1 J* A* Q”Help”
- \6 U2 i( R% @1 M 8.jpg
4 s7 N) A7 M2 {& d, r5 _' e5 N# w/ M
" b. P, M) Q- C3 g出现函数支持窗口
0 f7 P0 F% g7 g% n绘制6 K5 Y& ]; p: X
9.jpg
' R# l! y0 s8 u; T出现一类凸轮图形.
! J5 N& u( U# y
* L" J$ \; b) I1 _% q9 s0 A[ 本帖最后由 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, y$ a' j9 J7 W# E2 R' e9 U
3 p/ q# D( _% t7 e! _1 m
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
+ C2 N% i+ d, v( |7 t9 @6 Y用不了。
  N) c8 H/ u  H& u5 X提示:) V4 F9 r8 }* _" ~) U
    命令: -vbarun 正在初始化 VBA 系统...# L) a% |, n, i: _
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
* H; ~( T: a. x$ R: D未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。  l$ M8 _1 `" |* {* J
没有返回去用过。但我想2004肯定没问题。+ e! e8 y( ~. i& D# g* W, p4 r2 j- c' v
另外CAD必须安VBA。
6 J% E6 J3 F, r楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。/ T, ^- k' V) j! C: g% y
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。2 Y' J& k9 H8 f2 C' f
其次我想普及,可一时操作后悔却没办法改权限。
. ~  A9 n( J- i7 C1 b再则同志们反应真的很冷淡。, K" w2 M. k$ d2 A+ S) j
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。) n) `" C6 U& P6 S
那些个想画渐开线的,用上这东东还悉什么呢?: F9 _0 `1 D1 j
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
) @, H0 H8 R$ A& P" O% C0 V我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
9 w/ C; J- e9 ?- L雷电波公式,呵呵呵呵。。。
; a4 B4 M, y5 Y, q同志们捧个场撒。。。
" l. d: j6 g! r% @3 b' d) P7 n我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。/ C. p' P3 d1 ?1 ^$ F2 \8 ~
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:+ g. h) N& X' I+ [$ w% r: }
李萨如图和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"
' K2 t. y: S$ w* c1 w, P"0"
6 l4 I# }9 W, U& G9 \% x2 O" [& m* Z% ]"0.01"! ?* T1 s7 k1 F5 Z: Z/ P
"0": G& `# w% a. u$ c/ F7 y
"2*pi"% ~% |7 F3 X/ ?3 X
"r+(r^2-ee^2)^0.5-r"' a) d. o  z5 `) u: G9 P! k' F/ K9 o
"0"
3 q) `4 d  @2 q5 z) I9 o: T: h"x"* ~7 d  z( {' o
"1"
7 U/ z9 c0 ]6 z$ }* T"1"7 G  v+ i- a( F1 B% E% A
"ee"# J+ ]- m5 N/ ^! D8 A4 y( {
"0"  P4 Y6 T: _2 |9 `# L, k
"(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"! K! b/ i& @5 {" e! j4 y* L9 r1 h" T
"1"1 t1 c+ p! t# n/ a" E
"ee=1"/ c  F+ |3 p. T  ]
"nc=pi/5"' ~8 E' [7 H2 ~( s$ b
"na=1*pi/5"
. |$ y/ ^" n- T+ _3 c+ _) E"nb=5*pi/5"
2 h" @( x9 n9 `1 _5 t"r=18"6 c% d/ V# |* M
"h=5"& K% H* o5 D1 S! h; E
"---------------"* r" Y. b. y7 s! G7 L
"偏心正弦凸轮"
2 f7 Z, C! R) z! ^1 ?3 A9 ]% O& F7 M' Y2 V4 R
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮+ T. V2 k+ B' J4 i0 a5 ~) r; _
其中ee偏心距( P1 [' X" @& W4 o$ t
r基半径) S, V1 u+ E0 `: I
h 行程8 a( F( @3 U" a# ?; M
na上升转角: S2 M1 s$ d. R1 u" Q
nb上升停止角
5 p2 I! b% ]# a7 fnc下降角9 E3 B- `7 L/ R7 n& A' |
在程序中下拉框中可任意修改。
7 r+ [0 q, K4 i& R
( J. {- C' j1 ?[ 本帖最后由 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 )

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