QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
5天前
查看: 70439|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve
9 _; I# e& p" Z1 j2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”) M4 |% ^8 V% p$ ^
1.jpg
  J5 ?1 @3 }$ r6 E* Y5 _4 r2 h) |1 A4 O# E: u4 B- K
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载4 R4 x4 z; W& C- V
2.jpg 3 {% K2 p, a3 r, z' d

/ Z7 f0 ^9 S3 `- C5 k1 [' {出现图示按钮.点击之则运行0 F* B$ ~" e  q; I4 A; l- C
3.jpg 7 U( c, u5 G, p$ }; ^, {3 y) q! Q
4.jpg
: r' c; L+ U+ x2 H' z
4 E/ H% e; ^: s1 h) M. i" L6 B
点击取自..”1 W# x2 W- O) M' C; O) r
5.jpg
& Z2 c6 M, _. ^: M选择偏心正弦凸轮.lkj”,”OK”
0 ^% t3 W( B4 \% x! a 6.jpg
7 z5 r3 }3 m7 [6 s点相对运动傍的”>>”钮,出现
5 X& Y, o% L  G8 ]4 S3 O* D6 j" f) Q
7.jpg
, G8 s: W. u& i: v2 F& u6 f退出窗口,返回上一主窗口
' d/ |5 G9 Y# w) ^" O”Help”
9 p' {  A0 ~& V2 Z* j& r) [ 8.jpg : v" O  t1 o! N
$ W5 |% m* {. C- Z
出现函数支持窗口! P7 C* c6 m7 i( @3 c. M2 G, p% m
绘制: d% r4 f: A( ^  d; G8 N
9.jpg
- |: p" C. ?; ?' S1 I( Z' b4 c出现一类凸轮图形.; P6 j9 Q# C7 O) F0 M  H

" H0 B9 q4 k3 p1 e# m[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
- D3 H9 y: ^( f* o
- y% `0 K+ }: a& d' z2 Z3 O" o不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。  H7 ~' p- N9 d
用不了。
- Y% T6 C3 O: p/ N; w3 m提示:
% r3 k9 x8 V) f; Y  Q1 a. `" R    命令: -vbarun 正在初始化 VBA 系统...) y8 I  i( f7 a, ~, t8 A" Q
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
, \+ e" d. Q" I  M未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。9 d# R7 Z- N: v& I6 C8 U
没有返回去用过。但我想2004肯定没问题。( w! f  l/ k3 D$ \# e
另外CAD必须安VBA。2 t/ g; b: T3 B6 h  {9 a& N; W
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。5 r# g1 k! N2 i4 {: r$ {
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
8 g5 ?, t+ d* h; @/ j4 L- ]其次我想普及,可一时操作后悔却没办法改权限。
! b) u6 v2 ?9 l, b$ H3 R再则同志们反应真的很冷淡。
" I$ B+ H: P' I* ^有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
6 o  x6 F$ s6 A! q( g那些个想画渐开线的,用上这东东还悉什么呢?) A! w/ M- L" Y8 _
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
7 b) g4 B0 t) k: E我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)! J( |+ X# ^+ _  @, ~! H# |2 q
雷电波公式,呵呵呵呵。。。3 j6 H" i1 Z4 _( ^, `. v9 ]
同志们捧个场撒。。。2 R; I5 g' ]0 p4 x' z5 c3 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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。% j3 E4 N2 I6 h* b* x
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
, _0 I1 g) `+ A( ~$ R李萨如图和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"$ |2 j* G: R* Z
"0". p' ?! u0 L! m0 d; p( Q1 h
"0.01"
' r. L/ u) f! \. o, G! d1 J9 r- s7 J"0"; N" D" E; D! J( S8 s9 V, J
"2*pi"
: o- ^* e/ c' ]1 A"r+(r^2-ee^2)^0.5-r"
: S/ _+ z* w$ O4 ^3 g/ t/ K7 j* r"0"! D1 a7 Z3 B  A0 |* [
"x"0 h' v* Z* s& \5 H
"1"0 m, u0 n  S. t& C- p
"1"% e4 O+ K" }& `
"ee"
  U( X% I' W* ?* l; E, r6 q' Z* w: V"0"! e3 T7 ~: a/ E# G# G) {: \9 w
"(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"" s9 Y5 b( X5 ]3 b. P8 E  G
"1"
$ ^+ J/ C4 F& O6 @6 |. ]/ z9 V% ]! I"ee=1"
6 a# [- @5 [7 w" s2 x"nc=pi/5"# A4 {. m5 y7 X1 k
"na=1*pi/5"
* F6 r2 Q8 b; W; V6 j"nb=5*pi/5"
4 h0 \) i+ ]: R( D3 j"r=18"
" e# O+ H3 E( M. ?- O"h=5"6 o0 ?8 E! F5 |' g6 ]
"---------------"
( B. s4 O/ X+ _"偏心正弦凸轮"% W* M4 D* |) ~: k

# O8 e0 t3 M3 B- f以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮: R) G' ]$ p1 `
其中ee偏心距. k+ u; O2 \. I& l( `4 R
r基半径) O/ R% e2 f( \0 Y
h 行程/ k9 D  B8 y! W( Q
na上升转角
% m% n) |; }! }/ }+ ]. r9 Wnb上升停止角
/ }, h8 p- J$ h2 W7 E+ hnc下降角3 m! u( \/ l* s( v6 i3 b
在程序中下拉框中可任意修改。
( p2 w9 B% ^$ U/ \$ c( c4 _
* `: T# ]+ `. V% J$ {2 w% 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 )

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