QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve
& y1 g( z% L5 Z8 R" ^% u7 I4 I2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
9 l. V' j7 w( h 1.jpg
' O4 w' B6 D! J' K  k! `' ^  m- [
# [2 Y; y- n2 k5 u6 x7 y$ @3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载! C$ Y0 l% @/ C2 k' d- U& y9 |
2.jpg / l% Q0 i4 [  m( A+ {' w

5 Y/ K8 T* M# I" p" p& T3 y2 M出现图示按钮.点击之则运行/ ?8 a, o) Y" h- k
3.jpg . d" K% f1 n, n
4.jpg * _- G9 p/ I+ E3 K4 L0 V( z( O" L6 [7 V
7 E% z* Q9 Q$ B
点击取自..”
- X5 M3 |5 z( p0 _ 5.jpg . k0 f1 K6 v9 N& ]; O/ d
选择偏心正弦凸轮.lkj”,”OK”
- l& H) M1 V1 }& |+ T# q8 ` 6.jpg 1 D" o3 R" }, x) X& C
点相对运动傍的”>>”钮,出现
+ V+ L! y  |: J, X3 Q# d" C: W, D
! g' V$ x) w1 u2 E; [ 7.jpg   f0 o. i: e6 P* _, K5 O
退出窗口,返回上一主窗口
6 e  W) B: j6 M, D$ t”Help”
- \: [! r+ M0 b 8.jpg
+ w! q! ]+ p! i( u/ V& _$ G+ P) y/ M; v, M( s! t
出现函数支持窗口/ d! W' |9 u5 j( m2 K' _: e
绘制
! C7 Y$ H& G' q) f 9.jpg 4 ~5 C9 y# W0 f8 y% ^. b
出现一类凸轮图形.0 v0 _5 h% b( s# i; u+ G& h
* z5 e2 x: t8 m6 u8 a# d% d
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
# n; d; v9 w9 S0 N8 z$ |& l) V2 u; h" U( w3 v: d
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
. q' ?- u- @6 @4 r2 u用不了。
& v+ f. K0 u1 @" ^) G# r  n; K$ _提示:5 T, n% P( m9 s9 e/ Q, z
    命令: -vbarun 正在初始化 VBA 系统...
  x. Y/ c& @$ Z2 E) N/ U3 N$ K宏名称(M): c:/curve/curvecad.dvb!vbacurve.main2 w5 ?4 o' j: T& `
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。( c1 Q; f1 |7 P
没有返回去用过。但我想2004肯定没问题。
: T' ]+ p+ w2 m; w* z$ Y3 D另外CAD必须安VBA。
) g, j- \' L# ^# r, x1 B楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
5 u6 W$ W4 k% v% K! A有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
" c, b# U0 f6 w其次我想普及,可一时操作后悔却没办法改权限。) U' _/ _2 t! Y. t4 C0 s+ S3 F
再则同志们反应真的很冷淡。1 l2 i' S* [6 a6 d
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。/ ?, {- d" g; X* K  ^3 l
那些个想画渐开线的,用上这东东还悉什么呢?( i2 X8 h6 e# _' `
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
6 U# N+ O% Y; F7 S! o  E" E, D2 s我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
$ M) ]7 N5 _0 i/ U! l, d: ~雷电波公式,呵呵呵呵。。。
8 E; \3 z0 x" P- b同志们捧个场撒。。。1 o: T( d' F, T, i* e/ t' 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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。! l6 T2 c, K; F" X
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:2 |4 g( K( V- Q* B; E6 n
李萨如图和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"
5 s# Q5 `$ B8 W+ [6 T8 ]) v2 j"0"5 X$ e2 L9 V5 o. x/ U
"0.01"8 z. y' R! G! @
"0"# v8 ?& Z" p- l4 z2 z
"2*pi"2 j5 ?8 e! \. x2 v/ S$ Q! {
"r+(r^2-ee^2)^0.5-r"
2 n0 B( s4 i/ i0 U# ["0"8 B! S" q/ }& |( U3 z
"x"
7 I2 {. {; q. h8 D; e5 }"1"
" l9 ]  H# D* H9 C"1"
2 G2 ^  l, [% z8 i8 h9 A. x"ee"
( ~+ m, }3 l3 z6 l1 ~( _"0"* t8 g" h2 Q. X: z; r: `' \
"(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"
; B3 P  c8 t1 }0 Z5 u; D"1"$ v1 T* ]# I3 R: r* |  q% A- {
"ee=1"
! L7 n4 Y- K+ w& m% F" p+ I! _+ q: j"nc=pi/5"
! `4 ~  W# E- _' H8 d+ `"na=1*pi/5"- D- N, n$ W' m' ~; H
"nb=5*pi/5"  a5 G( M7 ]1 @& _- `  w- e
"r=18"
8 m$ u3 e6 U# ?1 ~% w9 C% |! P"h=5"( C4 r  N/ @  d$ ^( ?8 I9 {: L
"---------------"6 P  \$ e. h6 f3 {% g/ u4 _: @7 H
"偏心正弦凸轮"4 s, L4 k1 Q" b  D2 V

/ q8 Q# R/ B: f以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮! b  ?# y. j* L# @* b, ?! I
其中ee偏心距
7 x+ [1 \1 [& ~+ y+ G% R  K8 lr基半径
6 D+ ~' i& |8 G# G$ N+ \6 Gh 行程
( E3 q. H* C! mna上升转角. b0 R3 ?- b( ^, X8 ?; O! R6 y: @
nb上升停止角' e* w0 R5 M5 r: P0 X" L& a3 @; `
nc下降角
/ M1 t: w1 _& m; }& o在程序中下拉框中可任意修改。
1 Y2 _4 U# d5 \+ N# O) @/ u6 q. d1 R$ V0 k4 h
[ 本帖最后由 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 )

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