QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
21小时前
查看: 71440|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve8 b* ~* U5 r9 Q: x0 d+ }; o
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”+ c; X0 I' a" G: g2 t2 |* Y! O
1.jpg 7 a- P. n5 \. }; ~+ |  X, d  h) E- k
! ~. _1 l- B2 R: E' @8 @
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
$ C5 {, F( \5 I' ^+ t 2.jpg   m+ J2 `( l+ K3 M( f
$ j3 V5 S/ U5 u  l( V# o
出现图示按钮.点击之则运行
; A% g; U  D. k. @" y7 B 3.jpg
1 S! t6 _2 j5 n! \" _ 4.jpg 7 `2 n0 F# M; f: w0 c; w

* p$ E8 C( H. v2 d5 D$ d点击取自..”! q; x! S) O. K8 x, r
5.jpg 0 c1 e: |! C4 M8 s% E7 Q' ~- e# C
选择偏心正弦凸轮.lkj”,”OK”
. v. _  q! ]! S0 z$ G) ?1 F 6.jpg
1 `8 E/ x0 c! D1 q0 u7 r  |" m+ L点相对运动傍的”>>”钮,出现
3 I  k6 [2 e1 u- Y4 h8 L- {7 q* f, s1 r# _. `! V
7.jpg ) Z% E, B% ~2 |3 ]. _% A$ u- v
退出窗口,返回上一主窗口
! H7 F6 ?3 f8 e; L0 m) u+ N$ @”Help”% A  e6 ]  I# h) n
8.jpg " A1 g8 V$ n6 q/ G9 E$ h" r5 \1 C

8 `" K! L( e5 I8 n4 s出现函数支持窗口
4 |4 O- L7 y0 n绘制
8 J: ?  Q- C0 H$ |5 P3 F% U3 Q5 M3 `7 r 9.jpg
4 w8 z5 u/ l% w* w; Q出现一类凸轮图形.
) J) Y* M. B# T
& N7 }  I# y' L& O5 I, F[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
' z: O/ t% }) H, B% E& t! T3 {& z9 P8 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 | 显示全部楼层 来自: 中国上海
加载了。' K% o3 K1 |" B+ Z
用不了。$ D) f: P: d/ P0 i; j) }
提示:
. z) c6 q( s6 N8 H# b0 \    命令: -vbarun 正在初始化 VBA 系统...; s5 G; `1 H; G& l
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main" \* Z1 i% _( e: N! U) g8 x
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。5 F: f3 i; r$ Y/ N( I- l
没有返回去用过。但我想2004肯定没问题。
3 l% W, N+ X. a2 w* E  @" x另外CAD必须安VBA。
  ^! o) R6 ]& _8 E. I0 _4 v4 w1 U% L楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。; e3 h$ f5 Z' |
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
" z& H4 u" w0 I; E其次我想普及,可一时操作后悔却没办法改权限。- L4 S: K' g4 l$ q9 s0 P# z
再则同志们反应真的很冷淡。
# U+ K( D5 R' g- Y, c+ i) m  N有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。1 W7 \  Z5 q( m& w% \0 U1 _
那些个想画渐开线的,用上这东东还悉什么呢?7 C& h. A# g" J" z
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
; ]; F  @& D; T7 t我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
  y# Z8 J8 G. E# c  C雷电波公式,呵呵呵呵。。。
, [( L3 r# O8 H2 G1 O# M4 \$ X同志们捧个场撒。。。
5 }2 u: ]9 {8 J0 @- l# u0 r! z我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
8 r/ t3 P) s/ b通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
7 ^7 b/ ]& D$ }7 e7 k$ v8 b$ 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"9 V; P9 k9 \  H- b( }4 D% K3 g
"0"  g8 ^- d2 l+ v  g# F; I- _
"0.01"
  m& }, D% o" p1 @- T9 ]: N% s"0"
7 Y8 l( y! f6 D"2*pi"
: {+ j9 F) b7 z/ E/ {3 c3 r, P  I5 B"r+(r^2-ee^2)^0.5-r"9 t0 H7 f. `8 ]+ B4 i, C7 \
"0"
: l7 c6 I" M3 l: o9 f  y"x"
; L% s8 ^* D! z"1"
. T0 A2 E9 D  k"1"  }8 m; I3 D( u: t# @
"ee"9 v; |+ t* q# b, N7 [) ]" ^$ c2 C
"0"
/ a" E+ ?+ z6 A; R! F2 D6 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"
/ h7 X' f- u5 H0 n; h  G- p"1"
4 a4 P9 D2 S$ S+ N9 Z9 U"ee=1"
- w% M+ U" ]# m( b"nc=pi/5"
5 s  [( j2 U5 H1 @0 l- W"na=1*pi/5"
3 U3 e$ H* Z1 b, _! Q% E3 L. @"nb=5*pi/5"
, M0 ^( d# l' L6 j9 A% Z) Y"r=18"1 D9 u/ R& ?1 v
"h=5"
( @& c- j; o8 `0 T"---------------"9 F. T$ O1 T8 W! {5 h
"偏心正弦凸轮"3 @, a" B3 c' Y7 t
8 c5 I' n; t- z+ R# y; ~2 b6 `) @8 v
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮0 v/ i! i. c, X$ Z: p; _$ g
其中ee偏心距
# k9 S3 @0 b$ y! m* Gr基半径
: k7 O: Q+ n* @2 e' Rh 行程. C. s# Q: f8 Y3 f  ?% d5 c6 t
na上升转角, r, g2 i7 N, ~" x, l, _4 d
nb上升停止角
5 S7 [& O1 [& |* j# Qnc下降角
1 `# L) c, K5 B+ P# N7 W, M在程序中下拉框中可任意修改。: y0 R4 K+ q9 [9 {! e5 I
! A* e" c; Q7 C2 B+ J! s" W
[ 本帖最后由 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 )

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