QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve8 d% U( B! c% r' G
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
9 s( v' A: y( d6 E4 E2 W 1.jpg
$ `1 e. g2 H0 O1 I( `
1 ^; e7 o* W9 l) Q& @  I0 [3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载0 j$ s) @" f* D- U" a! _
2.jpg 1 Q$ Q& M7 P* i$ E2 N9 j8 U
6 r* e* y1 g0 j
出现图示按钮.点击之则运行# w+ w+ x% _5 {( e. J
3.jpg
) D" S% |9 m* u 4.jpg 9 b; c( r' a  F1 ?7 O" s
# i  ~7 f' o4 g! f
点击取自..”( @+ }/ k' A% K$ N9 \
5.jpg
! D  I4 C/ z1 H) i选择偏心正弦凸轮.lkj”,”OK”. a( ^0 c# m2 Y9 ?+ V9 R; r' {8 Y
6.jpg $ G# @& [9 Y# F1 B6 V* ^# H/ H
点相对运动傍的”>>”钮,出现9 [4 q* R" w4 c% G

, w7 o1 v& q& n+ k/ w) D% ^; h 7.jpg 7 j& ]* r  f3 Y- E7 Q8 Q
退出窗口,返回上一主窗口
  r! Y& v! F) x  j3 J6 Z”Help”
4 K: ?+ Q4 a; Z5 |0 c4 K 8.jpg
; q8 L! S, Z  V% a) e  X* b" z2 d% w; s* v3 p0 H; B
出现函数支持窗口, S- T1 {. Q: _3 f- n9 G/ F5 H
绘制( |4 K4 r$ V, c$ ?
9.jpg
  m1 \6 J5 }( q出现一类凸轮图形.
+ m# ?" `9 v8 {/ q+ c% Z4 c! p/ O" [; O5 a/ W- ^7 A
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?) o* X' O3 I6 Z

+ G& {; G4 F1 a7 F4 ~2 E) J6 @: F不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
) L  t$ n1 k# P* d) Q$ j5 a3 B" `用不了。
2 P" {+ ~3 u/ ^  L+ i提示:
2 B- x5 _' I7 k$ y, V    命令: -vbarun 正在初始化 VBA 系统...4 }" O9 s2 X' ~  Q2 }
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main: B% V+ F& e9 R$ U# p$ r+ w" R& Y
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。1 z/ T3 K+ X0 _; Z, ^' C
没有返回去用过。但我想2004肯定没问题。! Y$ u. B/ @1 j& a0 |
另外CAD必须安VBA。
* q3 E& v9 \* O! D$ t7 Q) B楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
0 x( C( G: a) x# }. U有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。! X) T/ U7 j5 }8 Z5 K2 @
其次我想普及,可一时操作后悔却没办法改权限。; v  @/ k9 j2 [6 V3 Z( U
再则同志们反应真的很冷淡。& _0 ~2 |" r# y
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。& r5 C1 E# q  L2 `2 ^( l& ?: W
那些个想画渐开线的,用上这东东还悉什么呢?
9 I  X5 f) b* b! U$ y1 @比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
, c. r  ^- E; O9 ^: b5 w7 E我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)$ d& r  N: v7 T1 w+ w3 k4 ]
雷电波公式,呵呵呵呵。。。
* t) q+ e0 D' G; v: n同志们捧个场撒。。。
* m( M+ o& B" s- m2 m我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。6 c+ \2 l$ P1 X$ n" h
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
% q- Y$ {% e7 P2 |+ m& d李萨如图和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"; Z6 t3 ?. [" \, N& V  ~6 b1 K2 Y
"0"
: @6 h1 o$ l' A8 P3 _"0.01"
1 J( Q; e3 I& e% f"0"
3 J7 s9 T  Y" k  D% I6 W& E"2*pi"3 Q. }6 [7 F6 L5 B- e5 Y
"r+(r^2-ee^2)^0.5-r"
& @, a, f: u4 {2 t$ l"0"
7 C4 g. ?0 G+ Q7 `2 ^% n: h"x"1 C4 J8 l: g4 w# U
"1"
; I- q; L' q! n2 ["1"
6 ?: j2 z  W3 W! ]. ]) u"ee"
- a+ _* O6 n) q/ b"0"
' h. n& D* k  [% w1 Z"(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"' [5 |6 x( U: L" }: W
"1": S% }2 e3 Q" v4 G$ D+ y! _' b+ |
"ee=1"
" h8 h9 U" d$ F! `3 G- i3 p"nc=pi/5"5 ~/ s0 m) z0 [
"na=1*pi/5"0 ~: h  K' @. W; T
"nb=5*pi/5"
  q4 R. g: c; F) ^# _"r=18"1 G' Y( W7 w* x: l3 z
"h=5"& F; d# E. h2 O- y% |, `) u+ `: i
"---------------"
8 R7 F+ E3 P0 o- V  n' e6 q  @"偏心正弦凸轮"; b$ t. z8 M* H1 `) r

. M6 f; Z& G- i& F以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮; D$ I! p! ~, V0 f
其中ee偏心距
& F) F# t( @* y% h# pr基半径6 D/ l+ P- I$ q, R3 s; L
h 行程2 s$ ^! |3 k$ x. ~7 d9 f8 M0 [
na上升转角4 c5 x2 d8 a/ S. r. j$ i! e
nb上升停止角
8 ^& x8 `# k* q# @nc下降角
1 H0 k( u% u" c5 c* l在程序中下拉框中可任意修改。% H5 h$ b- B: b8 i

0 ^$ U" f  W  {( t  S* 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 )

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