QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve1 S, M- P+ _8 Z/ ^0 O+ ?: G* o% s
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
9 V  m5 P  Y4 X 1.jpg 0 `. a* ]1 P8 `# o7 z
: Z, B2 |9 a1 v) p1 q* U4 Z
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载6 [2 l# R2 m9 Q, N$ x0 Q
2.jpg
- v: m0 c( U- F3 l
) Y! v  X: ]+ }: K5 `& \出现图示按钮.点击之则运行
" `& Q& _$ T' K1 W# n9 I 3.jpg
9 Y1 d- e9 |9 ~! f 4.jpg 0 b4 [1 [) b& `8 J' |" X
3 g# F4 {" r' y  g
点击取自..”' e7 X8 ?7 N' m- n, U% `
5.jpg ( y; C; {( U+ H- O, K* ]  [; {
选择偏心正弦凸轮.lkj”,”OK”. q/ ?9 y& ?  y( L9 T
6.jpg
( X+ u& M# E4 H7 p! _+ b7 d% F点相对运动傍的”>>”钮,出现
, e1 }0 d9 q$ V8 \; J( K; A- r& V- K3 w2 B; p# c7 c2 L
7.jpg
* N1 F5 B" R7 C% l退出窗口,返回上一主窗口. D8 W/ `3 j3 I. |* L) C7 L0 M
”Help”% s: h+ m5 f' N. Z' ~3 N
8.jpg 6 t# {$ K+ _' Q* K

( P/ ^$ O0 a1 M" S9 E# y! X出现函数支持窗口6 y+ H% I# H6 K
绘制
' _, m$ m. R" {0 x! ^+ {' L 9.jpg
0 O$ J1 e+ X6 F2 H4 [  G0 |出现一类凸轮图形.
/ T6 b* A1 {1 @9 _( i2 v' p( X% W
, [% x8 S  L8 V/ W  f/ 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
9 G  q  Y% }, ?; ]6 x' t& Z
6 b% N7 @+ P: D4 D不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。5 d+ Z5 f7 h# R
用不了。& j7 j* w8 W4 j2 |1 N4 I, F
提示:5 r3 V; ?! t9 Z1 h$ d
    命令: -vbarun 正在初始化 VBA 系统...
4 V$ S) c+ v8 q9 r宏名称(M): c:/curve/curvecad.dvb!vbacurve.main5 N' J) K7 K% f2 ^3 L8 t3 S& {& J% g! G
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。* I: t: ~/ @. b1 r7 Z
没有返回去用过。但我想2004肯定没问题。
, d% u  U4 \4 e" G2 I# D; d另外CAD必须安VBA。3 E/ \7 N8 y% y& j7 i
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。6 N7 [5 N# |/ b7 i3 B" v8 w' {; Y
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。* ?# J, O8 y; q% @$ W) F- I
其次我想普及,可一时操作后悔却没办法改权限。0 A; m, @7 z% I
再则同志们反应真的很冷淡。
' C1 D! ^4 L3 r' C9 N有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
& R0 o# q* d) x, M/ n* o% V那些个想画渐开线的,用上这东东还悉什么呢?
* j$ |1 g" \. m1 a; R比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
. ]) f: m  Z- C$ a8 n我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
6 {; W+ i$ Y; K- e雷电波公式,呵呵呵呵。。。
5 `+ f6 |+ Z1 A7 O+ G  x同志们捧个场撒。。。
  x9 s! G* T0 t3 d/ v' [, [我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。; q1 A& I, m# i" _: G$ o$ t' \2 J; f
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
& ?/ R/ r7 M5 P3 g0 K李萨如图和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"
/ m: P+ B5 B6 m' i, x3 n1 m"0"5 S' @4 X" X% d7 l' G
"0.01"' Z0 K# x5 s/ e9 G1 l( ^+ V& C
"0"
# U( X, Q9 v9 B  }"2*pi") H! D4 T# r7 ^' c- j
"r+(r^2-ee^2)^0.5-r"
. W- o' ]0 @7 {"0"9 \; C6 j0 g6 m$ z( T8 O% S6 R
"x"! j' @" {% B/ S0 @
"1"
5 |) ?" f' f1 N5 u6 ]7 t"1": D; ~! a9 H. ]6 B. ]* J) f  I" }/ h0 a
"ee"5 A1 r$ d7 B, L& i- Y; h! w$ ]
"0"7 M4 F; V* T5 p3 }
"(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"1 z5 L3 e1 U0 s! ?- ?2 D. r" b
"1"
* t5 w7 W  ~  X/ z4 a# n"ee=1"" ?& t5 {) {% h* N0 g4 R# [9 d
"nc=pi/5"
3 g6 c7 u) z5 f( m"na=1*pi/5"
  L/ h/ ?6 A) m8 D5 @3 j"nb=5*pi/5"* l2 e9 |9 Z+ n3 s7 [' t
"r=18"
8 b+ Z# E' }1 M8 K7 X6 j' g+ u"h=5"/ O  D, }* j& S' h
"---------------"0 ], [) H6 K' Z
"偏心正弦凸轮"- N0 s9 E" @: G0 m1 V1 l
. M6 \1 a# \5 v  l
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮/ Z0 `& s- U' E0 P6 g- g, q9 {
其中ee偏心距! `, L* o( d# M  M4 J2 G* @
r基半径' j5 ~- I  F$ x7 U6 V
h 行程7 k! `  L6 U- F
na上升转角- i/ F4 Z- P" ~: u# p) F
nb上升停止角
2 @# J3 t; L$ K* ync下降角
% a) q8 C" K' u在程序中下拉框中可任意修改。1 x8 I2 w) r/ }" H( v- G

3 D  ?' C0 B0 j% G6 p[ 本帖最后由 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 )

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