|
|
发表于 2007-8-28 10:40:07
|
显示全部楼层
来自： 中国江苏常州
***本程序为自由代码,任何人都可以引用及修改。不排除程序有错误发生，本人对此不承担任何相关责任。特此声明!!!
" j% r! ?5 D. w0 n; P5 C***本程序包含以下相关功能:
2 ^4 s$ u7 N3 f2 J 1、线切割编程系统
4 X# }6 n6 x/ J1 z 2、阿基米德螺线凸轮轮廓绘制系统
, t# S* i1 b0 T" d6 S 3、内外直齿轮轮廓绘制系统
0 x+ m6 V8 _' t/ d! H3 Q' R 4、链轮轮廓绘制系统. G9 e( }, P" e: k7 V5 N
5、渐开线花键轮廓绘制系统8 Z2 C& a! C+ ]' o% K" x& j
6、矩形花键轮廓绘制系统
/ t) l! E1 M7 s0 T6 T$ K1 M7 ~* `/ v 7、文字分解工具
0 h/ R: j8 R3 f% h) b2 f9 B4 P: o7 P, C1 V ~; v4 O& g
***加载方法:6 ]1 N" U& G0 V4 E! e. I
1、将后缀为"vlx"的文件拷贝到CAD安装目录的"Support"子目录下,在文件acad2004doc.lsp中加入一句：(load "xqg.vlx")，再启动CAD即可自动加载。! F1 w$ ?2 V# Q/ l# Y
7 V* p3 R: |- A" `, ?
2、可在 工具菜单->加载应用程序 中加载程序执行。
3 q+ @7 |# x; N* {& A 如果想每次均可运行该程序，可以：& k; C$ [, |) G# Y2 }9 b$ D9 o
工具菜单->加载应用程序->内容(o)...->添加(A)...->将程序加到列表中即可。
) D: A' n& A+ ^1 I; D% g2 l3 p# ~
1 d$ q* M) l; t$ J9 e***使用方法:
2 C5 N/ z; I# o* D! b 加载后，依照程序的提示信息键入: xqg 启动线切割编程
2 ?/ d4 [3 R6 C4 }3 W' H+ R \" u, e; {. c
. c5 a5 j8 c* R' Q一、线切割：
" N3 t9 ~* H' q' x 一直都以为线切割的每一个命令提示都已经够清楚的了。所以也没有写一个使用说明。可是，今天一位同事问我：“请选择钼丝切割轨迹侧(轨迹内侧或外侧任意点击)”是不是要线切割操作者自己选？！！…… 一时间，我无话可说。看来针对不同的用户，还是有必要写一个详细的使用说明。如下：
- s8 A! i8 P1 A 1、本程序是在电脑上完成线切割编程的简单工具。所以，每一个提示都是面向正在使用本程序的用户。如果你没有看到什么，你就不要管它，如果它说了什么，你就要积极响应。; _' ^2 |+ X/ z( j4 Y8 {2 ]! o
2、在使用本程序之前，你需要做的是：绘制你需要切割的轨迹（请按1：1绘制）后再执行本程序。
+ l: ~) ]2 c0 E5 i( k, R6 Q 3、在命令行键入 XQG 然后回车，就会弹出本程序的对话框界面。: h4 v7 I( j. G, T: m
4、end
4 U( ?# Z9 K1 N5 f2 U; e% |/ P% F3 f6 J3 c% R
二、凸轮
4 w& A, q+ n) c2 R( k" E8 | 预备知识：本程序所指的凸轮均只代表盘形凸轮。
" S E& _/ ]3 e% h8 t; U3 y& \: r: ~! u) P 在自动机床上大量应用了盘形凸轮，而盘形凸轮的轮廓精度直接影响到零件的加工精度，在线切割机床上加工凸轮轮廓可以有效的提高凸轮的轮廓精度，从而在一定程度上提高了零件的加工精度。盘形凸轮的轮廓曲线取决于待加工零件的外形，轴类零件轮廓基本是由直线、斜线或者标准的圆弧构成。凸轮设计者需要根据这些直线、斜线或者标准的圆弧，相应的使用标准圆弧、阿基米德螺线或者多点直线拟和来构成凸轮的轮廓。
# G5 [6 Q/ K7 _" k: U! ^/ E ?, G/ _ *** 切记，设计凸轮的是凸轮设计者，本程序只是根据已设计好的凸轮参数自动绘制出完整的凸轮图形。当然，本程序也不是没有用处。本程序的作用体现在：1、运行在Windows操作系统的ACAD环境下，方便。2、用线切割机床可以识别的标准圆弧来拟和阿基米德螺线和二次曲线，以便于切割加工。3、严格按照阿基米德螺线来拟合凸轮轮廓,使自动机床进给均匀,从而提高零件的表面粗糙度。这一点优于老牌的autop。4、在对零件标准圆弧轮廓的凸轮轮廓拟合中，可以无需人工的逐点直线拟合，由程序用标准圆弧自动完成拟和，减少了拟和的线段数，提高了表面粗糙度，极大的减轻了人工的计算强度以及避免了人工计算可能造成的错误。总而言之，本程序所做的就是易用、快捷。
" P$ v1 n' K9 E; C" w+ N3 @+ V5 k# g' Q
1、启动ACAD，然后加载cam.vlx,再然后就是在命令行输入‘xqg’，回车。
; _7 c% Z* R$ v/ d. a——以下每一步就是命令行的相应提示，在每一步后请回车或点击鼠标右键——) O/ ]6 q0 Z9 P" \; A; m6 w H
2、是否标注(Yes/No)<Yes>——这是提示你选择是否需要在图形中对凸轮每一个行程段的半径及角度进行标注。% `( T! F1 {& B( o C+ `, S
3、圆弧类型:阿基米德螺线/标准圆弧(A/S)<A>——选择凸轮的圆弧类型。相对于需要加工的零件来说，一般直线或斜线选择阿基米德螺线，而圆弧则选择标准圆弧。请键入S或A选择。如果摁回车、空格以及鼠标右键则默认为阿基米德螺线。8 p+ ]2 m0 |5 w
4、请输入或点取凸轮圆心——这个不要我说了吧！/ r8 p7 w& l/ k1 j2 n
5、请输入圆弧拟和精度:——本程序是用标准圆弧来拟和阿基米德螺线的轨迹，以便于线切割编程。而这个圆弧拟和精度就是组成轨迹的标准圆弧与理论上的阿基米德螺线的最大误差。在考虑经济性的前提下，可以取尽可能小的数值，以达到加工所需要的精度。
! x- f1 N$ N+ ^ 6、请输入起始角——是每一条螺线相对于360度的圆周的起始角度。第一条螺线如果是从零度开始，60度结束，那么第二条螺线的起始角就应该是从第一条螺线的终止角开始，第三条螺线的起始角就应该是从第二条螺线的终止角开始，第四条螺线依次类推。; C, O/ A, r; b* B5 E
7、请输入终止角——是每一条螺线相对于360度的圆周的终止角度。
/ I; s% @, p4 e+ i. @/ S0 M 8、请输入标准圆弧的半径(在凸轮上的半径需要零件上标准圆弧的半径乘以杠杆比)——如果凸轮上的一段轮廓是控制从动件加工圆弧表面，那么这段轮廓的标准圆弧半径就是被加工件的圆弧半径。如果在凸轮与刀具之间还有杠杆，那么这个半径还需要乘以杠杆的杠杆比。
+ p z, B2 t9 E7 \' `* t# H! p本程序拟合的标准圆弧必须是四分之一个圆周。
7 Q: D) h2 Z! t- ^; h3 W+ W 9、end
5 O6 r' w# g6 w1 h- ?. u
+ \7 P" w' w4 b1 J- Z三、齿轮：/ b& j0 K$ n& g- |, l
本程序可以完成直齿齿轮的轮廓绘制。可以根据需要输入任意参数，以求得齿轮轮廓。而且可以即时计算跨齿数及公法线长度。
' H3 W$ g, I, y
7 S% K: F% E, u, t四、链轮
3 M5 j# ^, Q) H! C. Q* A5 ?8 j 本程序可以完成链轮的轮廓绘制。可以根据需要输入任意参数，以求得链轮轮廓。1 X5 L7 d5 q& M7 ?- S
( E' @* n3 ?% w+ }' ~5 N$ V+ a五、渐开线花键! Q( H9 }9 j" Q T
这个程序其实是直齿轮的特例，只是增加了绘制圆齿根的功能，操作方式是一样的。; V2 [- c- }7 E b3 i9 z- M0 P; x) e
& c5 } a# {' j7 b
六、矩形花键
, r& S3 W4 _9 y! ^( b7 A 这个本来不想写的，基于界面的考量我还是写了下来。就算是滥竽充数吧！很简单，输入四个参数就可以了。& @, g$ T8 n$ i$ Z/ Y! n
, F* [) |0 J: X* a6 `七、分解字( |& f3 h6 j2 D; K# ~5 L" \/ p; L
可以将CAD生成的文字分解成由线段组成的轮廓，以便线切割切割。这个程序是借用CAd2000内一个现成的工具，我给它增加了一个有用的功能。就是在分解完成后自动删除多余的连接线段。这个小功能我也在网上看到过，但是试用后感觉速度非常慢，非常的消耗时间。就自己写了这个，速度应该不会影响脾气急躁使用者的心情。# \4 a5 w: q' a) P/ G4 B
& I# g. A7 |/ S+ a
d4 z- z: T, h3 e" x
***察看程序加载后的提示信息:
. [5 J6 r3 q1 C3 t) t$ P5 Z, I 加载后摁键盘上的F2键，打开ACAD的文本窗口，即可!!
2 a/ a$ k. q. u' u! d9 E !!!注意!!! 请仔细阅读每一条提示信息，以减少使用程序时的错误发生率。4 \) S! I% V% ^
3 r/ p! [: d( b% M/ s0 L/ ]3 E2002-06-28:0 L) m& H. O. A) w- p
完成了一个所谓的注册版,其实没有什么需要验证的注册码。只是功能是相对完善一些。也就是将3B程序代码输出到用户指定的文件中，用注册版编程时，将不再受AUTOCAD文本框显示行数（<400）的限制；还有就是增加了文件名的显示以及编程日期、时间的显示。
( z' X1 m' Z! U/ ^4 d/ H6 U8 D9 I* e2 z! q3 L# k
结婚以前:
n, v9 z% ^/ x, g% y: r 早就想自己动手搞一个在ACAD下编制线切割3B代码的Lisp程序,买了一本早期的ACAD开发方面的书,又自己把CAD的帮助文件整理打印出来,还有就是不断的上网学习其他高手的例程,在不断的改进,不断的调试,改进-调试-改进-调试……。如此周而复始，历经近半年的时间，终于使这个小程序可以用于实际。9 D2 P3 [& {2 b2 p6 L( \
/ O1 `/ { }" {+ A+ U1 d
***如果还有什么问题:
: Q9 C8 E4 c2 O. n/ y3 B 请电告: 0769-8320848(赚钱时间)…13790313087(休息时间)
5 Q$ `4 y! y, c& ~5 B; [ 或E-mail: lcl2094_cn@sina.com |
|
楼主
