QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve
  X- H/ s6 J$ C2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”2 F- w! B$ }6 j  R1 k" F4 d: Y, E$ n; _
1.jpg
/ s& s, L+ }4 j3 ^" Z7 B, f+ V  B! O# `, m& @9 o) D: m
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载4 W, _; y4 h3 Z3 X/ m, Z+ c
2.jpg
/ s/ E5 c4 H0 H( g6 b% f/ t& V$ V% T0 ~0 ?" D. E$ p2 a
出现图示按钮.点击之则运行# h8 N" W' R6 g9 \6 l- t& b
3.jpg
$ B/ Y! }7 [! j2 Y. c& Q, s! V# e4 R6 ` 4.jpg
) t0 P9 n( k# V' e$ B, z

) X4 x# j! y8 P/ H0 U" w# A点击取自..”
7 [3 W$ M$ f# N' Y 5.jpg 8 a2 s0 m" h  {2 N+ ?; ~0 _
选择偏心正弦凸轮.lkj”,”OK”
9 W1 X, f9 `4 O' p) O$ u 6.jpg
* c3 ^" \  U# R* I3 U$ I点相对运动傍的”>>”钮,出现
1 G! p  j$ x/ D$ k* G$ b  @- Z. ^2 l4 d9 b; r1 P2 G5 y
7.jpg 5 k; B9 W  I9 h
退出窗口,返回上一主窗口
' V: K$ H% H7 C1 Z  i”Help”
' d# z& o3 j' |) H 8.jpg
' S5 F0 T$ r) O8 s7 Z
" p6 X; J4 v  r出现函数支持窗口: c0 l$ U3 Y  l* N
绘制
! a: o% B, W2 r9 R: ]1 s 9.jpg
5 T. w1 [) y& H5 E出现一类凸轮图形.1 ]7 a) g; W) E7 h; w$ q

+ j7 V# b/ E/ i6 K. j8 v9 B[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
# o6 @, H% e& v( Z- \: y% P8 s  L& Q; Q1 S$ z2 T: c2 e7 K& d
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。
/ |, z- k( q1 t/ r+ x8 L8 J3 H( r用不了。+ p8 o9 Q) f( P8 }* A7 x* G: ^
提示:3 ^( L" e; M) t/ L' X3 p! C
    命令: -vbarun 正在初始化 VBA 系统...) H  e+ G/ c1 a, P/ {# D: M
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
# z, L9 o5 G" N4 H) S未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。7 a( g1 y9 N# @7 g0 j
没有返回去用过。但我想2004肯定没问题。9 G/ k  i0 `8 D5 M6 k$ k
另外CAD必须安VBA。
1 v9 b6 ?( K- f) C3 p9 U楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。8 X$ J3 s, D+ A5 V2 i) X
有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。1 M- w5 y  y* s9 c  `. v
其次我想普及,可一时操作后悔却没办法改权限。+ f9 [! a% h1 z7 j# c, f. s- @- [
再则同志们反应真的很冷淡。
3 y+ v# \; C2 p" }. S. ^有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
8 C3 [( t/ ?  q' j' ]那些个想画渐开线的,用上这东东还悉什么呢?0 w: @& X$ @6 V" [+ w2 e0 j! l
比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
9 A1 e  T5 ]6 ?. l5 o+ k* n我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)8 [7 c5 y  ~9 ~9 t% L" I
雷电波公式,呵呵呵呵。。。+ j1 M" U- z5 E! k2 z  [( i
同志们捧个场撒。。。0 K  K# t) O; T$ x  D
我给的可是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 `1 k* O/ x6 R7 {" }通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 556

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:  Y2 }" a, s& J5 m/ B
李萨如图和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"7 r" Q/ H. }9 X/ A% N- {
"0"
0 e& b8 \6 F5 S7 A/ g: r" L"0.01"
' @2 T4 \& t2 I7 e"0"1 R, |: U, Y% e  r$ V
"2*pi"( [- c0 H+ _$ A1 M' I
"r+(r^2-ee^2)^0.5-r", |# C4 P/ B% W5 L: r! {
"0"
0 X8 t5 O( f3 k"x"
' q, D; _, M: i  F"1"; t4 Z  S8 |% @0 G
"1"
$ Z% @+ b1 x/ F: R"ee"
: a5 W' N0 Y2 Q/ H9 [7 e" z"0"1 W; l  F4 Z# u
"(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"
8 ~/ |. I- O$ x8 S+ n( t"1"
  s* f: I! e3 F( L0 f9 e"ee=1"8 h! R3 `9 K5 `7 R
"nc=pi/5"
( _# `& Q8 w. j2 ~) x: K$ @% a"na=1*pi/5"9 L  x( O5 l) ?$ q( k
"nb=5*pi/5"
* J" I* @7 `2 f"r=18"
" V' N, a4 ]' P8 O: H"h=5"
& w! ?1 K: o8 f- x, d, k; s  w) A"---------------"
/ v# ~3 G, {/ \/ ~% k( p"偏心正弦凸轮"
# B! M! `1 v6 T6 J; M1 D$ J9 @! ~' ~& p/ n, j. F9 ]' _. F
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
. p# d$ B1 f/ G; o4 r0 t* G其中ee偏心距
3 y, h3 [" X3 B+ k" P; kr基半径
) L8 k& I1 b- d* X  r0 Q5 B7 Kh 行程: D4 M4 d0 D! D) c2 b, S8 ]* G$ N
na上升转角
" `0 x5 L3 e) a! ^) x# j& znb上升停止角0 B  g' I* Y: k  K& C
nc下降角
- w' c; f3 T$ G. {! Q5 r在程序中下拉框中可任意修改。8 p7 r  ?6 S$ q4 v2 S6 p' T. m

+ Z4 W# }. w2 c[ 本帖最后由 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 )

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