QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve6 T6 i$ c7 Q/ H+ A8 R) u
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
1 O; O- I, G4 \6 r% v+ _ 1.jpg / O) X  E$ j3 i2 {% r
  n& V. V& y. J& j* x7 b; ^: r) @  U
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
( ?3 \# Y3 Z  ~* x; ?# ? 2.jpg
/ s/ w7 R! ^! O8 c. U' ?) }5 S
# X2 p3 y) d& v! p7 R# r出现图示按钮.点击之则运行9 H+ m: w) G. W, k2 p+ j
3.jpg * X4 Q+ ~1 Q+ l1 F
4.jpg
$ T2 X2 o& G# v  z/ k* u
& W8 u. x& V3 ?4 G
点击取自..”' D1 d  R- W3 V
5.jpg
- i  V% x: i3 a选择偏心正弦凸轮.lkj”,”OK”/ V& U6 B7 D4 j7 |  D; Y/ V2 l
6.jpg 5 C* N3 p, J! t, a/ J% l
点相对运动傍的”>>”钮,出现$ z& p5 S4 x# ~: M1 K! Y& Q
# w, F5 o7 g6 ~" J
7.jpg
8 r2 e/ o8 G# _, Q- t退出窗口,返回上一主窗口/ |* }* ?% c: e
”Help”
  I) g# h+ t: r* T; Y/ X 8.jpg
" `% O  v. v5 L9 w+ P: j# S7 x
. [0 {1 Q1 o% g" t3 I出现函数支持窗口
# w4 L7 M6 E2 a6 |绘制
$ Z( U! u. k5 ?* Q6 @ 9.jpg . C2 E- n  e& W+ P- Q& O
出现一类凸轮图形.
% b* @3 S2 i+ f% |3 V9 m3 f9 o: S1 }7 Q
[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?# U3 L6 K/ T) A3 o! C/ g
) s7 o/ _: Q% i2 t& l* v$ 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 | 显示全部楼层 来自: 中国上海
加载了。! c. }! l. q+ p$ ?
用不了。6 F  Y. s+ L2 ]$ o2 }
提示:
$ `; l2 \: D; W6 p6 o    命令: -vbarun 正在初始化 VBA 系统...
! z9 X9 P. x7 Z& q, K8 Q+ o( L0 k宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
% V8 k, s7 T- U7 @未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。$ U# U* I0 [/ y2 P7 L' ^1 k
没有返回去用过。但我想2004肯定没问题。
2 G. }* Y* F: `6 N; O( \% A另外CAD必须安VBA。
  a( O5 |5 L8 V1 [楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。0 T- v9 O. S! n9 Y( h( X
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
  ?' E- g1 ~1 B, L其次我想普及,可一时操作后悔却没办法改权限。
* H# e% K* Y4 N' {再则同志们反应真的很冷淡。/ V# L: E& `2 {! l$ V0 G1 [& |
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
; }  ~' x; l' B那些个想画渐开线的,用上这东东还悉什么呢?
7 l( K! R" X& v比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
( Q9 ]- B* C9 G' v# E我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
" r4 w2 S6 x* ~9 A# ?雷电波公式,呵呵呵呵。。。
  `& w3 n! V7 @! K" c同志们捧个场撒。。。
" X0 H1 u* O1 d2 ]我给的可是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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
, V2 B* v; N# Q3 c" W通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:, f, d, F0 s( E, C3 [5 [; W$ z  [
李萨如图和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"
0 F" z/ h& N. d; c8 j8 s& l6 Y& g"0"3 |" D7 G5 u$ B2 X. d1 b' s# E* \' ?
"0.01": A& L3 N% r; A6 L
"0"
5 ?3 D/ o1 ]% q"2*pi"0 I, c6 u1 g1 r- y2 P* [
"r+(r^2-ee^2)^0.5-r"& H; e. C- E6 `, h
"0"
" \9 _/ o( V- r0 [8 Z"x"
) D0 \, c% j" D/ c- C6 \: ~  K# }" ~"1"$ {+ o5 L- r: n
"1"8 v" K! c3 r. h2 i" r
"ee"0 c" w" T! v. R8 S
"0"* o5 D! H& _. Q2 N0 w4 L" F  @3 b
"(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") l$ c9 ~& _- n- U
"1"' X. y" X% V" I" g; S3 O1 n
"ee=1") t* f- u% X# Y. ^
"nc=pi/5"9 @% q# n, q3 a- g  K/ C5 Q
"na=1*pi/5"; ]6 f( a+ E2 r. N8 @# C
"nb=5*pi/5"
& @! A6 |2 ^3 b4 o# M4 w  w"r=18"0 G: M# M! h  c' Z3 j1 `
"h=5"9 R8 W) L: r+ n& B0 i! S) A) ^
"---------------"
4 s, j! |9 B6 L1 S"偏心正弦凸轮"
3 Z/ j7 t) `, |8 D+ f! }# g( O  N# P& y- ~0 n7 @% C
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
  u8 W3 f2 r! L& [其中ee偏心距
' Y2 @% j3 ^0 F- L5 ^+ u& A/ ^& Wr基半径1 ?3 _0 ]' t0 o1 Z
h 行程5 i; c$ x; c6 s: A
na上升转角
9 m2 l% Y1 _" S- k; mnb上升停止角) q" L1 X) g1 n+ V
nc下降角# a0 F5 d' ^( V* ]
在程序中下拉框中可任意修改。) Y3 ?/ }+ b; x$ e/ B
- S: y3 c$ f" j$ i( h1 [* m
[ 本帖最后由 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 )

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