QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
6天前
查看: 70482|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve
0 n' Z6 j6 }5 Z3 R% Q, I2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”- i, ^# ^# f7 j3 }* s/ D) U) N
1.jpg ! q4 j* t! b8 ^
7 z( L# v( c9 T! O; I  w  C
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
; I8 {! u5 `. G0 x9 n 2.jpg 8 N7 ?7 X% F( w" T4 v" a
; Q, s% Q( Q) r  @1 ]+ w
出现图示按钮.点击之则运行, c, {- D; C4 O8 A, k
3.jpg ; X7 }8 J( i7 v) r8 q9 u  M
4.jpg
# Y( }/ Q9 D, H3 h9 {# r7 i. A

3 l  G3 T9 o; z; D6 ^: u点击取自..”
- I( E" L3 ]+ q" X 5.jpg
  u4 P4 |2 P& |% B! `选择偏心正弦凸轮.lkj”,”OK”2 V$ C5 H+ E/ ]1 i
6.jpg
! M. |; r! f$ Y, ~7 K5 v点相对运动傍的”>>”钮,出现
( ]  T& ?- f9 ~9 h! o9 h( I2 o/ f9 q; j: e  u$ v1 I5 T0 |$ l: _) H& y
7.jpg
! J8 `1 _# r! C5 ~. G, U& O退出窗口,返回上一主窗口
9 I; x5 ?  }. p: R# W7 v/ G" D”Help”
; [3 e/ w/ a9 l 8.jpg 0 t8 |7 ~1 x4 O) ~9 o# @# W- w1 v
7 e& O9 c- _: {8 F" v
出现函数支持窗口$ M; l1 a7 f6 E. J
绘制
( F5 O- E. b8 @$ I, p( T 9.jpg
. E7 _6 s* I& ~/ i7 s* i. T出现一类凸轮图形.3 Q9 X2 u. X- _4 s1 K2 j9 f% X# e
# O) U+ _' `3 l4 a2 D' p2 O
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?- Y- v# K' Y' Q1 Z
, q( l( h, E, b4 ~* D) v; b- F
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
& D6 T" U0 Q5 |. l& ^# T  \( M1 J用不了。
" z2 D2 X$ Z# k% c/ t! ]* R提示:
' C- b/ F7 h! C. s, F    命令: -vbarun 正在初始化 VBA 系统...
' Q0 U8 w9 B- @0 Z+ l* b宏名称(M): c:/curve/curvecad.dvb!vbacurve.main8 }0 V" _- s$ F& a' o+ R
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
: C3 k# d. @* [) e  C6 P: K没有返回去用过。但我想2004肯定没问题。+ S) n% |0 a# g
另外CAD必须安VBA。
0 f; f) q# j: y1 e% k! V楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。& V3 u4 ~9 E- Y5 b9 F; m# l
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
5 q# A: I& I7 O* j其次我想普及,可一时操作后悔却没办法改权限。
0 r+ A; z/ L, ]! X' z% B再则同志们反应真的很冷淡。1 H: ?, w- V* f4 }0 |$ k1 h
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
$ K. j9 `/ v9 K. ~( I8 M+ n那些个想画渐开线的,用上这东东还悉什么呢?
1 h0 z; m$ c  }  s7 h比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
0 ~% j0 T5 U* r2 T9 W- S我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)  }0 i" b9 x& V
雷电波公式,呵呵呵呵。。。
3 n" W, a5 s: r" A同志们捧个场撒。。。: ^$ E% M2 F# e2 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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
+ T3 q% @& B+ O3 W) x3 l1 y% c! {通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
, q6 S/ z. V/ G/ p李萨如图和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"3 W4 K$ H2 O. b- F2 s: X1 w& R
"0"
; l% ^- }4 I9 Z) D! c"0.01"  K. v6 h: ?+ ~# Z
"0"
. |( V- A! {* a0 ]2 ]- ?$ e"2*pi"
/ r' v: o- H  F* `% u* k6 e"r+(r^2-ee^2)^0.5-r"
6 C. ?" B% Y3 t) f  L+ N"0"
  R1 K7 l0 I* A"x"3 c, G5 U: Q4 n2 m
"1"
( l; H) L  I" C  l% @5 L5 z" `( Q+ T"1"
5 N; q9 k' q9 L3 I! y"ee"
) o3 ^& o" S# K. S' g# s' {2 m"0"
- c- a3 K6 v4 K# ~9 N2 Q"(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"
! ~0 ]$ }3 d8 L- d# w"1"
  f1 n0 |# W7 `. t; d"ee=1"/ `- Q7 ^" p; i3 m- {
"nc=pi/5"
7 V/ r  o: b( X; F4 F& k- i. I"na=1*pi/5"
/ i1 U8 c9 h7 [3 B"nb=5*pi/5"
# z# l- g1 E' Y$ _# A"r=18"
0 h0 |" L1 Y" Q: B- Z* ^"h=5"
4 P6 ^+ L; L: @; H* `1 T9 U3 h"---------------"( P- Q* Q7 B; X4 m% S, j2 h
"偏心正弦凸轮"
4 r8 _0 s$ t  i2 r. S
, }2 i9 }: @3 c以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮  L$ E- ^  y! P, T9 ~2 W
其中ee偏心距
: J, i0 y8 b; V( f7 _. Or基半径
: l8 o; V6 c! {6 _/ f: }h 行程
3 `. h& w4 ~! W) u' gna上升转角
/ F  B, ]3 `5 u7 a" hnb上升停止角5 X+ R+ P4 k- [
nc下降角
1 v+ T0 M! p2 Q& s9 N在程序中下拉框中可任意修改。
. c: d3 Q/ D3 I; a. h% G" l; |! t/ k6 e8 M; g  |3 S4 g& _
[ 本帖最后由 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 )

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