QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
7天前
查看: 70505|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve# a: e0 P6 b  E7 H" R
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”& o: `4 Q9 ]4 `, U* ^
1.jpg
4 A; Q$ ?* Q0 A  |" n
1 f3 a# C. B# b' b  C' |8 I3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
  e; O" a& i3 }! D2 J" G 2.jpg ' z2 e$ @9 x  E  Y( N/ ^
3 ~/ @1 x* p0 K* v2 P1 |
出现图示按钮.点击之则运行8 L+ Q! }4 l4 P3 I; Z. v& `
3.jpg . J+ ^+ Z/ w8 ?3 S: t3 @0 S
4.jpg ; E% V7 z. E7 y- L0 x# I8 E' }: Y2 w

! Y6 p. A7 c& K" _2 W2 I& p) h5 M点击取自..”' D6 ?5 H5 _) ]
5.jpg * }" z5 @6 b/ _+ n
选择偏心正弦凸轮.lkj”,”OK”
* ^# t+ t' x3 X5 Y% o- [* y; v( G2 F 6.jpg % w7 y$ q% f) p- M, ?( I
点相对运动傍的”>>”钮,出现
  N. ?! y$ c4 b$ _/ X0 ^" l8 D
7 c2 t4 s* K- x6 F6 G+ X: Q* B6 u 7.jpg 7 _: ^5 H, S, e$ O0 O0 c1 }% Y: _
退出窗口,返回上一主窗口
/ T- s% t& x# i& @/ R”Help”
# ]9 u* M9 E: y 8.jpg ; H4 l3 Q! ^* u" P$ z3 X3 e6 w% A& d

: q* ]7 ]) j5 M出现函数支持窗口6 o, O$ m7 q0 Y' e& K; R
绘制
' w& h: v$ ]+ s% I/ r 9.jpg   N4 k4 }. p7 E, w+ a4 F8 l
出现一类凸轮图形.
3 }, L$ r. m5 j; W4 L% Q4 ~  J4 z" P: S0 T7 ^$ p
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
. n2 n3 T5 _9 q9 l, ^- Y
8 W) R' y1 n% w$ Y: M! S不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
$ {! A% n8 G4 z# r5 r用不了。. k" F2 S0 j/ F2 Q
提示:
# ?& @) @* t8 a" v2 l    命令: -vbarun 正在初始化 VBA 系统...
% I; I. I% r! b宏名称(M): c:/curve/curvecad.dvb!vbacurve.main! s7 B) Z, S0 W/ g0 T" T$ m
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。$ L+ _( F9 \; x8 N* q5 Z
没有返回去用过。但我想2004肯定没问题。$ d1 l  b+ ~; w% @4 J% f* D
另外CAD必须安VBA。
5 g( v" u# V: m楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。, a: W) u& M6 y: o# q
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。3 m: ~+ F+ A4 D& `$ _& f$ j# L
其次我想普及,可一时操作后悔却没办法改权限。1 h1 l% T  w! S! O! l5 I- ]2 l
再则同志们反应真的很冷淡。. `" H0 H! M0 Y' g9 [, }' i2 g/ n
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
. j' n0 c5 }; M& ?那些个想画渐开线的,用上这东东还悉什么呢?& Z$ a( z  P, I0 p; @
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。0 T+ Q! Q  \# d' Q0 g$ g
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)# h: ]9 `: k( ]% N
雷电波公式,呵呵呵呵。。。, m* k# b& o: ^. C( K( U
同志们捧个场撒。。。
3 P# k4 ^0 l. Q3 H, ?, Q: H! ]我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。8 g* I7 {' J( l8 N8 b% S- e) |
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
) C1 V  E: O8 G" y4 w李萨如图和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"
' {$ p2 r% t+ t( o"0"4 d. q2 p% A" B' E
"0.01"
1 g6 Z2 I6 X4 R1 c" A"0"
& o& u. m9 _4 W0 s% ~) |9 ^  y1 l. N"2*pi"
+ ?) Y& }$ N7 z! N3 ?, o3 Z& u"r+(r^2-ee^2)^0.5-r"; R9 v/ |* j7 l' k$ b6 @2 J7 \
"0"3 J+ S+ J) I" k& h
"x"
5 c! `4 w* r( \( \8 W* G"1"7 v% V) I3 }- J3 L" a" v5 w" {6 p  o
"1"6 R7 {" O/ h; X3 P1 [' Y$ ^8 G
"ee"
. ?, B+ M  g! q' @9 u% [- @; c"0"
! w$ h7 V8 G/ L4 W% O& v! r( r"(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"
0 ?$ [" b/ [6 s3 K2 e/ I- C"1"9 g- l; `. g9 s0 }6 P
"ee=1"  P$ J' E( @( X& q% z# X
"nc=pi/5"6 F# b. T' R$ ^$ A# U0 ?1 G( ~6 b
"na=1*pi/5"- M- t% G- h' p$ [  A" Y8 Z
"nb=5*pi/5"" U. D8 l' p* ]; a/ H
"r=18"
- n; A3 Z2 w. v, b6 K"h=5"
9 J  J. w+ P6 F( U! w; t; m$ Y9 Q"---------------"
" M0 l3 D; V: f% W( O, J, |/ g3 f"偏心正弦凸轮"
; l. ]" h) G: t" M9 t% ^7 N: E1 Z4 s- y0 i" x/ }
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
# r8 v0 }5 ~9 F; j  V其中ee偏心距! G6 ^& b$ F$ G0 J$ V
r基半径
- p" J! w  H, d. ~" }: _# wh 行程# X6 c) J5 P7 E8 Y( a: E5 S
na上升转角4 s- J. V- S$ W# _
nb上升停止角
4 v8 ]  l6 _6 O# ^- Snc下降角
4 h% @# F: j2 J( g0 X; ~在程序中下拉框中可任意修改。; V+ `; M: D- B% d4 g

: k4 O$ `/ V+ _[ 本帖最后由 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 )

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