QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
10天前
查看: 67986|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve
& U( z- c8 D' L: U5 o- f2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”$ P2 C$ _, @# X3 w) t/ A! S3 q0 T
1.jpg
2 T  T$ o4 Q4 j/ `2 U
$ M6 i. B" A! a. H! m8 M- ^: F3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
8 O. y4 {$ X5 A 2.jpg 0 L3 s0 b, M3 k

: Y& v& `' h1 o5 u/ p4 \# T出现图示按钮.点击之则运行
! y+ P7 ~% U# P  Z 3.jpg 3 c& p7 t5 V' B* ~+ \0 F4 Y0 g- l
4.jpg
  O9 y5 d, t$ h1 J' @8 j( Y
& U: K3 u  o/ Z
点击取自..”
2 o7 a3 B+ f$ t$ ], N 5.jpg 4 q$ G9 y6 B7 r' }
选择偏心正弦凸轮.lkj”,”OK”
/ `" G8 i, z; x9 r% C6 c 6.jpg
4 `) B4 |$ j% ]: ~$ a- H: D点相对运动傍的”>>”钮,出现" x5 M6 p( b! K9 A5 U. K8 w) s

2 F/ j' W" v( R9 Q8 o 7.jpg
, d# n  A% z8 T7 A1 t8 w6 w5 S退出窗口,返回上一主窗口
$ h0 D. K4 P5 E# D) [# M- \”Help”5 r8 W8 `! b9 K3 l0 ]( V
8.jpg
& z( u1 L! @1 v* G1 L2 s% c* |7 C, F7 T/ H
出现函数支持窗口( u  V" x4 o1 o6 F7 c# f; ^% |
绘制
% H) o8 y" y$ J$ W+ u0 F( H 9.jpg : w: G1 z  Z, `& v
出现一类凸轮图形.
+ q9 |6 \1 b. r5 B; Y' S! ^
1 p6 X* E" u- X2 e2 ^5 a[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
$ L5 x/ Q$ c5 e2 M9 F3 s$ l" o) Y7 t- z
不敢用啊
发表于 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 Y5 j( E$ n, T9 r: }: y用不了。
: `: H1 l4 n- A8 P# H提示:. U# F4 @$ Z. N  {
    命令: -vbarun 正在初始化 VBA 系统...
& q8 L, @; h$ |* G- l+ L! g宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
: [& O6 L) O* g+ C% T未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
' U& G0 y9 _* a: P没有返回去用过。但我想2004肯定没问题。0 D- v4 y+ A* F2 A& T1 `) B
另外CAD必须安VBA。& B9 ~0 ]: O. s& w
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。- B% q+ z5 |1 u4 c0 {' g9 w# I# [; T
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。8 w. t2 V4 X7 R* [
其次我想普及,可一时操作后悔却没办法改权限。
# }' ~$ m! L! N7 C; C6 P再则同志们反应真的很冷淡。
, _/ n1 o# G4 J( ?* [7 O有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。' l' R/ n" i. f! D! k: G
那些个想画渐开线的,用上这东东还悉什么呢?1 e* y: g# w5 X! m, v
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
  Y; j# ~- g0 Z( ~% x7 i& K& e我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)0 m2 o6 l9 n3 \$ K" k  M
雷电波公式,呵呵呵呵。。。2 G3 `+ H( g" J: h2 @
同志们捧个场撒。。。
" ~: X$ s! P* k( S, t" 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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
$ B( g+ S2 v3 l5 A通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 556

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
% h; T& u/ s9 m) Y( @李萨如图和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"! U( g  q" `" t- {4 H/ ~( j' I
"0"
9 x+ X; T1 t4 F- m1 y4 v4 E"0.01"
9 U3 O% z9 @$ j& f1 U2 ^: {"0"3 @$ w) O. f$ h
"2*pi"1 o6 p: o* b4 {( E$ c2 Y
"r+(r^2-ee^2)^0.5-r"8 b7 L- B  X9 V. Z" w5 S. ^+ q
"0"
, ^6 T  b. u8 R( h0 d% A"x"
" `9 s! s: F( A6 o"1"
0 t. U8 d8 Q4 z: P# A6 N4 s"1"
3 U6 F/ N- F. P* i  i  N* a- _"ee"- ]9 w# l. B- x. N! C' Y
"0"
! m3 z  M/ x" e$ }9 _  N6 @"(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", A; M- C& j/ r" B
"1"! S9 ?6 [' {4 V& H( u
"ee=1"
; _8 b$ t: T- t7 t1 H: f+ b"nc=pi/5"
! W. J2 e% R. g/ S: t"na=1*pi/5"  z. ?: y5 g. y0 i& e7 b
"nb=5*pi/5", y/ y; ?& ^/ c4 `2 _8 O
"r=18"
, M9 m# v* }+ S' e, t- _/ o"h=5", @/ h! j% ]+ O2 d
"---------------"$ t6 E% Y; U3 ~5 v6 t- }
"偏心正弦凸轮"+ ]& ]4 i4 I+ [) F' I; i

: g8 ?1 g  N$ f以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮; i* m: g  _5 Q2 K. l7 b
其中ee偏心距* A& G; n" N4 g
r基半径3 n8 s! n+ Q$ r; M
h 行程
/ u0 s$ t1 M- ?8 Wna上升转角
9 d5 T0 l  |) p8 Y- pnb上升停止角2 H/ E4 r4 H# |! O* V1 ]4 \
nc下降角& l. `( L: m0 j
在程序中下拉框中可任意修改。2 v0 m# n# W, _! @& A- M
5 \3 s- X  }: ]3 l. _6 z: \
[ 本帖最后由 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 )

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