QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
goto3d 说: 版主微信号:caivin811031;还未入三维微信群的小伙伴,速度加
2022-07-04
全站
goto3d 说: 此次SW竞赛获奖名单公布如下,抱歉晚了,版主最近太忙:一等奖:塔山817;二等奖:a9041、飞鱼;三等奖:wx_dfA5IKla、xwj960414、bzlgl、hklecon;请以上各位和版主联系,领取奖金!!!
2022-03-11
查看: 60449|回复: 230
收起左侧

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

[复制链接]
发表于 2007-4-4 21:27:21 | 显示全部楼层 |阅读模式

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

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

x
1.       解压文件至C:\curve# d) B- m1 Z/ e& t5 P4 t/ U
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”0 ]/ Z( J* t+ a# I# W: h) L
1.jpg 6 ]  I! w3 _, l+ O% y) y, ]
7 g- Y4 R- w' V/ q' p( R
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
- c) Y( i7 }6 w: D9 c1 v 2.jpg 2 \' a0 [3 C6 s9 K1 s/ v; [( K

( K7 \' Y* q2 q9 @6 ~# B" r; S出现图示按钮.点击之则运行( |+ E4 z2 m& Z. z0 R. g& g
3.jpg , ?+ ~/ \& F# q
4.jpg
3 W( P. `2 g* y- l# c( R# B/ j" o6 L
9 ~- z) n$ P! N8 U- G
点击取自..”
+ H( _* w( ]2 T$ e 5.jpg
/ q: E; m% a2 T0 t% Y, x选择偏心正弦凸轮.lkj”,”OK”$ H5 v( i$ C; o6 d
6.jpg
$ T9 }# _$ _7 c+ u% n, Q8 \% b! ]点相对运动傍的”>>”钮,出现
8 Z2 f8 a4 _! Q0 `. {" j9 @
! I3 k2 p" R/ g3 k5 ^! L 7.jpg
8 f) A* k- `- y; W( W退出窗口,返回上一主窗口
% m& H: Q% q& r  X2 B* K# J* K”Help”* v7 ~. v4 J# \3 S: [
8.jpg
. j1 ]' w3 e, M$ g/ A7 e' j8 o: b& z' v4 y) s, U
出现函数支持窗口
3 V4 w( t/ V6 L7 E- y/ b/ f绘制) y' @1 S) P; U( E7 d3 u0 ]& X4 B
9.jpg ! G; a; W: r( @" p* x( b1 g
出现一类凸轮图形.
, t' C7 `9 @$ Q0 |$ b2 g9 j# ]
6 P; d7 R1 |4 ^/ L( W8 J[ 本帖最后由 blackbird 于 2007-5-9 12:38 编辑 ]

curve.rar

998.34 KB, 下载次数: 4747

点此下载

评分

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

查看全部评分

 楼主| 发表于 2007-4-4 22:30:36 | 显示全部楼层

回复 #1 scliukejun 的帖子

版主,请给我返流量哦
发表于 2007-4-4 22:38:13 | 显示全部楼层
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
  L' Y9 W) ~) R8 l) Z1 ^
$ w$ _/ i% U7 Y/ Q: U不敢用啊
发表于 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 | 显示全部楼层
加载了。
) L7 t6 C* s% L! G7 r- q. t用不了。* _2 {8 E0 I) N9 O3 M8 N
提示:/ S& L* I; d  c+ i8 ~% f2 E! {4 j
    命令: -vbarun 正在初始化 VBA 系统...3 F1 G6 A8 Y6 f: j1 T
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
4 l( H/ G' ]- l+ G未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层
我在R14版本下开始开发的;如今在用2007版。
4 v8 Q" s6 R* r) B没有返回去用过。但我想2004肯定没问题。
( w* ^* R" q5 e1 B3 W另外CAD必须安VBA。5 b3 X# r9 R9 W% |1 H" j2 x6 u
楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
! i7 |* H- X4 W4 g  Z$ j有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
& J3 G# c& B/ A6 F. E& G其次我想普及,可一时操作后悔却没办法改权限。
; X7 C7 ?2 S; y3 j再则同志们反应真的很冷淡。3 y; E2 u0 N4 p# E& w' a
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
: a+ }7 R3 d$ @* _那些个想画渐开线的,用上这东东还悉什么呢?
: d5 ?4 r& O' n比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
8 ~' J# p, a. y* ~/ H# m+ d4 F1 r我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)/ v! ?2 u- ?- ]/ [$ U
雷电波公式,呵呵呵呵。。。
0 N" \7 m! ~7 d6 r9 a, V- N" b同志们捧个场撒。。。4 O% t" Y9 C8 L! v# Z$ S
我给的可是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 | 显示全部楼层
先上个渐开线的曲线吧,大家可看到本程式参数化功能。
, u: m8 D- Q1 T通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 551

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层
再为两个好玩的:
7 M4 X4 X# U& `" K! M" A0 Z3 K李萨如图和4叶玫瑰

4l.rar

319 Bytes, 下载次数: 328

 楼主| 发表于 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"
: a% @- D, D! ]. R$ n8 u"0"
0 I. {4 g' d/ R4 [* G"0.01"
$ r* O. P; O6 |8 X7 N"0"+ Z5 `/ F6 N3 Q( }: S6 E
"2*pi"* t9 f% `+ j1 z* t0 d& S9 C
"r+(r^2-ee^2)^0.5-r"
' K1 y% [" E/ V7 w"0"
0 v2 S+ U# d) B/ C0 A, |"x"
1 L9 Q# p6 i/ H* d. D) t"1". `- R( U) v6 v0 S4 _
"1"
! \  J4 {0 \+ Q+ [. C8 K7 r! G+ l"ee"" P7 K$ L, L" w( L0 P: `
"0"
  a- h+ l( f/ p% X- R+ K"(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"; v) }$ w: k+ [7 m# B! H
"1"
( q$ w6 a: C: `' c"ee=1"
- z: W- W9 O6 l8 ^  l) y3 W"nc=pi/5"
- ^6 Z  v6 s6 v! |"na=1*pi/5"9 c3 E# @5 u' \. Y8 `. i
"nb=5*pi/5"3 _4 m) C, i" \6 r1 ]5 G# t
"r=18"& K' U2 e4 e6 S5 v) j" p& J
"h=5"
% Z! x- U9 O) A. z0 V5 Y0 N5 n7 \& ]2 ]"---------------"
: o9 ~) I4 W8 E"偏心正弦凸轮"- ]& C2 E0 ^3 b6 ?) ?
# ~+ L8 n4 @  V( ]2 E
以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮7 P* `5 G9 q& Y6 ], U" P0 m8 i
其中ee偏心距1 Y. }( W) ]$ e8 m7 G) ?7 n# s& e
r基半径
2 u* M7 d, j6 i" _. k2 sh 行程
1 d3 y4 P9 U' f! \/ wna上升转角
$ l8 ^4 ?, _( A" _, enb上升停止角
& o4 |3 \9 C0 @nc下降角- T" \9 I. q" ?% p
在程序中下拉框中可任意修改。3 `% m& H1 k. y  d: e/ T  ?1 P1 e

% U7 g" I. u: |9 j! M; d" u/ l[ 本帖最后由 scliukejun 于 2007-5-16 13:07 编辑 ]

偏心正弦凸轮.rar

289 Bytes, 下载次数: 308

发表于 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备13008828号-1 )

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