QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve
5 i! I; T2 |" s' q2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
- f& d( X  X% @& Q- J 1.jpg , q& }, R4 f$ \! |; P" r
; _2 b* g' y! r' E2 ^$ o
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载6 @+ @/ F( S0 {3 ~9 \# K
2.jpg 1 w( t1 L3 e) R" ?, G
' s; r  A! w# s+ v
出现图示按钮.点击之则运行
6 \- {- o4 w# s# U5 w 3.jpg ! w  V% z6 v# F; \/ V( l
4.jpg & h) i( d6 h4 `. g4 t- g

8 i/ ^. R8 E0 _- p- l  t" N点击取自..”
# D' y) o* g8 b6 F9 I% O% l7 v 5.jpg : T: m9 G; S6 l+ q2 X
选择偏心正弦凸轮.lkj”,”OK”
+ I) i) w" U! V0 R! N: @ 6.jpg
! @- b7 L/ A9 Y& Y7 Q+ V# m点相对运动傍的”>>”钮,出现
% Z& D8 u) D0 N6 f' n+ w: H& s+ k. u8 x2 C- q9 q
7.jpg
9 t; {9 x- {3 m0 ?0 n, ^退出窗口,返回上一主窗口
# M4 e' ]3 h. J; J7 k2 K; K”Help”0 Y# T  o/ M: ^7 c! R7 E: F6 o3 G- @
8.jpg
6 K4 t6 }% @  d. K& w, Z$ [+ {# z; g9 M( t/ o3 j9 A
出现函数支持窗口
" T$ g2 w* q7 e9 h, A  M绘制& m& Z2 z! ?* [. H
9.jpg
$ B# W: \4 N6 R" `! d2 A0 \7 G出现一类凸轮图形.
/ s' _& H0 p3 q9 ?) r5 j/ X% }% O6 E, n6 r* b" v
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?6 P' F7 j0 C8 U5 j% w; |; Z9 ?+ y

4 w( w1 H5 R" S% K) k. U4 x8 U不敢用啊
发表于 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+ u7 }. Z( B# \用不了。
3 Z8 |! V/ j% p$ p- e7 t$ E5 Q提示:7 Y# m. A8 N7 O9 R$ K
    命令: -vbarun 正在初始化 VBA 系统...+ f- R3 Z9 A5 J$ K# S' Q- u
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main0 U# }8 r. M) [$ |$ ?( N' M8 ~. j# P
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
) N6 x. _6 l/ A; [没有返回去用过。但我想2004肯定没问题。
3 c( K; N. T( B" R* Z5 O另外CAD必须安VBA。
8 n3 Z) D, C) D楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。9 a, s0 l' R3 W
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。& e. o- Q; T1 L" A, g
其次我想普及,可一时操作后悔却没办法改权限。7 @, _/ f! u" g; Z& C# r" w
再则同志们反应真的很冷淡。" p0 r0 r! {3 |3 x5 z. F/ X% L
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
; V0 t& H6 u$ K% G那些个想画渐开线的,用上这东东还悉什么呢?
7 a7 ~$ J" d8 d4 y- M: T比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。/ F4 p, p9 B8 U. F! i8 o" G2 o( H
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的): a2 S$ n* |0 L5 ~& z/ Y8 Z
雷电波公式,呵呵呵呵。。。
% p5 t; |+ t3 v( Q3 o同志们捧个场撒。。。
& \0 G+ C7 z6 I  _2 V我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
* [  k! R( D! ]; t, ]通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:- V3 A' g; Z0 x% ?2 `
李萨如图和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"( U2 |+ ?$ d7 l5 ~5 }) D
"0"
% S+ O) _* ]" H"0.01"
6 ]: |: b4 X8 z! q  v$ y# t"0"0 ]( P# C. m3 P. a
"2*pi"
6 Z# w1 b4 r6 m# x; ?9 f7 R"r+(r^2-ee^2)^0.5-r"
' K  c( I1 g! p, J"0"2 f6 |- S3 X/ @) o* R% e- Y+ b( X: l
"x"
- P0 p% O% m$ A"1"
7 v! o' |# _, O7 Q"1"' K- D/ P7 s+ C
"ee"7 K7 f) y8 G- D+ f
"0"1 m# C* @# R% W9 d" \& a
"(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% K+ \0 S! N, |' k* x. y"1", q1 |6 ?2 z8 F8 z  ^- l: u/ z
"ee=1"
* @: r6 _8 g1 r; A' M2 y/ H) a"nc=pi/5"
' N! W1 O7 r0 ^; D  L. R"na=1*pi/5"
, [* n& s) y  e) h- L4 t$ J"nb=5*pi/5"
- R, \8 |* L! v- G# {"r=18"4 G) p2 K4 r: P/ n! P7 K4 R; G, I
"h=5"
4 B6 |5 g) y! p0 u' ?"---------------"
4 h, c/ r( ]. I4 u* m; Q"偏心正弦凸轮"6 n% F6 _/ a2 W( X

6 ?% g; R- U% K) g6 {8 ]以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮. J" [# W% `, C" n/ l
其中ee偏心距
/ K; n4 x! J, s: L0 Kr基半径( j7 N1 z/ q) K$ d' o# s; ~
h 行程% M& u6 {3 a2 ?% K7 P
na上升转角
# k5 Q. o$ n  C" ^3 S; e6 `% e( W# z. |nb上升停止角
* s' h" V7 t2 D' X, y- e6 ^9 Knc下降角
% N, o: ]' f, }" R在程序中下拉框中可任意修改。
  s2 T3 y7 k) u9 O/ X
6 C; w  ?! ?2 H. s5 [; Y[ 本帖最后由 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 )

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