QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
10天前
查看: 68009|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve; ~5 K6 g7 k# }9 U3 q4 Q  Y: s
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”7 P6 l1 K  h9 h4 E+ q! F( O
1.jpg * v, ?. f1 [: U

% k; ]3 K  B1 q% F5 F; v3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载- H7 W$ a) P! W4 B+ |
2.jpg / Z/ c9 n$ o* g2 V5 A
+ g2 s2 R" y; D2 _0 Z# [
出现图示按钮.点击之则运行
" S* k$ y7 A3 k1 a9 t$ K6 f6 t- L  ~ 3.jpg * E1 g: J! T" }8 z/ w- `* W
4.jpg
% m) d8 X3 ^4 V* X  ]! X1 G! {5 C

" G6 P$ s. A, k3 Z' G. ~4 B! X点击取自..”
) R" ~$ |4 U9 P* W6 q* B) S9 l: B 5.jpg
: ^" N$ |4 |) Z5 c2 P选择偏心正弦凸轮.lkj”,”OK”# W9 r. k$ S3 d( r; z) W
6.jpg
. m9 f# Z: V# G" {2 j$ N点相对运动傍的”>>”钮,出现5 k0 f4 v! O% u, L+ B8 m
/ T6 T- R4 L5 [( _5 H
7.jpg
$ \; @/ z2 i6 O; x- M) O/ f1 f退出窗口,返回上一主窗口' f4 v0 ^8 |2 c$ u' S
”Help”2 f# y) M( e* b
8.jpg ! x: S% e# n# _& Z9 i; O

5 P0 w! l) i- w6 W/ U5 {  i0 `: E7 z出现函数支持窗口+ l: [9 E+ Y% J" q8 s
绘制* p2 W0 }: t- K; `
9.jpg
  P& M1 |. Y4 `$ l" ]$ A. A; S5 o出现一类凸轮图形.! j  y9 H  ^1 J; A2 W" B& S

7 u. x) m9 W3 C( X6 w" ^8 U[ 本帖最后由 blackbird 于 2007-5-9 12:38 编辑 ]

curve.rar

998.34 KB, 下载次数: 4756

点此下载

评分

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

查看全部评分

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

回复 #1 scliukejun 的帖子

版主,请给我返流量哦
发表于 2007-4-4 22:38:13 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
7 [9 i, @; y  i2 I$ F4 _0 B& U0 }: T4 V9 ]6 n1 E& ^5 L4 N. 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  e& a& C+ L* b2 @. c% D3 W
用不了。/ [, O' ~0 q5 M) B4 B3 I; J2 [
提示:
* X) M/ c5 v4 z! I) [; i    命令: -vbarun 正在初始化 VBA 系统...
; d: f' \8 O6 y; Q- `宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
% D4 [" i+ r" G" t7 X  s5 m未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
/ a& |( R, R# m没有返回去用过。但我想2004肯定没问题。
- ?$ v$ l: C. x另外CAD必须安VBA。
& Z1 C3 x, |2 N6 @, P楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。: A0 j! A% s. Y: r; _/ j
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
! K! u* A. Q* v8 e0 z5 f& ~7 L( \" H$ X其次我想普及,可一时操作后悔却没办法改权限。
' o1 e9 \; ]  K2 g7 p再则同志们反应真的很冷淡。& s) b3 T$ P3 r; @: w
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
+ o, l* Q! ?. g( N那些个想画渐开线的,用上这东东还悉什么呢?: N# I  \# V. j# M
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。% J( M/ k6 r7 X
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
8 ?: \  J: P/ T, P$ m雷电波公式,呵呵呵呵。。。3 Z! v1 B! v& m
同志们捧个场撒。。。0 g3 X8 V% ~# r  R3 A' M7 e4 G
我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。5 N# p8 a$ }3 T0 A4 z
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 556

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:+ {1 z, X8 {! j5 A, }" D! w
李萨如图和4叶玫瑰

4l.rar

319 Bytes, 下载次数: 333

 楼主| 发表于 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  @2 v6 j/ L: C"0"
, g% s+ e( A5 M  r9 F3 e7 G0 e"0.01"
/ n9 n* C7 a) ]6 K) ~( |# M"0"
2 N* N+ z" x2 C" B. Q: y+ H"2*pi"
$ r- {- s+ ?/ i/ ^# ]" G$ c7 H1 V"r+(r^2-ee^2)^0.5-r"6 p: z& f; x7 {& _# J/ Y
"0"  b/ K" J1 [% @& ~
"x"" K! Z. O; K/ ^5 I  _) y
"1": P6 ?% x$ G& E% n2 _
"1"
1 P% E+ h& W! n& l1 Q9 X7 a"ee"
) ~1 B) s! s) z4 j"0"& f$ C6 f3 c, q1 b" W5 |) g
"(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") v3 `3 y$ |0 _
"1"
0 r4 |0 K7 y8 ?" }/ V# T"ee=1"& x6 i5 M5 ?* m
"nc=pi/5"
% s: g& d5 {0 ^4 }. [& q"na=1*pi/5": i. o' Q/ L2 y$ ^0 p/ Z, |: O' M
"nb=5*pi/5"
8 t( X  R: U! ]+ R3 ^"r=18"% B4 I1 T7 H  }  B, j
"h=5"7 I. J6 O- ~! q3 u5 `, E+ ?% H
"---------------"
- ~/ `7 I5 a8 s' p' m; H) b; V"偏心正弦凸轮"
4 H2 w$ T, V3 j: v, ^& q, ~
6 V' U$ g" h! v! ?以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
1 s, U, D0 R) @4 g2 b其中ee偏心距: U8 K, N. E9 I+ @( Q# t
r基半径3 e' J# @  V$ H% {. Q4 ?
h 行程& ]+ U! b4 `" Z* v# W
na上升转角6 W9 h8 W! k3 y( |
nb上升停止角- I  C; r8 V% W$ `! Q' A% U
nc下降角9 Q, i8 Q# j9 k5 i( \+ T
在程序中下拉框中可任意修改。
5 W" M2 Q, `2 ]# o0 O- }; `
9 Y9 i4 B0 x2 Y5 D3 g[ 本帖最后由 scliukejun 于 2007-5-16 13:07 编辑 ]

偏心正弦凸轮.rar

289 Bytes, 下载次数: 311

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

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