QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve; f% A) e7 N( e5 }3 J
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
; S9 k; ?; D' ~0 e0 s0 c0 v 1.jpg 0 ?( b) W; ?$ e: M$ \, \; g

& t9 I& t8 Z* V! Y& Y3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载# x) J  V& F( E6 \6 K# j# a
2.jpg 0 j; I( O; H5 l# u- N' n/ s( G
* H0 [1 L; [- u* t
出现图示按钮.点击之则运行
6 U3 c1 t9 V: Q6 G; c) Z. b 3.jpg 8 H, [6 ^0 v! ^7 _" H7 H: U
4.jpg   S- z5 F5 H; t, ~1 t, E7 m( r
3 C; p, S1 m, Z1 G8 M3 {
点击取自..”3 e+ ?& G# s* @2 \( R" O4 l
5.jpg - q. R! B- ?( M
选择偏心正弦凸轮.lkj”,”OK”
9 q- ^" [5 n2 L# v 6.jpg
1 B( M7 {" W  D; |- Y6 [9 b4 o点相对运动傍的”>>”钮,出现
: {( ~( m  Y, w3 j* z. {. i4 X# h
7.jpg
6 a9 C" F" d& H退出窗口,返回上一主窗口
) I/ u5 y- N$ j: n4 k”Help”
# l& v! C. ~/ ~- v& J 8.jpg
( x! t, m2 x' W: X  y# y5 s( y
3 ~" @- h# C' f* g/ R5 b/ d$ L% m出现函数支持窗口6 o6 ~& @3 Z1 B& t9 L
绘制; n: b3 O8 ?# B& [8 P
9.jpg
; K: e) U" k* f7 H3 C出现一类凸轮图形.
; H; ?8 ]& v, u: L0 j. d$ K6 ~( i* L* m5 @
[ 本帖最后由 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' c4 z: R9 m! m7 \) M
7 J; U0 _4 M& x/ R1 K
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
4 d% _6 T  [$ h/ a) L( o* A2 r用不了。8 z& Y) i/ ]  u5 R+ a2 N" ^
提示:
" p; t9 }! n+ Z1 j. U3 t    命令: -vbarun 正在初始化 VBA 系统...
7 z# Q4 D4 F! z7 s宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
0 ?6 B5 K( f; Y& @) c- h& y未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。0 }9 y$ V" k& y- @6 E7 s
没有返回去用过。但我想2004肯定没问题。
" N# V6 D" t/ P6 g3 s' K' D4 w另外CAD必须安VBA。
# p  w6 A6 e) Y: ?! d/ E楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。7 {( `; p; l! `1 I7 A
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。$ L" J# l( u* T% F4 ?( q- e
其次我想普及,可一时操作后悔却没办法改权限。4 J3 @( e2 p& Y% e# k
再则同志们反应真的很冷淡。
! A( D# ]% ?# l0 B% ?1 j有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。  g" ?% I' b9 J% P! }0 N* l
那些个想画渐开线的,用上这东东还悉什么呢?
7 H. F& w' ^: Z. g比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
" W; _0 F' j4 e2 S1 n& C我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
; q& @) ~1 K, M7 p雷电波公式,呵呵呵呵。。。
& p; W8 l' w+ I, {" S$ f/ J同志们捧个场撒。。。
" c6 a8 \$ Z: r0 A我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
$ F# O7 b3 P  X1 D* ]通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 556

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:$ W: L9 F9 r# P
李萨如图和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"
$ X! C8 f" O  `, m# D( Z"0"
; Q; z% f: \+ k% P+ J) |6 Q"0.01"+ X2 u5 C% H" |
"0"; \3 \! |; H, O1 i
"2*pi"3 Q- j' I" O5 }/ }0 {2 U5 K. W% ?
"r+(r^2-ee^2)^0.5-r"
8 {, M1 e( C# w"0"6 Z! P6 O- z3 H9 b
"x", p; s8 t+ z0 D: [3 j7 n, M" f: R3 o
"1": `2 ?  N+ Q! L% ^, m* B
"1"
0 N8 M8 v& Y; ?"ee"0 Z0 N, ^+ p& t8 ?& b8 u/ g
"0"
" u; \: v4 ]& n; v"(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 n' h3 a, Y* C. u, j3 V7 V' ?"1"
( e6 L# I* l* Z' G6 p, d9 y( @"ee=1"; S) h, e* m7 k' J
"nc=pi/5"$ S2 v! a1 Q; t
"na=1*pi/5"  \) p- D8 T9 A# G$ P
"nb=5*pi/5"% K5 T( a) L/ f3 Q
"r=18"7 }" \4 o. p9 A) x' L6 q/ V
"h=5". a9 |+ f& V* y' K5 m
"---------------"7 i) F: ~" o, D4 W
"偏心正弦凸轮"  `, c  M/ A' A6 H, \/ x% M, E3 I; `

  S) l6 E' w6 z' X$ j  ]: C以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮% T8 |3 L/ A( w
其中ee偏心距
+ j9 N3 i( C5 D/ q! Ur基半径
& W1 d+ Q6 K' ~2 E$ oh 行程
( A; F8 B- r- S+ rna上升转角) F" l, z; k$ Y* ~9 E7 D
nb上升停止角7 ~: n/ [* w5 x% \  {' u  ?
nc下降角
: A5 g9 X1 A1 ^+ P在程序中下拉框中可任意修改。2 b+ H% {1 Z' x. A' h6 g% g" J$ ?
4 o0 o1 c( @6 r6 ]% d
[ 本帖最后由 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 )

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