QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
2天前
查看: 72258|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve
& d) z, t+ O' ^  C2 C5 x& Y2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
( A( |5 N8 P" a 1.jpg
* q. L7 m  n* r3 B' s+ ]% P1 t, a1 n! a0 t! ]
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载/ e  o' [0 C& n# L
2.jpg
% `# k0 F* I. n3 e
4 D1 w6 W8 x1 U1 F+ ^3 [, N出现图示按钮.点击之则运行# e" u) u4 n" M' ~6 C
3.jpg & c) U8 Z. o( V  r+ r
4.jpg
" A/ x+ I8 S+ m  o- O" T$ O
- v* {# q1 g- Z! F5 f
点击取自..”9 m! w' N* C! g# b1 x5 _% z6 L  D5 w
5.jpg
+ R# t# S, t% v$ L, W" G选择偏心正弦凸轮.lkj”,”OK”0 a, H) |" ^- I
6.jpg
( T& s. B) b5 _: M. P点相对运动傍的”>>”钮,出现" l& w: A* i" D4 M' M

- r* S8 q% R" V 7.jpg
8 v3 ~6 a" O" [6 A7 z# X% X6 j* @4 U退出窗口,返回上一主窗口
. Y2 K! Y6 o/ O; c”Help”: t2 w0 p. L1 s" `6 [" r
8.jpg
7 Y0 f* f; C- ]; G; l3 b
; k' {$ v- C5 k' ~2 E& _* Y出现函数支持窗口
7 z0 q. ~& B) K+ t5 H6 |绘制( C6 m1 ~* [; T' j) v/ E
9.jpg
# w# L- V% K) F出现一类凸轮图形.6 h! U8 W  B3 x) e; P+ x

5 p& B2 Y: H2 t) ?[ 本帖最后由 blackbird 于 2007-5-9 12:38 编辑 ]

curve.rar

998.34 KB, 下载次数: 4761

点此下载

评分

参与人数 1三维币 +5 收起 理由
blackbird + 5 奖励!

查看全部评分

 楼主| 发表于 2007-4-4 22:30:36 | 显示全部楼层 来自: 中国四川成都

回复 #1 scliukejun 的帖子

版主,请给我返流量哦
发表于 2007-4-4 22:38:13 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
# d+ p8 V6 x. s( h, f6 t, G) p( |) d% {& D- z$ m* r- G! d" K) q
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
% Z" o2 ?$ h3 |( G: {. f用不了。
; b0 ^# Z1 ]3 p2 K* c) K" A提示:1 ~$ f0 d$ `7 r, R
    命令: -vbarun 正在初始化 VBA 系统...
4 x  Y2 g" Y1 l: |% s& X宏名称(M): c:/curve/curvecad.dvb!vbacurve.main! W% I/ R+ f1 x/ K* h  l' F
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。# J/ |1 b6 N& D- d  s3 Q
没有返回去用过。但我想2004肯定没问题。) {/ A2 D7 C* A$ q0 M4 s+ t
另外CAD必须安VBA。3 }( ?, U$ X/ R. X
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
7 {& i% o( N, w, R' u4 L+ P& O2 }有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
/ D& }5 A. h0 V$ Z, L其次我想普及,可一时操作后悔却没办法改权限。
' {9 N9 }& I4 C  o4 e9 O再则同志们反应真的很冷淡。
& Y- f6 r2 R7 C& [  ~有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。# R4 O6 u# ?5 k8 I) O* ^
那些个想画渐开线的,用上这东东还悉什么呢?. ]& k# c5 I5 ^+ Z8 H
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。8 l0 C2 ]- r4 F+ E/ i$ i9 W- f
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
, g& Y- U7 |# K( E' V, F  Y雷电波公式,呵呵呵呵。。。& v7 J! T. X; u
同志们捧个场撒。。。
( z/ e- I% J( \6 I我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。# I, v5 V- \. E9 p' c3 c& t, @4 N
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 559

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:+ r/ c$ D" ?! S
李萨如图和4叶玫瑰

4l.rar

319 Bytes, 下载次数: 336

 楼主| 发表于 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"
$ i( x+ j2 i! I: p% d"0"
+ V* M% V2 }: d7 l0 a"0.01"9 h# l1 t: o( ]9 r8 D* H2 P+ R
"0"8 ]( K4 b- ^# p$ {/ ?7 t% N. Z
"2*pi"* K; E- i& P. s
"r+(r^2-ee^2)^0.5-r". H) }  a7 _2 O4 k5 g
"0"+ K2 X2 X% {( b' G) u* t% d9 J
"x"
6 o/ F( o7 K) H7 Z9 m% j1 ~. \"1"
! S; ^& m; \# J) c) {"1"$ O0 K- K7 d0 p7 _& n0 a
"ee"+ D& y9 E" @1 Q$ y" |1 i
"0"
/ n7 Q! Z0 k* L6 U( Q0 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"# {$ O' ^: N: `9 @& X1 A
"1"
/ v: m6 m7 D- u9 F% f# B7 I"ee=1"
7 C  P1 k7 ^6 Z8 Y  _( L0 T2 ^: _"nc=pi/5"
' z% j$ c' h& S, D& Z3 k/ {"na=1*pi/5"
5 P4 I& t+ D4 `7 T* t"nb=5*pi/5"
; t7 v: S. {. [% L. W"r=18"# G9 N3 N$ z$ V. |' H
"h=5"7 o. y# F- O! I2 i$ ]4 I
"---------------"# R9 l7 {$ C' y  i1 f
"偏心正弦凸轮"
# d* T+ O( `- |) q( V
) l# E- S/ m# |. E: Z以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮9 l* @- |" k+ V
其中ee偏心距# D2 `; O; z$ s9 t7 |+ P. F, O
r基半径4 I" f- e/ p9 h4 _1 l
h 行程) Q7 {2 ~+ B' G9 Q: s* S
na上升转角
; e  x+ m$ y0 h- W, ?6 inb上升停止角
5 k  l5 q. P1 p! m3 A# pnc下降角
1 U7 ^+ K  Y# ^8 O9 X在程序中下拉框中可任意修改。) M3 r. p8 |- {1 d) F2 S! ~6 `
3 J( p0 y$ l7 P8 b; [& p' ^
[ 本帖最后由 scliukejun 于 2007-5-16 13:07 编辑 ]

偏心正弦凸轮.rar

289 Bytes, 下载次数: 314

发表于 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 )

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