QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve
2 N( D8 Q% a) H1 T% y5 q$ }) d6 {" \2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”/ s6 v0 O0 |) o' \% s
1.jpg ( l7 j2 X: {( g: j  B' ]# `% x

: ?' l, x4 ]8 y- Y( D( {3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
, S5 o. W6 t/ w3 J. Z0 u 2.jpg
. U9 u/ R) ]! F1 |; L9 ^: I- O( d7 F5 V7 v6 V
出现图示按钮.点击之则运行3 l  g: G" X9 h
3.jpg
, n+ V4 B: E! ~, {$ X 4.jpg
: n+ }' Z$ S) u5 _% f" r5 c

; D8 V: h: {7 F  |, z点击取自..”
: `6 z1 V8 X" k5 Q: Q& O" s 5.jpg
* Y! e3 z7 t3 u4 o6 @选择偏心正弦凸轮.lkj”,”OK”9 U# u& d  O8 O3 M' q, g( G
6.jpg
* _$ ]" G$ g1 G% k* n. w点相对运动傍的”>>”钮,出现. d6 @6 I  Y* s; M  }9 }1 v
" T- L$ R) w; l
7.jpg
5 G( q6 r4 R& }: m; S) I0 s) p% M退出窗口,返回上一主窗口
% o5 k) |8 a0 e6 i”Help”) c2 `0 {, N5 l; D" y1 k5 |
8.jpg " u' N5 a7 S' `0 ?, e% x
1 y( u: {/ @: l" g+ G5 M) B4 }' O: S
出现函数支持窗口
- _) h) Q! T! J, F0 a% k! Y绘制
3 [5 D/ ?- A( y$ Y: ^6 j; r 9.jpg
! q- V2 H* f8 S3 y) U出现一类凸轮图形.
  H# k: z6 |: u6 Q8 V- g/ n
6 m9 s( T7 W; Q0 o9 Z4 W0 _[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?" c$ t* v5 O6 A
( r. m6 x8 _6 A1 Z% e" 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 | 显示全部楼层 来自: 中国上海
加载了。
' n, H. }0 f' y; q0 @用不了。
1 u3 |! J# S: t9 h' X2 \& ~提示:
1 H  q; @# t3 o& M- U/ J    命令: -vbarun 正在初始化 VBA 系统...
* D+ y5 n$ o+ m  A7 ~) [/ a; L+ k宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
+ ]; H: p" p+ t$ L未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
, I) i# v$ q; O/ B4 O  ~没有返回去用过。但我想2004肯定没问题。
$ \' v2 ^9 o1 i# I) m另外CAD必须安VBA。
! V: m, d6 |% @2 @: Q楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
# C8 v' a3 J: x/ ~2 n% v$ N有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
% R+ ~9 z# e  }其次我想普及,可一时操作后悔却没办法改权限。$ G2 a: x5 F& y& r3 x
再则同志们反应真的很冷淡。9 Z& r* r& Z( s& I: Y. p* x: q. t
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。' R* F( [  x  J8 e- t7 n: r
那些个想画渐开线的,用上这东东还悉什么呢?$ t7 F/ {4 E5 u" p( H5 J
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
9 @, r: A0 G8 q9 X我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
* g  W( e, H* u雷电波公式,呵呵呵呵。。。
5 G4 F0 ^% o7 A/ e同志们捧个场撒。。。6 W. t; I+ n9 p9 }9 y
我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
) [# m  R" \2 A/ }3 k通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
% Y* N& q! E' S李萨如图和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") k1 a, Q/ j8 L' }9 r# `( C% c
"0"
! f% t( R1 }6 Z' O"0.01"
- r0 b* x( g" a, q1 c8 L: a"0"2 U8 c8 o9 s' v2 @. W
"2*pi"
& g/ W6 j- t4 J"r+(r^2-ee^2)^0.5-r"4 l7 a; k- W; \
"0"4 M3 A: U" _1 y3 I- s
"x"
/ h9 l+ N% Y; u0 S! T"1"# G9 r2 d: V  Z' j
"1"1 W# w  o) E/ K. {% ]5 [
"ee"* @' ]1 s' u; l3 V# D  `
"0"& q+ j" h5 N) X: x3 h( ~- U. o
"(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"
# s' ~. c. J" K+ u"1"
1 p. U5 s# H9 c6 I4 X! A; H"ee=1"' Q$ D+ ], l" e, d/ n; c. y
"nc=pi/5"
) h6 a& A8 s" |  p+ ?4 Z"na=1*pi/5"8 @7 T/ B0 Y+ ~2 U
"nb=5*pi/5"
$ k6 y. b" ^7 Q5 F# U"r=18"
! \6 U) [! M: E( G  }"h=5"5 P9 a& A# r2 d: s/ z9 K* c  z
"---------------"7 d* \' n# A; e% M: \" l7 N& k  B1 c
"偏心正弦凸轮"3 y/ Q* d- g: U# v
8 O9 r+ x" A+ q2 q7 p8 P. C
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮$ |& U7 f3 k, Z( K
其中ee偏心距1 {; Q  \- p$ `- i, p1 Z
r基半径
8 D7 \% N& B: J3 ~$ Ph 行程3 x3 @0 c0 t( E+ q' _, T
na上升转角, @: u# i* W2 `2 g( U- a
nb上升停止角
# ~" U" ?" l. gnc下降角
; J. j, V# r& x+ o9 u# y8 x* K在程序中下拉框中可任意修改。
- D! b5 [# X. v% n$ j/ d3 P
5 Z: ~4 H3 ?8 D5 Z5 k$ a+ B[ 本帖最后由 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 )

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