QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve
4 G1 v* X* p* @2 I2 d5 G2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”( v) A+ L: ]% o3 M- v$ {
1.jpg
! K4 a" }: z/ @3 Z) t+ x
9 U7 K7 V1 N1 Y4 m9 m) p3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
0 q/ v& G: W5 G3 H  l7 e 2.jpg
( x2 d1 z. E( v5 h$ M% K
! o$ ^/ f. \8 U$ ?出现图示按钮.点击之则运行' o5 l  ~( y  ]* h2 P9 R. O
3.jpg 4 f. ^2 @/ B9 D1 K
4.jpg
( J- g9 h0 m$ U

% V5 d* Y1 |" t0 q点击取自..”- m: k7 a$ _1 t- s; W/ R) K0 b/ w
5.jpg
& @3 K* m& P! v" D0 A选择偏心正弦凸轮.lkj”,”OK”
7 l7 F( ~0 I9 h+ j) q 6.jpg
. F4 M4 e) A0 Z7 M点相对运动傍的”>>”钮,出现
! c+ P% M9 J/ ]7 T% Y
: s. B2 }* z5 v) ]* o2 F2 C( ^ 7.jpg
: d$ I  A1 w3 Y) N% }  l9 n% x" u9 J退出窗口,返回上一主窗口7 }+ z  q" w5 b" v% v
”Help”" O3 K6 m# Z4 d. d) t  Y- W' ~
8.jpg 0 F# P0 m( \& e" K
' c# H/ W1 P6 t( Y
出现函数支持窗口
. y0 Z4 v' [4 f! r绘制
  w" s$ [: |5 O/ `+ E 9.jpg
& L/ I( u! r) p% D$ [5 c! W出现一类凸轮图形./ z6 h8 {% z% d9 ~

7 w/ x2 o8 t7 C2 `[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?, P5 x7 b! O$ C4 A$ q( _
8 f0 O6 w2 ?# E& X
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
+ m1 Y0 z5 S6 ~' e- v用不了。3 {4 L; M3 c. N, R% P* n
提示:* [$ ]0 M) N9 z- H5 z4 p
    命令: -vbarun 正在初始化 VBA 系统...
) ~* m3 P) A3 A8 T/ \: S9 B% q宏名称(M): c:/curve/curvecad.dvb!vbacurve.main& a% w4 D8 l4 M3 h/ Q7 c$ W+ Z
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。; {& F5 c5 L+ e* c
没有返回去用过。但我想2004肯定没问题。
6 w% ?( S- ~' z% Z另外CAD必须安VBA。% q" e4 d* p8 \8 e& h3 T) D% ~* c
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。1 j" s$ O, X# ^4 B5 {
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。& R0 H1 ~  W9 K' q# I: e
其次我想普及,可一时操作后悔却没办法改权限。
0 P' F2 f& e- Z. ?; Q4 Y! i9 A再则同志们反应真的很冷淡。
$ Z: c: A! W2 O1 @: X% S7 p' F有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。6 _3 V  Y5 b0 D0 A  Z9 ~3 r9 N8 B) ^
那些个想画渐开线的,用上这东东还悉什么呢?: S1 \8 P0 K' C. q! \
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。" y% ]* v6 y( N8 |6 L3 D
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
" Z* y3 b0 f6 A1 l( }雷电波公式,呵呵呵呵。。。) u: S  A4 y: u! s# n# z/ d7 I
同志们捧个场撒。。。# ^$ M$ Y6 g6 _# i$ D. s7 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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
0 h( J8 F2 A( G- F/ g通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:) U- d3 x! m, G  p3 J4 V9 R7 I; O
李萨如图和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"$ j. R; m0 s1 f; x* e( d0 B! J
"0"/ t* z8 D! f; @: X
"0.01"
) ^& U; R/ W# {3 m"0"
$ s4 L6 |* S7 E" l: E* z$ y"2*pi"
  {0 l/ c5 b/ |$ P8 i"r+(r^2-ee^2)^0.5-r"# T/ W7 Z, }1 `. U! ~- w& z
"0"( L/ D8 S( `" ^. D' e
"x"0 j4 i' @0 E" K8 g
"1"9 G+ W% A2 w' s  L1 C6 B9 c
"1"
+ [8 u0 |9 M* K1 B3 G! b2 V4 a"ee"! M9 e" y# T3 ^
"0"
. R7 s0 h; s# X9 }"(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"+ ^+ Z/ e6 U' X
"1"
+ n7 D6 r( D' N8 E7 |4 Z"ee=1"
9 n5 }5 t. c. i"nc=pi/5"
& z) a. F3 n: y6 [8 C) i4 {"na=1*pi/5"+ ]# \6 p9 Q- D0 x3 F7 O
"nb=5*pi/5"
  W+ y' }. I4 v2 E6 O5 i4 m"r=18"+ ^' e: M3 P6 @
"h=5"
, A+ {( P0 s3 b$ o"---------------"
8 r& Z7 A7 G( M* s2 W; a" A  E"偏心正弦凸轮"% F! {% g. |7 M/ V0 y3 I
4 y; [/ i+ ~0 V" Z
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
( V, X3 L1 L8 R) C2 t7 k, z! ]其中ee偏心距: E. y) l# L4 ^& ~, K, Z$ O
r基半径+ D: J7 ?# z# b  y7 f
h 行程3 @  Y4 Z# ~" u( c1 n8 R, R
na上升转角( k% t! m9 t, O
nb上升停止角
+ J& y! m# h) U2 ~4 A) y9 a* Pnc下降角1 O- @4 y  ~( E/ x4 @' ?8 Q. d, v
在程序中下拉框中可任意修改。
1 x( @/ p: L  S$ e3 W
: I5 J, t( A7 v/ N[ 本帖最后由 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 )

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