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

scliukejun

1.       解压文件至C:\curve中
0 w& j8 Q7 H4 m' _8 W" s4 G: k2.       在AUTOCAD中执行”工具->选项”或”options”命令，如图，依次点”添加”,”浏览”加入”C:\CURVE”


3．运行”menuload”命令，出现如图对话框,浏览”C:\CURVE\CURVE.mnu”后，点”加载”

* X5 G7 O: j3 }7 N# a, V- b& E
) Y& g+ M  R- e; f2 ]出现图示按钮.点击之则运行



点击”取自..”

9 ]6 t' L' S  r. ]) E' I  |0 s选择” 偏心正弦凸轮.lkj”,点”OK”

" j0 A8 D4 f# Q1 o$ \& w. q点相对运动傍的”>>”钮，出现
( w" Z8 Y1 {  P/ x& X9 n* \$ f) {

% j, i% [5 ~" r: }# S退出窗口,返回上一主窗口
; C8 K* Y- ?. Z3 w+ n点”Help”
$ L4 z* t+ ?: y; ]
" |/ n* f9 V" N0 o" m
出现函数支持窗口
. c2 J( r4 U) p( t8 ^点”绘制”

- W& V$ |# W6 e. q  W, n出现一类凸轮图形.
) S- I' ?" P( w
[ 本帖最后由 blackbird 于 2007-5-9 12:38 编辑 ]

scliukejun

版主，请给我返流量哦

caslee

不至于吧 你函数说明后边的背景图片难道是你和你老婆的？
) \, a6 S# |; `# e) j
% |8 f' i7 Y. T: t1 ?) i& j( \不敢用啊

368天

支持CAD那些版本? 都支持吗? 权限太高 不利于推广

wstar

下了，谢谢，但不知支持那些版本

dale1980

正想了解一吓~等同志们发表吧！

zhuyuan

加载了。
' g; h! K" w9 A" A6 A3 j" f用不了。
6 C# y5 M. C9 U0 j提示：
) O7 Y* W/ r0 Y- s9 k! ?    命令: -vbarun 正在初始化 VBA 系统...
宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
未找到宏。

scliukejun

我在R14版本下开始开发的；如今在用2007版。
' b; z2 n" g( B$ M* ?没有返回去用过。但我想2004肯定没问题。
另外CAD必须安VBA。
楼上说的情况不知道是不是版本问题，当然，加载前必须按步骤解压到C:\CURVE目录，设置好支撑路径才行。
有的低版本须在设后关CAD然后重启.

scliukejun

把心血都献出来了，可感觉太失望了。首先这儿好象并不返流量，版主吱都不吱声。
4 H: T4 R; K/ A' }其次我想普及，可一时操作后悔却没办法改权限。
再则同志们反应真的很冷淡。
& K1 t, ~9 g# R9 J0 l9 |! S- c有嘲笑的，当然可理解。有用不上的。没有哪个给打个气的。
那些个想画渐开线的，用上这东东还悉什么呢？
比如说选择极坐标。。。。算了算了，需要什么曲线的回复下我给弄个公式文件传上来就是了。
我这儿有什么平推凸轮曲线公式（正宗升程、停程、降程角度改改参数就行了的）
; J( |* e1 ?% f2 a: h0 I雷电波公式，呵呵呵呵。。。
同志们捧个场撒。。。
我给的可是LISP原代码啊，光下不回复的是不是太没良心了。

caslee

辛苦了啊 楼主 呵呵 多谢你的分享

hbyyj

辛苦      了啊 楼主

sage

这样的程序不错，希望以后多传一点，这对大家都有用。

果向

我也来学习一下，在此非常感谢版主，不过有时就是不回帖，可是也不能说没有良心，不论在什么情况下，都是不能改变你的功绩的。光明的永远不会黑暗。达者，永远是老师。我想我可以这样称呼你“老师你辛苦了！！！”

lixiaochun1951

谢谢楼主。希望楼主能将LISP程序也传上来，现在没用到公式画曲线，不代表以后也用不到。现在不收集，到用的时候根本就找不到。

世纪

这个程序以后可能有用，先收着，谢谢。

haorong

用了，能不能上一些公式给大家分享。

scliukejun

先上个渐开线的曲线吧，大家可看到本程式参数化功能。
通过修改下拉文本框中Mn及Z值即可得到相应齿轮渐开线。

scliukejun

再为两个好玩的：
$ [+ t- J  k& [李萨如图和4叶玫瑰

scliukejun

http://www.3dportal.cn/discuz/viewthread.php?tid=257477

szp

高手，敬佩，连 安装及使用帮助.mht都有，就是不知还能用在R14下吗 ？

scliukejun

试试嘛，实践了同真理，多说无用。

scliukejun

"VAL"
"0"
"0.01"
- y- w* J: u2 E  t( ?; j"0"
"2*pi"
# Q1 _7 i, e! `7 X! M' E0 x( w"r+(r^2-ee^2)^0.5-r"
, v, ^. I; n  _( B: X& i$ ~: ?7 _"0"
"x"
) P& }! L  @) u  W6 ~* ^"1"
"1"
"ee"
"0"
$ I1 O3 z# p, g/ g6 w4 f' n# 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"
"1"
2 B2 z+ \3 s- g) y; Q: w2 w6 H% k- Q! T* W"ee=1"
"nc=pi/5"
"na=1*pi/5"
: d# r+ ~0 B" p8 m0 a  V2 V"nb=5*pi/5"
# R* \; i, ]3 O: x. E"r=18"
"h=5"
/ \( `, z5 _( l( Q5 F& S"---------------"
5 Z) p0 W" [/ b3 ~" ~) _7 f"偏心正弦凸轮"

以上复制到文件C:\curve\偏心正弦凸轮.lkj中，即可调用绘制偏心正弦凸轮
其中ee偏心距
r基半径
h 行程
3 F, I) q8 ^, x6 a& ?3 Bna上升转角
nb上升停止角
$ |5 n, r, p6 G, l. Rnc下降角
/ l8 q" G; j9 E在程序中下拉框中可任意修改。

[ 本帖最后由 scliukejun 于 2007-5-16 13:07 编辑 ]

yechangajr258

谢谢楼主希望楼主能多上传些LISP程序上来.有矩形截面的弹簧程序和画内螺纹的LISP程序吗传上来我急用.谢谢...!!!

wuzheng5252

看贴，不管有用没用，顶下，以示感谢与鼓励~~~

yghzgj2001

谢谢楼主！下了好学习一下！