QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve/ _; c! N+ n: M
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
! S. O5 _  E% m# L. F8 w$ h% m2 R 1.jpg : w: q# S( K. a4 x( f6 j
" ^6 m9 l1 ], `) p9 {8 J& V
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载6 J+ K$ H6 ^- y
2.jpg
! n  {7 T$ |' X+ h) j6 |$ x; a3 w% Q8 }5 O9 J) Y2 J
出现图示按钮.点击之则运行6 \0 }1 Q8 M+ S3 J
3.jpg
6 \: h# s" ^6 D$ _3 D- a 4.jpg ! o" x% N: H: w; W
! Y# R6 M: M3 c% B
点击取自..”( P6 V1 F+ I$ q5 e# O
5.jpg
) J( J+ R7 @  Z5 d选择偏心正弦凸轮.lkj”,”OK”8 v5 x! Q9 U, Z- ^' L9 x7 b( X
6.jpg
# @% p0 s9 Z- n点相对运动傍的”>>”钮,出现& {/ @0 _$ n7 @' z) F# Y, Z5 ^0 }
) K+ ]- D- Z' F0 r6 E; s- C
7.jpg ) W4 ?/ M2 c8 I  a" y
退出窗口,返回上一主窗口  w; x3 w; `2 L
”Help”
5 g! A/ G& x. |3 Q5 O8 m' u 8.jpg
2 Q" a7 z# h8 K7 `) ?$ |6 D! v  a$ }
出现函数支持窗口6 ]3 n! }9 ^3 k8 r  F( Y
绘制6 ]% s! i/ Z; m; r5 |" @
9.jpg   A4 a6 b( Y( e
出现一类凸轮图形.+ H1 z7 ^" G9 X

& R0 G/ n  |6 H; L- [[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?  r- D8 s  v0 m- h
! q0 O0 n* ?/ q
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。7 D6 s' V3 k6 L8 m
用不了。
" |& o* Y) H& ?提示:: d2 ~" l  f3 `# X
    命令: -vbarun 正在初始化 VBA 系统...
. p. y5 w) x1 Q* f! q6 l宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
0 b; x# o& B# b8 a) h未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。; F# e8 Y5 O3 V! j% z
没有返回去用过。但我想2004肯定没问题。0 ]9 P: b" e# L8 }  Q: R# Z& m
另外CAD必须安VBA。
* b5 W/ Z/ ~% M楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。* D9 V7 Q! X( Z, E
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。! \, X& g: B0 y$ S
其次我想普及,可一时操作后悔却没办法改权限。
/ N" l  d9 Y2 f: M+ G  ?( }% ~再则同志们反应真的很冷淡。
% T( }) J  O. k# M有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。  F  ?* g" K$ w9 w2 \% M, p* E
那些个想画渐开线的,用上这东东还悉什么呢?
3 F3 z/ ]$ w; U+ P0 _6 ]比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。# O8 E" s6 a$ f
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
/ U$ X& R" r& E雷电波公式,呵呵呵呵。。。' w% B: J0 U* O* P! Z: ?+ q
同志们捧个场撒。。。1 {. e9 g5 Z/ 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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。3 H; l, e# e- y2 H$ i4 x
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
# D' G8 [5 [: e3 w# o李萨如图和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"# {. i. F$ b7 q9 p: T# |
"0"
9 o2 T( }+ h- T"0.01"
$ @- |5 D7 G. G, Z7 ~7 [/ ~& W"0"2 Z# R3 I) g8 U( ?
"2*pi"9 K* w$ d0 F3 o" a
"r+(r^2-ee^2)^0.5-r"
' Z- _! ^) c6 x) A4 L; m4 m"0"
2 Z; a# j' r1 R"x"
5 w9 r2 e- R0 N' _"1"
8 W5 n" v* ?8 J( w- u# j"1"
5 H7 E6 b4 ^; G1 J! T& }/ z"ee"
7 W8 _5 w; w: E& [, Q8 a0 D3 L"0"+ o5 x4 [0 W8 L3 f) h
"(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"3 l  I9 e6 y5 a1 D6 K& f* q
"1"8 n) A) z; c' j- L
"ee=1"
( J( V/ P8 T$ ?% s* c- @8 R"nc=pi/5") ]' K3 A5 J. R0 K' |8 u5 i; B
"na=1*pi/5"
# ], g; @( M( q4 U& E"nb=5*pi/5"& W4 ^# S- j6 j( k1 _) t
"r=18"6 M$ m: c+ S4 z8 w! g
"h=5", ]+ ^% u/ p9 c; u! _1 Q
"---------------"
( D( y5 V: Q& h2 l"偏心正弦凸轮"
6 w. c7 U! j# F5 E  S
4 N, W9 s# H8 T" ]以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
( i% B: k+ C: F2 R7 o6 ^其中ee偏心距% X/ y; s( Y  W2 i7 h5 |" d
r基半径
' @$ Y# X; e0 z0 Y6 [% Ah 行程
" y( e  C; z6 W$ t7 g1 Ena上升转角
' s7 G) z1 a, _2 Fnb上升停止角' ~  e" }% n' z! _
nc下降角
. j- ^5 h3 i  u% s' {在程序中下拉框中可任意修改。
$ Z( |# c+ |8 S% N2 x8 ?3 w2 l& q4 B  m. @- }& Q
[ 本帖最后由 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 )

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