QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve8 y" w; o4 p, N
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”9 m# j; R5 Y( H% c: E3 k
1.jpg
2 G4 ?( n# }! s- I) A' L( o7 e- H. O6 @* z2 Z" \
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载- ~) F: H0 p# h  G
2.jpg
7 E3 t% U0 R! ]4 a) F8 @& A4 u
. x5 I# `8 J8 J8 `; q/ T  N: p出现图示按钮.点击之则运行/ G' `& c8 Y4 I& v/ ^- D# g
3.jpg
# |+ w4 a' a/ S& { 4.jpg 8 \, E+ C: P. {0 V* `& _8 g
, {( ^8 @" l2 D1 p! o+ L/ ^
点击取自..”* y9 i8 L/ H' s, e
5.jpg ; ^4 @# V1 e* ~( |  T) ?2 `- C
选择偏心正弦凸轮.lkj”,”OK”
; g8 |6 G1 H6 K+ S; R 6.jpg 6 s; ~" A  h# \- r3 C4 d
点相对运动傍的”>>”钮,出现: N# K) B5 F1 A  U

$ G. ]% M3 [8 J 7.jpg
0 b% b' g9 v  l4 W! z! _- }- F退出窗口,返回上一主窗口. K4 a# k: P' S! U  a+ G, a7 B
”Help”& ~+ H. a# F1 L: V8 Q! k# e6 P
8.jpg * k7 b0 i* p( Q
$ \$ g$ ~* j. b
出现函数支持窗口
7 S3 [; t) q8 _# @绘制: ~, I7 m1 a0 G7 L
9.jpg # m) X. r, O7 \) `% K, ^' @* N
出现一类凸轮图形.4 i7 ]7 ~. c- N$ \
/ E  `' s/ F$ p- X& M
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?$ X( t3 v# V# K1 S4 a

: M! f' j( r  H不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。, `: w; M" }8 X3 D" z, g1 o3 O
用不了。! \0 _5 x, C* ]; h: j  o( d
提示:* D4 r! `. F, R1 F+ [
    命令: -vbarun 正在初始化 VBA 系统...) n0 X& c+ B/ d  F9 C" {
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
; I1 h0 h/ Z; b3 X4 ]* J未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
8 X% t0 Q+ V7 A# u! D  ^没有返回去用过。但我想2004肯定没问题。
; ^7 q. A) V$ P0 D' A8 h另外CAD必须安VBA。
) U4 [8 ^' A  S$ B/ `楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
% a& e, K9 n# I% \/ Z有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
  V5 I2 h! j9 X) E其次我想普及,可一时操作后悔却没办法改权限。
3 e8 H+ p& u0 H7 Z! |3 }# Q+ H8 }再则同志们反应真的很冷淡。: N  {2 \% i/ c
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
( K. h  f5 y$ g# `那些个想画渐开线的,用上这东东还悉什么呢?
- p3 B; W+ j* p# q3 d9 {比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。( r0 Q/ R6 w8 z$ G+ x7 e  m
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)& y/ L$ y9 L" l; Y8 s
雷电波公式,呵呵呵呵。。。
% C' |" L- G" w) r同志们捧个场撒。。。
2 r  q+ O+ S/ @  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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。7 h0 I+ h8 k  E2 V7 J  L0 _) r2 A
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
% F) }/ U) d/ }/ p) I李萨如图和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"
$ a8 r7 u2 y6 i, E"0"! C# Y+ ~, J8 S* o" T! c
"0.01"
0 ?# h6 i; c4 F& \4 R"0"' G( W1 j, R& \& x
"2*pi"% j# D% j% z; E5 \/ N
"r+(r^2-ee^2)^0.5-r"- G& U, D5 v: u" ]/ c) `6 K3 P
"0"
0 P; A9 X/ v( r7 @: e"x", p3 k3 c& [) i, @
"1"
7 l: c/ H6 }/ e0 T& A1 z"1"& D" Z* x" |/ d2 x; e( j; R
"ee"
4 ]& x* W2 e! e0 \0 v"0"2 L1 @/ f3 V# @8 b) i! H
"(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 G/ M, U8 c7 p% v: A"1"
9 i, ]) }+ m# q3 t"ee=1": V+ B0 o. F3 m7 ~# M  ^
"nc=pi/5"4 v' n  r% |4 |7 D7 P3 }: [2 C
"na=1*pi/5", s  E5 ?" ]9 s8 E8 X+ d8 x
"nb=5*pi/5"0 v, V' M4 l3 f6 ?; D! y$ m2 B0 l
"r=18"8 o) P4 t5 t5 p- Y- j0 z( u& p/ r
"h=5"9 w3 q4 t: G! v7 |! Q! U
"---------------"
, P0 P- U4 y: ?* H, U* E. U"偏心正弦凸轮"8 n" ^" o" o7 [  z

" q# E9 Z3 c$ l. v; u$ {+ r5 G以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮1 B: C0 E- T0 S- ?! ]! n3 b7 L6 Y. B) A
其中ee偏心距! V1 R( t9 N( Z$ _/ f# {
r基半径& Q+ u! Z! i% P( L
h 行程
. D* ^/ t( ~: H; i  p2 Q: L% lna上升转角* M: X$ Q5 \" C& h
nb上升停止角
4 s1 n6 r6 n7 ]4 ~2 z3 h6 Snc下降角: [( r7 o1 H! G% b& x# s7 C& M
在程序中下拉框中可任意修改。
4 Q1 A% z% P# W; W( ]% m& m
! |* W$ y! O# G5 z[ 本帖最后由 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 )

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