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

scliukejun

1.       解压文件至C:\curve中
2.       在AUTOCAD中执行”工具->选项”或”options”命令，如图，依次点”添加”,”浏览”加入”C:\CURVE”
% F# i+ ^* h! C1 R; `

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


7 }4 S+ ^3 S3 u9 {出现图示按钮.点击之则运行

, e# {' v# ?/ B  T. q1 D

- t2 ]- p8 l8 P$ l7 ~7 t. X点击”取自..”
3 h( h' l$ s4 }  O' ~3 I7 c
选择” 偏心正弦凸轮.lkj”,点”OK”
! X. W# V$ ?. t$ [1 Q# m7 z) ^
7 O6 k2 U: L1 J8 L% F9 m点相对运动傍的”>>”钮，出现
" c1 U- ^3 x/ i" R' t

' X& T0 q5 R- b退出窗口,返回上一主窗口
点”Help”

( Z, W& Q8 _; Q/ M' e0 f: ?
) Y' x+ L5 ]+ U! J出现函数支持窗口
% p; [. F* H6 d6 F$ q/ Y点”绘制”
5 W1 s, _; G0 {/ [7 M, y  b
出现一类凸轮图形.

[ 本帖最后由 blackbird 于 2007-5-9 12:38 编辑 ]

scliukejun

版主，请给我返流量哦

caslee

不至于吧 你函数说明后边的背景图片难道是你和你老婆的？
. {) @$ O+ h+ F* i, c) b! `
# w+ N' ]. J, _& z3 u/ `' p不敢用啊

368天

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

wstar

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

dale1980

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

zhuyuan

加载了。
/ ?* o0 U( m4 T, s用不了。
提示：
- {7 A/ [1 J- b6 t7 R2 N    命令: -vbarun 正在初始化 VBA 系统...
- r7 O8 R6 O; `# B/ ~宏名称(M): c:/curve/curvecad.dvb!vbacurve.main
未找到宏。

scliukejun

我在R14版本下开始开发的；如今在用2007版。
9 X3 q7 C" L+ A6 c! S' ]7 I* Q没有返回去用过。但我想2004肯定没问题。
; B) L2 M2 b9 g0 |% N* p( i另外CAD必须安VBA。
& f4 ?" M% a0 Y楼上说的情况不知道是不是版本问题，当然，加载前必须按步骤解压到C:\CURVE目录，设置好支撑路径才行。
有的低版本须在设后关CAD然后重启.

scliukejun

把心血都献出来了，可感觉太失望了。首先这儿好象并不返流量，版主吱都不吱声。
其次我想普及，可一时操作后悔却没办法改权限。
9 c/ ^2 [- B& |+ V: h再则同志们反应真的很冷淡。
9 U' u$ w! D, R; ^. m9 v# O有嘲笑的，当然可理解。有用不上的。没有哪个给打个气的。
那些个想画渐开线的，用上这东东还悉什么呢？
) U1 G7 ~: s4 ~8 Y比如说选择极坐标。。。。算了算了，需要什么曲线的回复下我给弄个公式文件传上来就是了。
! `. n: t' C( K* w  `我这儿有什么平推凸轮曲线公式（正宗升程、停程、降程角度改改参数就行了的）
$ V- B6 L5 G1 C$ c! ]雷电波公式，呵呵呵呵。。。
同志们捧个场撒。。。
! }) H: f0 \) [1 ^( ~我给的可是LISP原代码啊，光下不回复的是不是太没良心了。

caslee

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

hbyyj

辛苦      了啊 楼主

sage

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

果向

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

lixiaochun1951

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

世纪

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

haorong

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

scliukejun

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

scliukejun

再为两个好玩的：
李萨如图和4叶玫瑰

scliukejun

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

szp

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

scliukejun

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

scliukejun

"VAL"
, t% O3 E# M8 X"0"
"0.01"
9 u: x$ l& O/ B+ I  s" |  @"0"
  [$ I4 T' ]/ p& v7 S+ ^"2*pi"
"r+(r^2-ee^2)^0.5-r"
- b, i- T- ^6 J3 n8 m"0"
7 A- c$ U" L9 H- J1 x2 _2 B/ J"x"
3 R8 ?' D5 F! g"1"
"1"
"ee"
- h- H6 K2 a$ Z& c, s/ c4 x5 j"0"
"(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"
"ee=1"
+ P# q1 S" [1 N& V"nc=pi/5"
( S3 o! z! L( F"na=1*pi/5"
& |+ F' |/ W! u2 b"nb=5*pi/5"
9 S. ~7 v/ T6 C- l5 o"r=18"
, g% N4 j9 O' ?0 W+ S( J+ V"h=5"
1 B0 ~! z2 @8 _2 x"---------------"
"偏心正弦凸轮"
% C7 S+ m  o# @' G. X
以上复制到文件C:\curve\偏心正弦凸轮.lkj中，即可调用绘制偏心正弦凸轮
其中ee偏心距
r基半径
$ w+ B+ H1 v  c9 b9 }) Eh 行程
8 \8 U+ [1 V$ J0 @5 G( R; X& nna上升转角
nb上升停止角
, `3 @  S' v# P# F0 r! I) hnc下降角
在程序中下拉框中可任意修改。

3 }4 F$ }9 a. j' t& `9 B( g[ 本帖最后由 scliukejun 于 2007-5-16 13:07 编辑 ]

yechangajr258

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

wuzheng5252

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

yghzgj2001

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