QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
9天前
全站
goto3d 说: 版主微信号:caivin811031;还未入三维微信群的小伙伴,速度加
2022-07-04
查看: 59295|回复: 230
收起左侧

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

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

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

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

x
1.       解压文件至C:\curve4 o+ n4 I2 ]9 e/ a0 o
2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
* R9 K) H3 N/ m  d 1.jpg
! N2 T  O7 h7 }, d% g; g* t9 M; `+ |3 j5 U
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载2 n1 o2 W! T5 l
2.jpg 3 D+ M  {: k/ e

" r0 _: d& u, b* \( c* O5 Y8 i出现图示按钮.点击之则运行  i' ~2 U/ d% V* k- S$ J
3.jpg
9 q! _, {# a1 U" b8 P 4.jpg   L, b5 |6 ~& \" U  m5 N! A" p
$ G" }. u! U" N) C5 A/ W
点击取自..”- c$ {% M4 d; M$ A0 k, i/ ^1 o
5.jpg
* C! K9 Z6 z# q% ]选择偏心正弦凸轮.lkj”,”OK”
- V" m& s( F& t* d! t# H 6.jpg ) u! B3 q/ ?% A, ]1 D
点相对运动傍的”>>”钮,出现
$ ^9 U) I, T% g0 u3 a) o  `) Q7 N* b
7.jpg
. u4 X7 k( @# ]: Z, P% l3 G退出窗口,返回上一主窗口% c. F% c$ E/ s) Q, f
”Help”
) Q' l1 q2 ]5 U 8.jpg
9 R6 k+ T( |% F, }) ~$ W+ ]6 Z( @& B% y  s
出现函数支持窗口
$ ]2 H' k( ~( E绘制! Z: q5 X, _& o' O$ ?  P4 p
9.jpg
& F: a  J3 O0 E4 j' F+ c6 v出现一类凸轮图形.
& x+ g! n; F6 k3 v- j# P
% I7 `( Z) d/ _) ^( }( P% d[ 本帖最后由 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 | 显示全部楼层
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?
: k  O# C2 k; I5 _) n
! ~. b7 g! b7 E! [: h- K( x; j# ]不敢用啊
发表于 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 | 显示全部楼层
加载了。( U5 m, ~) v. y
用不了。1 I4 I: M6 n8 n! i' z
提示:
! @) }' `- A4 K    命令: -vbarun 正在初始化 VBA 系统...5 G. ?7 @0 y+ u3 W! r5 O0 t
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
5 d7 x" k( U; \- j- o未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层
我在R14版本下开始开发的;如今在用2007版。1 s% l+ y: a2 d6 L: u) y
没有返回去用过。但我想2004肯定没问题。
: b3 J# ?, W+ f5 K另外CAD必须安VBA。
( Q& o# h- Q/ X% O9 A. X楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
, M1 s8 w$ |! L有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
) R% d6 P3 I/ G6 P其次我想普及,可一时操作后悔却没办法改权限。
7 T5 b" j, W' N2 |# u$ l1 C再则同志们反应真的很冷淡。3 e5 Y: [( A" T
有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。
4 v9 _/ f4 Z. F+ B6 q那些个想画渐开线的,用上这东东还悉什么呢?
1 \  P/ }, I' s比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。: M3 L; m6 C: B6 a9 Z* T4 t' _
我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)
6 ]: b0 t2 d' W# U" M- `雷电波公式,呵呵呵呵。。。
; o2 ^/ ]( W) _9 W* T; N同志们捧个场撒。。。! u/ s4 I; Y0 ~. x" B0 h
我给的可是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 | 显示全部楼层
先上个渐开线的曲线吧,大家可看到本程式参数化功能。1 o' X& a% Q7 k- o& ]& V7 _
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 551

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层
再为两个好玩的:& j. A& ^; n  ?* x; u
李萨如图和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"2 q. P, @* l+ W3 Q
"0"
2 s% i3 ~( Q# m% g"0.01"; f2 y1 a5 h% f+ |2 L" z8 v
"0"' q1 K8 Q4 |! c! F% [4 Q) v
"2*pi"# q& q6 v( W  R: g" s4 U3 |  f
"r+(r^2-ee^2)^0.5-r"9 n( e' u2 r) e6 J  y) H/ _9 {6 t$ _
"0"
; V. x6 u4 j0 b$ n7 i- ^; X( R"x"
7 w4 D! t' H, ^# \+ w2 t"1"
$ F7 U8 i( O+ P# b  ["1"; F* ]( A; s; e2 o
"ee"
5 Z. b% @- _0 G% L5 ~. e"0"6 w' c0 o2 W6 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"
: D- l7 j# V  r3 K" r% ["1"
4 v" s5 P' k: M' }) f"ee=1"' _' z, b. e5 r& l( b( G6 N
"nc=pi/5"
# U+ ]1 }! h4 G2 J"na=1*pi/5"5 Y8 G) _& v  M1 o2 N* L; ^
"nb=5*pi/5"* Z$ K) [! M, w
"r=18"2 |+ D# G# N! _9 `* O, l3 ^; w+ V# S
"h=5"6 W3 Z; A  z' d# q3 m" [
"---------------"; f" F. \) c. p+ F7 P+ \
"偏心正弦凸轮"
% a' G4 u: s7 k! C4 s
9 Z+ j# n9 r8 \. t0 d以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮
2 A/ X9 [; E1 O其中ee偏心距( h' _# x9 ?3 x
r基半径2 j9 O. R; A/ Q
h 行程
7 {, B/ L+ {/ Q" t" r& W! fna上升转角
& f: g0 _& o2 |. w& W6 ~) ynb上升停止角
6 H* m7 A; {9 S$ N' q3 v- vnc下降角
$ _" n( n, m, t+ b; W- c在程序中下拉框中可任意修改。! |1 a5 f' S' w* p( [- K8 O

4 G) n/ L( C- o: Q& g# j[ 本帖最后由 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 )

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