QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
9天前
查看: 67965|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve+ y- @% e3 c' A6 V
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”  B- u" _% r4 O2 g# M0 c
1.jpg 9 u+ B4 A- f8 a% ?
: b* |6 \2 ^" Q! O& N* d
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载( @* C8 C4 Z; A, w# q
2.jpg
' b0 y' p) M0 [7 z, e/ u
& g4 i1 y; \3 o0 B) p9 q6 ^4 [1 a" U出现图示按钮.点击之则运行
9 m) M% v; x$ r. R! H% f5 t 3.jpg
5 J- L8 \  v% u 4.jpg , h% I: ?& ~% e

, k" N  V6 `, u9 G' L$ B# v点击取自..”) b0 T/ v: S3 |) g& v
5.jpg
$ j/ \2 [4 J  q+ n3 G2 r选择偏心正弦凸轮.lkj”,”OK”
; y. z$ T6 F7 B2 Q& T 6.jpg " g6 a1 V3 }; L* J8 [; B2 N# @
点相对运动傍的”>>”钮,出现- u5 C' V* F8 e
" Y1 j6 N0 f) G3 P
7.jpg 2 z; n0 O, r- i; B
退出窗口,返回上一主窗口( u3 G) k' ]7 ^* U, T7 h7 Q
”Help”
- Y" r/ @- s4 O% r: y 8.jpg
3 \: n/ i& m1 J8 W# s3 ~3 ?9 Y* ~, \$ j" y# L: y+ d
出现函数支持窗口% o8 Y" A, L& T( u
绘制
# k) B/ s: N6 L5 u: W8 ^ 9.jpg
1 A* X# j2 `6 Y1 h出现一类凸轮图形.+ ~- c1 a7 d3 H3 i$ O5 Z

- ^+ w5 G% M/ l; X$ D. i[ 本帖最后由 blackbird 于 2007-5-9 12:38 编辑 ]

curve.rar

998.34 KB, 下载次数: 4756

点此下载

评分

参与人数 1三维币 +5 收起 理由
blackbird + 5 奖励!

查看全部评分

 楼主| 发表于 2007-4-4 22:30:36 | 显示全部楼层 来自: 中国四川成都

回复 #1 scliukejun 的帖子

版主,请给我返流量哦
发表于 2007-4-4 22:38:13 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?, t! G% I3 Y) N6 x. b
6 k$ o2 j; Z; G
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
) F: r. L1 A3 U; i. x: d, Q用不了。
% u( d) ^% `5 F8 h2 f提示:" J# Y; B9 I1 B4 D8 O& P0 s* G
    命令: -vbarun 正在初始化 VBA 系统...
3 h' q4 c* w- E" |2 e, Z# F宏名称(M): c:/curve/curvecad.dvb!vbacurve.main9 G0 u: F( {: _9 n8 j4 \
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
4 b6 b5 }1 E$ B8 @没有返回去用过。但我想2004肯定没问题。
) i) m2 O& j! \1 p2 j另外CAD必须安VBA。' Z3 r" T: e8 s: C: p
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
+ C8 F2 A8 k1 p' T$ _' x) r有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

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

渐开线2-2.rar

323 Bytes, 下载次数: 556

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:$ _( [; [- q2 a7 w2 L+ v, ?; {
李萨如图和4叶玫瑰

4l.rar

319 Bytes, 下载次数: 333

 楼主| 发表于 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"  ?$ a, u0 B: T4 }1 R
"0"
8 {: ~" @/ h8 g( s"0.01"
* S+ c% o# ?$ O  v"0"
; v1 A7 y# I3 D. x' d8 Y"2*pi"( X9 ^, T1 F5 H  z
"r+(r^2-ee^2)^0.5-r"
% x6 B2 c2 R1 o( H"0"* f0 {; L& l7 n4 A, T
"x"/ X# ?: H: a, W' b
"1"7 v* `- j$ K; n9 r" f
"1"
4 E9 h5 v" s; [* H' G6 W$ d"ee"
3 I( q! O: u2 b"0"
2 u! r/ B" F! g"(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"
/ G9 p5 c* {5 T" e) Y% c  Y"1"
" o& G3 `  v3 `' l"ee=1"
" \" m2 i5 {# S1 I7 \"nc=pi/5"3 R/ K  q" d6 l, P( D; F
"na=1*pi/5") N7 G' @/ E( K, @! Q
"nb=5*pi/5"
5 z  K8 ~9 F& G6 G* S"r=18"
  S( n# X. p# [2 S  n: J"h=5"" x: S+ E% u" g) a
"---------------"/ l3 g5 E! u+ L/ S
"偏心正弦凸轮"+ x3 A9 h  y4 k( H& U+ k$ C
( R  Y- P* _/ y' Y! P/ p& o
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
; }3 K, P5 K% x9 s7 R3 W9 t其中ee偏心距( N4 l% b5 u! L# U
r基半径
4 |5 P8 y: E( F" `0 V3 xh 行程3 b6 @$ P& w6 {2 _* R
na上升转角
& m4 [; K8 R$ d7 Q' C1 ]' g9 n# o2 Rnb上升停止角6 x, X- I% \, G% A+ \5 |
nc下降角
5 A( Q. n% X, a+ `$ I; G: D在程序中下拉框中可任意修改。5 _/ L- q3 S" I) J: p
7 T* i( ]) i9 m8 g) N
[ 本帖最后由 scliukejun 于 2007-5-16 13:07 编辑 ]

偏心正弦凸轮.rar

289 Bytes, 下载次数: 311

发表于 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 )

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