QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
1.       解压文件至C:\curve
5 d- |4 }8 h$ R) o6 d9 h2.       AUTOCAD中执行工具->选项”options”命令,如图,依次点添加”,”浏览加入”C:\CURVE”
1 e6 q4 y- M. j# J( d/ Y- S 1.jpg % K- {) {7 r& N- t# z
. I3 [2 }7 Y6 A) J3 l8 H% R4 n) h
3.运行”menuload”命令,出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后,点加载
) N: [: Z2 R: k: ~4 f. V) N& e+ w 2.jpg : L/ @+ k5 s1 A" d
& s4 z8 f' H) n( y
出现图示按钮.点击之则运行+ a5 n/ z$ ^6 _( h6 T, W. }3 I
3.jpg & `. f( x4 I* _. a
4.jpg
/ M% C7 o( o2 ?. I. x% g: W
6 B$ s7 d7 N1 V- p8 r
点击取自..”3 W2 ]/ @5 ?1 H# o; Y, h# g5 u! s- \" U
5.jpg
! r5 t. N$ T% u" I% l; |选择偏心正弦凸轮.lkj”,”OK”5 E0 }$ B1 |' U2 n
6.jpg
8 b. t( R- X6 C+ l点相对运动傍的”>>”钮,出现
( i3 e: D1 p  `6 @& G0 Q  z
% f! j3 z8 h! Q! w6 W" h 7.jpg ; U& Q0 w9 m9 U4 w
退出窗口,返回上一主窗口
# l7 m# q+ s, h# f”Help”
. ?5 v2 ]- y; M% j 8.jpg 5 j! p& V( [! L+ X( G$ N
  A. T7 W! D& m" M1 v5 [1 A
出现函数支持窗口
7 w* |* w, w$ ~( J6 a绘制
7 G9 F! W- R' W0 ~ 9.jpg
- |* A. T! s4 Q' b2 G( g出现一类凸轮图形.
/ F- m5 Q! M3 a' `
0 E: X/ {9 Q, i+ o# \[ 本帖最后由 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 | 显示全部楼层 来自: 中国上海
不至于吧 你函数说明后边的背景图片难道是你和你老婆的?  \' e" {" F' t1 I/ [
4 O$ b" l+ ?" Z7 W7 c0 p! ]  y! i
不敢用啊
发表于 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 | 显示全部楼层 来自: 中国上海
加载了。+ o( s9 S; {0 S- I
用不了。
: y3 I) H/ W; J  a8 w$ H提示:. J9 _  D3 k) e8 |% a# X! y! E
    命令: -vbarun 正在初始化 VBA 系统..., l6 b3 |& w- k, R8 M5 S, `8 Z
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main1 K% f- s0 p2 Q' W2 y  X2 x) O) y6 u
未找到宏。
 楼主| 发表于 2007-4-12 13:00:05 | 显示全部楼层 来自: 中国四川成都
我在R14版本下开始开发的;如今在用2007版。
; y0 S: q! ~- U$ m0 b没有返回去用过。但我想2004肯定没问题。! @, e- C7 o4 ~: Q- w5 x! @1 F3 N
另外CAD必须安VBA。
) }6 X' G3 b0 o6 M楼上说的情况不知道是不是版本问题,当然,加载前必须按步骤解压到C:\CURVE目录,设置好支撑路径才行。
1 w4 S1 P- n: J! \5 ~有的低版本须在设后关CAD然后重启.
 楼主| 发表于 2007-4-14 16:46:40 | 显示全部楼层 来自: 中国四川成都

伤心

把心血都献出来了,可感觉太失望了。首先这儿好象并不返流量,版主吱都不吱声。
: P- f, A4 g& ]1 \. i3 O) M其次我想普及,可一时操作后悔却没办法改权限。
9 ^  h9 O; V( f) l再则同志们反应真的很冷淡。
. I, {  ?/ S' ^7 A* Q9 t3 q有嘲笑的,当然可理解。有用不上的。没有哪个给打个气的。8 N- g# o1 \' x2 C4 g, W9 Z
那些个想画渐开线的,用上这东东还悉什么呢?
. T5 A% H% A, `  J$ Y" ^+ q比如说选择极坐标。。。。算了算了,需要什么曲线的回复下我给弄个公式文件传上来就是了。
6 b5 @' c& [- ^我这儿有什么平推凸轮曲线公式(正宗升程、停程、降程角度改改参数就行了的)5 G6 r$ ?0 X/ o. g, {5 R' Z
雷电波公式,呵呵呵呵。。。
# I6 p! d! c3 H% e# g/ e同志们捧个场撒。。。
- L4 o( [% O( ~& O1 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 | 显示全部楼层 来自: 中国四川成都
先上个渐开线的曲线吧,大家可看到本程式参数化功能。" }9 G, t9 \- Q4 {* D
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

渐开线2-2.rar

323 Bytes, 下载次数: 558

 楼主| 发表于 2007-4-22 11:23:03 | 显示全部楼层 来自: 中国四川成都
再为两个好玩的:0 U' ~; I, O2 T: r" I6 D- T/ g/ w
李萨如图和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: Z2 y) i5 Z: B. ^' a0 U
"0"9 j$ o/ Y/ f, k$ }. ]
"0.01"7 `- ^/ b2 f5 t! s0 k' k3 L% h
"0"& ^8 y5 ^2 X3 ]5 v. a! ~4 n
"2*pi"4 l4 O- D2 C; k6 R
"r+(r^2-ee^2)^0.5-r": h$ q, {3 h' F, @# X8 e9 |5 S
"0"
) K3 T2 U# [2 _"x"
8 o& C' ?4 |, Z: Y( u, H  ^/ s5 x7 w"1"
8 [! A, \/ ^& C3 u"1": I( {1 Q! |9 v7 W* ]
"ee"1 d, `! _8 ^- I/ @' ]0 F$ d& `% T! E
"0"+ @9 s) g' l- s% k5 n
"(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 x' `( h: E" U* N2 M"1"
! N0 P$ V/ D% f1 ^" ["ee=1"" A  n; g7 a, M4 t# M
"nc=pi/5"8 j4 \3 E, v4 a. Q5 Q) T. G! ^/ q
"na=1*pi/5"
6 Y# f, R5 H" J"nb=5*pi/5"% f% z$ b- }* _
"r=18"
: [" N- ?: `4 S" ?7 C8 g# i"h=5"* B+ c6 g% I$ R! k
"---------------"
/ O6 \+ _8 [& Q% k# v* P1 F  j, h"偏心正弦凸轮"
% z3 l1 {% S" Q( O$ V+ L
. O8 b' Z5 A( ^" z! [9 O4 S以上复制到文件C:\curve\偏心正弦凸轮.lkj中,即可调用绘制偏心正弦凸轮) s$ w" w  O1 J; [
其中ee偏心距3 L% C" ?4 i7 O  c1 Q: S% L
r基半径
3 c3 I( J3 d+ g5 `; j, _h 行程9 w* ^9 C. t/ c$ S; {) R
na上升转角
8 p- t' x( f7 Unb上升停止角
; i3 {: T+ S& knc下降角
$ p2 X/ D5 t1 n- S; S$ `9 J9 o在程序中下拉框中可任意修改。
# ~. J; @6 K5 ?4 b
1 a, d( G7 u1 v0 v6 n' V* d[ 本帖最后由 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 )

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