QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 68104|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve/ l6 C" V3 f/ D# z' t, U
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”  L( A& W: G" C9 N
1.jpg
7 ^( r- V5 L- I
. A& t, B5 N% ]! L" m8 l) |$ W, {7 n3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
! ]9 t7 u: [( ] 2.jpg
% G8 z! i/ R* X+ W' h
, F' i2 J, ~0 q/ L  e, B8 u1 w2 L出现图示按钮.点击之则运行
. Z9 z& E% B+ K" t4 z/ i 3.jpg : S6 e8 c% ?# k. ^
4.jpg
& B) m& G# X8 j  x3 z
% U* d* M9 a6 e. o& y, p( U. g( b5 B
点击取自..”2 N% g; e4 R+ E
5.jpg
# m0 v4 C4 z2 [4 G  H6 P- n选择偏心正弦凸轮.lkj”,”OK”. Y& n$ U, C  i6 n) x3 u: F
6.jpg
4 a" U# k& w8 R! _0 ?# X% b5 `( B( a点相对运动傍的”>>”钮,出现7 U; ^: M: a' R, Z5 z6 z
3 J" b. g6 }1 \# s9 I
7.jpg 9 o6 z2 z( O$ J+ O! B* _) o
退出窗口,返回上一主窗口* X" K& Z0 X8 u* |' S
”Help”
4 Z9 G6 N3 d* m: \5 I8 e 8.jpg
7 q" M. U" f& ?  |% k- l2 F9 I! L! z1 F/ W1 t0 C
出现函数支持窗口) L& o7 l! R+ H  d8 K: [2 \
绘制- v4 {- }8 r7 M( o
9.jpg . b6 A6 f0 M/ C3 \
出现一类凸轮图形.
4 x; s3 g1 P! v- ~0 ~* E
! f0 D8 u3 A' {' t1 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?* J+ i4 e0 x. y+ \; j& N5 V1 [
) F; g' M; }4 H% l  ?
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
8 C2 l( b; E; h; q' b9 c用不了。+ h9 |: h2 U: G7 W7 Q
提示:* [- Z+ b( w- M$ m- h4 k
    命令: -vbarun 正在初始化 VBA 系统...* X% j9 m& p2 ^0 N
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main  e$ D: W& l" |; [# d+ ~
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。, |9 T3 E, R) T/ _# p
没有返回去用过。但我想2004肯定没问题。
' z; h& i1 T1 z& `另外CAD必须安VBA。1 Q$ A# J7 K* w* ?
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。6 d1 ]3 t2 u. r' ^3 y+ h( w
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
) w! {1 K3 u! N( z其次我想普及,可一时操作后悔却没办法改权限。/ ~' g$ I" m9 E! p4 |: j5 n
再则同志们反应真的很冷淡。
- K! Q0 G$ i. S4 }: R有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
6 [* b# @5 Y& q& H1 k) u# _那些个想画渐开线的,用上这东东还悉什么呢?
; t% ^3 h! j. `( ]比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
  \/ c7 F% u8 V4 v& s我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)* D! E3 N* Y0 }: @
雷电波公式,呵呵呵呵。。。  l# B6 w; N! W6 j. y
同志们捧个场撒。。。1 \+ u) n) v- I8 U7 S2 H/ l
我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
! W9 ?- {! z/ Q通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 556

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
# ^/ l0 N6 ~. q" ~3 U李萨如图和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"
' h: v+ _8 L* U: g& F( }4 m1 W# C3 B"0"$ d( [4 h! k+ H! p- ?: M$ N2 X
"0.01"
& D* h0 ?$ y3 F* R2 S7 d"0"0 m7 d) O+ {. s, R
"2*pi"
8 J6 O# n/ P; o; D! \"r+(r^2-ee^2)^0.5-r"
, O6 \- q  c$ {"0"$ w' B( M5 [" K3 b+ F5 q  V
"x"1 M+ C* E+ {, N/ O7 U+ y
"1"
8 |. f  x% X! K2 Q  u& Z"1"
1 q! |4 l4 f* S  m% C4 o, B"ee"
+ C, D; C& V! `; K2 g8 ^8 m, S"0"( f, `" W! |% g& r5 o6 |
"(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"/ M9 H5 H! i+ J5 [% h0 T; L+ R
"1"
' S( d  G+ [" m"ee=1"
" i0 D1 a% k3 b0 z1 J& m& H"nc=pi/5"  F' P, s8 l, Z& Y- T
"na=1*pi/5"+ Z2 b* Q( O- ]8 ]3 r6 G7 @
"nb=5*pi/5"
7 l/ T, `- N4 B& f9 E9 x2 R"r=18"
$ [, e6 e& M( n"h=5"
8 m; D, {- n* r1 [, ~# O"---------------"' n% E) x4 L) a9 S" z
"偏心正弦凸轮"7 _$ G; y, {# }9 Q9 o! `7 _; M* c0 l
7 e: C4 n7 `% [0 h, W7 C
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
% Y! s: ^5 E+ {9 V$ d: n5 m其中ee偏心距
( K; C& U/ G5 _9 Rr基半径
% G$ G, E2 P( I+ l" uh 行程" B1 T( {* a$ K. u0 }# Y+ m
na上升转角- r( n* @0 J( H4 C
nb上升停止角
& @  s3 U  O1 M/ v  O: qnc下降角
5 u' [4 [6 A% G% S' ^  }在程序中下拉框中可任意修改。
$ q6 c5 ^0 }2 D! t+ T1 i4 {  Q3 ^( s7 g3 N( f$ M" j! q6 U
[ 本帖最后由 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 )

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