QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
5天前
查看: 70443|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve
6 s& H. p" Q8 X2 U' a2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”( j! z, _( }; |  S! _5 P
1.jpg % w8 ]6 L) a+ M$ `1 S
( y3 p+ N5 o- @2 b, O9 Q7 E
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载* A1 h* o$ {& N/ T8 `' \
2.jpg
( M1 [% Q) u3 l/ E' Z- O3 z$ @2 Q- l' m9 e+ y. f' Y
出现图示按钮.点击之则运行
1 z  [# H4 X0 P( M 3.jpg
5 m& p% \6 ~) b% y* O! _' u6 r 4.jpg
4 N$ ~% O7 {% M1 o+ i- b$ }

- J+ i  T: f/ K" k$ k. I* c! b+ |点击取自..”9 n7 @, @6 n+ S3 e, S
5.jpg + i( |3 g; i1 x$ w# _
选择偏心正弦凸轮.lkj”,”OK”  b* d% c' F# J: @
6.jpg
0 z  j/ L* ^! g- n/ o点相对运动傍的”>>”钮,出现
5 ~* W8 V4 F4 i& e
$ E+ F* S$ Q1 B 7.jpg
" U/ [4 H: y* I/ ]9 T+ C( S退出窗口,返回上一主窗口8 e5 X5 m, K# O9 d$ T* b4 a9 G
”Help”7 _' N7 H* a8 d0 x7 S, Q* D
8.jpg
2 E4 T8 r/ w8 D
! Q4 T6 ^: P) J9 f# w出现函数支持窗口7 |* A# F! G# q6 }
绘制- I* }, S  l3 w$ _7 P
9.jpg 9 \/ I, `1 f% y
出现一类凸轮图形.* f3 X4 o- D  c: L2 N. c, L8 y/ F

% R, D( r' z/ Y; f) p[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
; W) v8 D, u2 b9 T; `2 ?( n9 H! g8 P
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。- X( v) Q# _" C
用不了。0 H3 \3 M: K0 t0 D
提示:* \" Q8 T( {. [% c" T
    命令: -vbarun 正在初始化 VBA 系统...
! C- z+ y' l' ]! G- m5 M宏名称(M): c:/curve/curvecad.dvb!vbacurve.main# j  W; o9 u+ K9 H: V
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
$ q/ w& Z* m2 D$ I2 P* m7 b6 {没有返回去用过。但我想2004肯定没问题。8 i$ ~1 C7 p' r1 Q% p
另外CAD必须安VBA。
( C5 }" ?- R+ I# u( p* Z0 G楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。6 p2 h# b8 m! k8 V$ F, S0 O
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
0 O$ c) C2 B# K$ h3 Z) z其次我想普及,可一时操作后悔却没办法改权限。
1 w( m6 n5 X9 U% d再则同志们反应真的很冷淡。
* C: ^% E7 B: `+ T& |' A" H+ Q有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。3 H, O7 Q3 d8 d; P, ^6 [& k
那些个想画渐开线的,用上这东东还悉什么呢?. h; ]3 n4 d: ]0 s
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。3 f6 [- g$ s. K1 B& b+ k
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
* \" A, F( J0 v( T) a雷电波公式,呵呵呵呵。。。
8 a6 h7 X: Y+ T: e同志们捧个场撒。。。
0 E0 o* Z7 F1 Z- J2 D4 l  i2 V% j0 w我给的可是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/ G) g4 v# W
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
; l% S! y' l/ m, Z* N$ Z. ~李萨如图和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 @* j. [& |4 R
"0"' K7 P  R8 ]: u( B! s) {% [3 ~" s
"0.01"* @2 y4 d2 a3 h! l# x
"0"/ t+ i: n1 t) O: q! V# t
"2*pi"1 T/ l, t4 b! i% d  x5 a  j
"r+(r^2-ee^2)^0.5-r"( I9 a$ f& Y4 w: c
"0", Z1 U8 r  w! ^
"x"- n) D/ u4 `3 j/ K/ L, k
"1"
* ]  X! d! w3 F"1"
( T5 u; N4 c2 P"ee"% J7 U1 h3 i: ?& O5 }% O
"0"% e  \7 K4 Z$ ?8 m5 y9 ^, E
"(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"4 T5 V8 n) U" }/ s; W3 s1 C9 M/ t# x
"1"
7 E/ ?; |( D8 z; U9 F1 @4 s) g# ^"ee=1"
3 n$ o% U( a1 M% T3 @; W  x3 n& f, }& f"nc=pi/5"5 M4 \& z/ x( d5 _- j
"na=1*pi/5"& k1 X- W' h  d9 i; i5 _2 s
"nb=5*pi/5"
( l. K' z  `1 E! |  W7 }2 C"r=18"0 E$ b: u7 n/ l3 H/ P  U# e' A
"h=5"
- a8 F. e9 N% ^( T" I"---------------"9 |) q/ `4 V5 v8 l) m
"偏心正弦凸轮"
& L+ ?& I1 z9 e& }
+ o* s* X5 C% H# m0 _以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
$ I  |$ v* i1 m4 Y9 n: U) X7 M  V其中ee偏心距: M2 K4 ~9 @* [) A2 c6 o
r基半径0 A; t- t, V- O; M% k' Q
h 行程
) U, }, J, c* t. u: N1 j* {na上升转角
, q% Y4 B1 V  `, U+ Y/ C4 r2 N" Qnb上升停止角
1 q1 s% N2 ]: D5 V/ _& x' D' Vnc下降角
+ N9 s% y2 ~" C. _' l# P在程序中下拉框中可任意修改。  f0 M$ f: G$ a2 T; Y; }! G& Y

  a0 a+ M3 [5 [) n3 X6 U( R5 K3 F& g  i[ 本帖最后由 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 )

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