QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
6天前
查看: 70479|回复: 232
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve3 g3 C1 r3 t4 }2 o
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”4 [, [. q1 v7 y, o3 ?: R; [( C
1.jpg
7 {0 x  K$ g+ e7 H) f6 a% {2 B3 }) k; \: H& c  R1 Y' P
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
% f0 N, B8 n  L: y1 O+ s 2.jpg 7 X# w. A4 {6 T; \5 {

! p) L! O4 {. e* X4 {出现图示按钮.点击之则运行5 n- g3 V/ F2 z
3.jpg
8 e5 \9 ?0 l% J 4.jpg
$ A! u! r4 C' _9 i. Q' `6 y
% ?* U( c1 X9 B8 a6 E1 |& [
点击取自..”( m# y5 s3 _( J' _$ {% @8 \; f3 Q
5.jpg " G; J* c& Z9 R6 ?
选择偏心正弦凸轮.lkj”,”OK”0 @# c, [% ]: [2 i/ M6 Y
6.jpg / ~/ T0 }$ K7 C. K$ C5 a; f5 X
点相对运动傍的”>>”钮,出现8 C% P; t4 G/ d/ ~. A4 K) a+ F1 U
  {- a' ^  s2 Y- G& j' b
7.jpg
$ R0 i, n8 N, U/ L9 j退出窗口,返回上一主窗口
, h7 D( j6 @1 T' Q+ z”Help”
$ m: d2 a/ j# @8 a( k. h2 D 8.jpg 6 I+ P- M( \0 S! W  E; a

: B% I; ?) |& F+ K% `% X/ m6 T7 @* o出现函数支持窗口' k/ D0 Y# E! h' n8 B+ b
绘制' j0 z" X; G+ y9 r
9.jpg , ^4 i& e" {8 r  N% w* k
出现一类凸轮图形.
. h, L8 |# A/ E/ }# W2 n
, N' J" N* W+ J8 D$ Y, z[ 本帖最后由 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/ M- d# _- B; C" ~; B- [! F5 ~. s, E5 I& Q8 A' N- t$ ~
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。9 q$ X6 T( u1 d" S& u# Z: B
用不了。
+ w- c2 g" K- u/ @) H3 m$ U, f提示:
& c) f" B9 x- _    命令: -vbarun 正在初始化 VBA 系统...
2 p" c: I- q  ]# v宏名称(M): c:/curve/curvecad.dvb!vbacurve.main; \$ w+ g/ D" |, f/ X
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。+ a1 {1 ]. Z: x+ M$ Q6 a
没有返回去用过。但我想2004肯定没问题。( C$ }) \; {( t: Z  y9 m* y
另外CAD必须安VBA。
1 d3 X; ^, i* u5 }! o- U: u楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
6 A& V9 w$ [7 K9 |  T* z有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
- o  p( n! A! p$ w# Z其次我想普及,可一时操作后悔却没办法改权限。
, ?9 U0 h' k. p( X0 J再则同志们反应真的很冷淡。
& G0 _+ ~8 k+ T有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。2 |, H* P2 t( H* ]& ?7 B; N
那些个想画渐开线的,用上这东东还悉什么呢?$ O9 \1 s# S6 ^8 ~* w
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。9 u5 r& i( i' E% i' G
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)4 i% T6 F7 [! k/ A8 j+ Q4 C! ?5 a
雷电波公式,呵呵呵呵。。。. g  e! ^5 N+ W) M4 s6 J8 H* g
同志们捧个场撒。。。8 Q" }9 }. q! l. ^4 Z; |9 A
我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。/ G' p8 \2 _* f! Q/ d, w
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:
! ^7 b$ M3 g, [1 w2 A李萨如图和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"
( k* M5 m$ B- S$ }) S; ?"0"
! W2 @5 x' S$ A% \$ y+ @& Y"0.01"% U! @) }0 {6 Z: d4 X
"0"0 `& [; S: W2 k% d, G" P4 S5 r
"2*pi"2 }. S+ J  p# `6 e
"r+(r^2-ee^2)^0.5-r"' U3 p6 B! w, F/ w# r# R, |
"0"2 x; c1 q( }( o1 t
"x"" X1 t7 a. v$ m9 N7 m) c: K1 [! }
"1"$ m2 ^; W2 c/ o9 _! W
"1"% @$ _# _& H& B6 M+ K8 z
"ee"% t) C& _' X. A; {" |8 [
"0"
' @: a5 j/ @& Q6 M( i( L  D"(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"7 @$ N) @; @1 L1 i* z5 \, _- P
"1", `* [6 @- i# l  S$ y
"ee=1"& i: _. Q' w+ X3 `, U) v
"nc=pi/5"
. Z# ^5 l9 p  X& @"na=1*pi/5"
5 X& }3 L0 k+ t$ @/ E! ]"nb=5*pi/5"
4 t, ]0 E! y7 e0 [; K" o- Y"r=18"% e( _: `) J5 f3 r- Y6 A' Y% d1 c
"h=5"& }) `  \% j! f+ w% A, z$ L) n9 o( \
"---------------"6 V8 T1 f: p* V- \
"偏心正弦凸轮"2 T# E8 b% E5 c7 B7 c  @( }

3 C+ A% D# L2 u以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
. a( u  H3 r* ^  ^' c8 U其中ee偏心距
: j7 L  _1 s) vr基半径' \, ]5 C; i' z# e9 J' u  Z
h 行程4 M* m& E; {( k. @* L6 ]2 P: u* }5 L
na上升转角2 ~: d* }( S2 l: S( u# z
nb上升停止角
& K. y3 a0 q+ unc下降角
, M  `6 k% a' C在程序中下拉框中可任意修改。; b  X$ u. f+ e
. D/ K7 Z( ]+ g% N* m2 V
[ 本帖最后由 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 )

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