- UID
- 1
- 好友
注册时间2007-3-30
威望值 点
最后登录1970-1-1
激情值 点
积分26049
认证分 分
齿轮币 枚
回帖0
|
本帖子中包含更多资源。
您需要 登录 才可以下载或查看，没有账号？注册
x
感谢:kwok
作者：
*******************************************************
* *
* AUTOCAD-R2000-lisp线切割编程系统 *
* --- 罗 昌 凌 *
* 地址：湖南怀化华峰电子六分厂 *
* 个人主页：http://luocl-cad.myrice.com *
* QQ: 43068381 电话：13790313087 *
* E-mail: lcl2094_cn@sina.com *
* *
*******************************************************
***本程序为自由代码,任何人都可以引用及修改。不排除程序有错误发生，本人对此不承担任何相关责任。特此声明!!!
***本程序包含以下相关功能:
1、线切割编程系统
2、阿基米德螺线凸轮轮廓绘制系统
3、内外直齿轮轮廓绘制系统
4、链轮轮廓绘制系统
5、渐开线花键轮廓绘制系统
6、矩形花键轮廓绘制系统
7、文字分解工具
***加载方法:
1、将后缀为"vlx"的文件拷贝到CAD安装目录的"Support"子目录下,在文件acad2004doc.lsp中加入一句：(load "xqg.vlx")，再启动CAD即可自动加载。
2、可在 工具菜单->加载应用程序 中加载程序执行。
如果想每次均可运行该程序，可以：
工具菜单->加载应用程序->内容(o)...->添加(A)...->将程序加到列表中即可。
***使用方法:
加载后，依照程序的提示信息键入: xqg 启动线切割编程
一、线切割：
一直都以为线切割的每一个命令提示都已经够清楚的了。所以也没有写一个使用说明。可是，今天一位同事问我：“请选择钼丝切割轨迹侧(轨迹内侧或外侧任意点击)”是不是要线切割操作者自己选？！！…… 一时间，我无话可说。看来针对不同的用户，还是有必要写一个详细的使用说明。如下：
1、本程序是在电脑上完成线切割编程的简单工具。所以，每一个提示都是面向正在使用本程序的用户。如果你没有看到什么，你就不要管它，如果它说了什么，你就要积极响应。
2、在使用本程序之前，你需要做的是：绘制你需要切割的轨迹（请按1：1绘制）后再执行本程序。
3、在命令行键入 XQG 然后回车，就会弹出本程序的对话框界面。
4、end
二、凸轮
预备知识：本程序所指的凸轮均只代表盘形凸轮。
在自动机床上大量应用了盘形凸轮，而盘形凸轮的轮廓精度直接影响到零件的加工精度，在线切割机床上加工凸轮轮廓可以有效的提高凸轮的轮廓精度，从而在一定程度上提高了零件的加工精度。盘形凸轮的轮廓曲线取决于待加工零件的外形，轴类零件轮廓基本是由直线、斜线或者标准的圆弧构成。凸轮设计者需要根据这些直线、斜线或者标准的圆弧，相应的使用标准圆弧、阿基米德螺线或者多点直线拟和来构成凸轮的轮廓。
*** 切记，设计凸轮的是凸轮设计者，本程序只是根据已设计好的凸轮参数自动绘制出完整的凸轮图形。当然，本程序也不是没有用处。本程序的作用体现在：1、运行在Windows操作系统的ACAD环境下，方便。2、用线切割机床可以识别的标准圆弧来拟和阿基米德螺线和二次曲线，以便于切割加工。3、严格按照阿基米德螺线来拟合凸轮轮廓,使自动机床进给均匀,从而提高零件的表面粗糙度。这一点优于老牌的autop。4、在对零件标准圆弧轮廓的凸轮轮廓拟合中，可以无需人工的逐点直线拟合，由程序用标准圆弧自动完成拟和，减少了拟和的线段数，提高了表面粗糙度，极大的减轻了人工的计算强度以及避免了人工计算可能造成的错误。总而言之，本程序所做的就是易用、快捷。
1、启动ACAD，然后加载cam.vlx,再然后就是在命令行输入‘xqg’，回车。
——以下每一步就是命令行的相应提示，在每一步后请回车或点击鼠标右键——
2、是否标注(Yes/No)<Yes>——这是提示你选择是否需要在图形中对凸轮每一个行程段的半径及角度进行标注。
3、圆弧类型:阿基米德螺线/标准圆弧(A/S)<A>——选择凸轮的圆弧类型。相对于需要加工的零件来说，一般直线或斜线选择阿基米德螺线，而圆弧则选择标准圆弧。请键入S或A选择。如果摁回车、空格以及鼠标右键则默认为阿基米德螺线。
4、请输入或点取凸轮圆心——这个不要我说了吧！
5、请输入圆弧拟和精度:——本程序是用标准圆弧来拟和阿基米德螺线的轨迹，以便于线切割编程。而这个圆弧拟和精度就是组成轨迹的标准圆弧与理论上的阿基米德螺线的最大误差。在考虑经济性的前提下，可以取尽可能小的数值，以达到加工所需要的精度。
6、请输入起始角——是每一条螺线相对于360度的圆周的起始角度。第一条螺线如果是从零度开始，60度结束，那么第二条螺线的起始角就应该是从第一条螺线的终止角开始，第三条螺线的起始角就应该是从第二条螺线的终止角开始，第四条螺线依次类推。
7、请输入终止角——是每一条螺线相对于360度的圆周的终止角度。
8、请输入标准圆弧的半径(在凸轮上的半径需要零件上标准圆弧的半径乘以杠杆比)——如果凸轮上的一段轮廓是控制从动件加工圆弧表面，那么这段轮廓的标准圆弧半径就是被加工件的圆弧半径。如果在凸轮与刀具之间还有杠杆，那么这个半径还需要乘以杠杆的杠杆比。
本程序拟合的标准圆弧必须是四分之一个圆周。
9、end
三、齿轮：
本程序可以完成直齿齿轮的轮廓绘制。可以根据需要输入任意参数，以求得齿轮轮廓。而且可以即时计算跨齿数及公法线长度。
四、链轮
本程序可以完成链轮的轮廓绘制。可以根据需要输入任意参数，以求得链轮轮廓。
五、渐开线花键
这个程序其实是直齿轮的特例，只是增加了绘制圆齿根的功能，操作方式是一样的。
六、矩形花键
这个本来不想写的，基于界面的考量我还是写了下来。就算是滥竽充数吧！很简单，输入四个参数就可以了。
七、分解字
可以将CAD生成的文字分解成由线段组成的轮廓，以便线切割切割。这个程序是借用CAd2000内一个现成的工具，我给它增加了一个有用的功能。就是在分解完成后自动删除多余的连接线段。这个小功能我也在网上看到过，但是试用后感觉速度非常慢，非常的消耗时间。就自己写了这个，速度应该不会影响脾气急躁使用者的心情。
***察看程序加载后的提示信息:
加载后摁键盘上的F2键，打开ACAD的文本窗口，即可!!
!!!注意!!! 请仔细阅读每一条提示信息，以减少使用程序时的错误发生率。
***更新纪录
2004-12-5:
有网友告诉我他破解了我的程序。呵呵……，我不知道他用的是什么工具。很久没有上网琢磨这些了，可能有了专门破解VLX的工具问世了。也许他只是破解了我的注册功能，这就容易解释了。我的注册功能算法非常简单，要破解不是很困难的事情。为此，今天我修改了注册算法，稍微复杂了点儿。不再是几个单纯的数字，破解难度可能会稍微高些。浪费了一个上午的时间，还不知道会不会导致其他的错误发生。只有用过后才知道了。
2004-12-2:
发现一个史无前例的BUG，以前未曾意识到的问题。CAD的图元数据表的端点坐标都是世界坐标系点，如果在图形中用户自定义坐标系，程序就会出现问题。增加两道程序就OK了。
2004-12-1:
今天有朋友发来邮件希望注册我的程序。呵呵……，真让人高兴。可惜上次传到网上的那个版本有不完善的地方，而我修改后的程序没有机会传到网上去。真担心辜负了人家的期望呀。所以再接再厉又发现了两个BUG，修补好已经是24:12了。也许是我的杀虫剂都是过期产品，所以药效有点迟缓，如果朋友们帮我买一些较新的杀虫剂，我的杀虫效率应该会提高很大一块了。呵呵……，开个玩笑。
2004-11-29:
今天改进了凸轮绘制程序，可以绘制大于360度的阿基米德螺线了。
2004-11-28:
有网友遗憾没有慢走丝程序输出功能，而自己以前也没有研究过慢走丝的编程方法，找遍了道滘的书店也没有这方面的参考资料，似乎没辙了。还好我的好兄弟刘运祥，给我发来了慢走丝的示例程序。经过一段时间的研究终于明白了其中的道理，到今天也把输出慢走丝程序的功能给完成了。由于近来工作非常忙，没有时间反复折磨这个程序(也是折磨自己)，如果朋友们使用中发现BUG,请给我发来E-mail，我好更加完善。谢了!
2004-11-27:
今天捉到一条大虫，一个错误的系数，导致圆角时出现错误。看来需要把这个程序再上传一次了。只是由于程序已经上传，估计会影响到大家的使用，也只好麻烦大家再下载一次了。
2004-11-23:
今天把圆弧过渡功能做成为一个用户可以更改的参数值，取消了原来的显示选中图形对象数参数。把程序放在Win98下运行发现代码输出窗口的代码排列非常混乱。估计是因为CAD的空格与字母数字在Win98下占据的行宽不一致引起的。没有好的办法，只好建议大家在Win2000或者WinXP下使用这个插件程序了。至于WinMe下,我没有使用过,不知道怎么样。估计没有什么问题。
2004-11-22:
继续完善中。1、注册码用星号掩盖。2、对话框中不需修改的编辑框属性修改为‘不可用’。3、当偏移量为零时，不再需要选择偏移侧面。4、如果起点只有一个对象，则不再需要选择切割起始线段。
2004-11-21:
完成了圆弧过渡的程序部份。增加的代码把眼睛都看花了，还好可以听着COCO的‘一见你就有好心情’，熬夜的辛苦就稍微减轻一些了。呵呵，如果可以看到有哪位朋友注册了我的程序，我的心情就真的会好的不亦乐乎了。期待ing...
2004-11-11:
继续了修修补补的历程，一个不太容易出现的Bug,还是自己发现了。改进很容易，发现它却需要各种折磨程序的方法来试验。当然，这同时也是折磨自己。没有反馈信息，我还是要继续去完善它。这就像我自己的孩子，我希望我倾注的心血可以没有瑕疵，也许这不可能，我只有做得更好，这样才算对得起自己。******期待程序功能的飞跃。
修改了注册机能，注册算法更加严谨了。
2004-11-2:
上传的程序如石沉大海，有些灰心丧气了。但还是继续完善了这个程序。增加了输出4B代码的功能。
2004-10-30:
其实今天没有更新什么，有的只是我把程序终于上传到网络上了，并且发布到了明经通道。现在的心情是忐忑不安的，不知道这个程序是否会得到大家的认可。这两天是周末，大家都没上班，估计要等两天才会有回音。希望可以得到大家的认可，这样才意味着会有收入。
广州有个朋友希望购买我的源程序。我担心他对我的程序期望太高，因为购买程序后不满意而后悔。所以也给他发了一份编译后的程序，希望他使用后有一个冷静的出价。
2004-10-27:
一直没有机会把这个小程序上传到网上去，在自己的小海地闲下来就鼓捣鼓捣。这两天把各个程序的衔接进一步完善，使前后文更具条理。应该说这个程序更加精致了，现在还有两个缺憾：1、矩形花键程序还没有完成；2、帮助文件还没有动手去做。也许不需要多少时间就可以完成，也许还要等许久许久。工作很忙，而且没有头绪。有时候真的想辞去这个工作，去做自己想做的事情。但是又担心没有能力去赚够花的钱，而导致我的妻女挨饿受冻。
"坚持就是胜利"----也许这句话不是毛主席说的，但这的确是一句不变的真理。本以为矩形花键需要等到不知道哪一天的明天去完成了。坚持一下，居然就完成了。现在时间是23点50分，我很高兴。现在这个程序需要去做的就只剩下帮助文件了。首先要整理一下头绪，可能需要到网上去下一些小工具，来录制演示操作方法。
2004-10-24:
昨天度过了自己的30岁生日，远离家人的孤独使我始终无法高兴起来!!
许多天了，一直在琢磨渐开线花键的绘制方法，到今天终于完成。可以完成平齿根或圆齿根的绘制。外径定心花键的绘制程序我就没有考虑了，主要是界面不好安排。
在调试花键程序时，发现了齿轮程序的一个BUG，主要原因是没有详细了解内齿轮的齿廓参数。以至程序绘出来的齿轮内齿与外齿有可能会出现齿廓干涉的现象。修改后不会再出现问题。
2004-09-30:
把链轮绘制程序也增加了对话框，现在剩下的就是凸轮了。27日在网吧熬了一个通宵。把自己的程序也带去希望可以上传到网上。可惜网吧封锁了一切通路。尝试了一下解锁，可是徒劳。不知道什么时候才可以发布到网上。
前些时候为了绘制并扣的压缩弹簧,把自己的程序又一次修改过,使并扣部分更加真实。今天也纪录在这儿，也算是这段时间做的一点事情吧!
2004-09-27:
一个月前，受一篇《电脑爱好者》文章的启发，翻出已尘封多时的程序。打算给它增加一个更人性化的对话框，以便于操作。寄希望可以提高一点商业价值，以弥补家用的不足。忙到今天，终于有一点小成，但注册部分也还是有些瑕疵,也无所谓了。希望尊重他人劳动成果的人会积极的注册。这次主要的改变就是把原来独立的五个程序整合到一个界面，同时在对话框中增加了一个显示代码的窗口。而且将注册与未注册软件整合在了一块儿。
2002-12-11:
忙了快一个星期了，终于把绘制齿轮的程序作了进一步完善。也就是增加了绘制齿根园角的功能。当然还有需要更加完善，需要时间了！
2002-11-29:
有许久没有再完善这个线切割插件程序了。只是在工作间隙做了一个标注直径的小程序，可以自动标注机械制图中的直径尺寸，而且可以根据操作者的输入自动标注标准的公差带尺寸。程序没有几行，定制公差带表却忙乎了好几天。还特容易出错。呵呵……不容易呀！满眼都是那些个阿拉伯数字，眼睛都看花了！
本想请教一位网友如何编写PC机与单板机的联机程序，可惜……，技术都是用金钱来衡量的。他只是答应我帮我编写联机程序然后与我的线切割程序合并为一个商业软件，再署上我俩的大名，以我俩的名义发行这个软件。至于利润呢，五五分成咯！我想做，但是我觉得好难，因为我还有许多的事情要去做，最后呢，可能我什么都做不好！没辙……，这就是我！
解决了一个问题，错误的加工方向标注线。又发现了两个问题，尚需时日。
2002-10-06:
修正了线切割程序在CAD2002下使用的一个BUG，程序代码更加科学合理。随着使用的频率的增加，也许还会有更多的BUG出现，期待着大家多给我提出问题，我将尽我之所能，来完善和提高。谢谢！
这个线切割程序我已经在网上贴出几个月了，但到目前为止，始终没有一位朋友对我的这个程序提出意见。难道，没有人使用个这个程序吗？我都没有激情了！
2002-08-21:
写了一个可以变更图元Z轴高度的程序。
再次完善了线切割程序，当选择多段线为起始对象时，会弹出对话框提示，并要求再次选择。
2002-07-28:
完善了绘制链轮的程序，不会莫名其妙的少线了。线切割程序的箭头更加准确了（轨迹范围的1/17），而且还增加了针对不封闭切割轨迹绘制最后一条切割线到对刀点的连线的程序,使切割路线更加直观；而且可以在错误发生时，给用户一个有效的提示。
2002-07-27:
今天又把几个小程序修改了一些地方，但还是不太好，总是有一些冲突，只能单独载入系统。不想搞了，等以后吧！！
实在无聊,又把机器打开看了看源程序，原来是自定义函数名在每个程序中相同，改写后就OK了！！
在小东CAD网站上,学到了一招,可以让我的线切割程序输出线切代码到用户指定的任意目录下了。附带着又修改了一些代码，可以在用户错误选择时，给出提示，并重新选择，更加智能化了。
编写软件真是一件痛苦的事情，需要不停的调试，不停的修改。许多未知的漏洞随时都有可能导致错误。由此，我也由衷的佩服那些写出许多实用软件的大师，他们需要买多少脑白金，和杀虫剂呀！！！
2002-07-24:
今天修正了线切割编程的一个小BUG，原来的箭头有时候只有一条直线，而现在可以完整的绘出一个箭头来。
2002-07-07:
今天把链轮的程序编了个大概。还有一些小问题要等到以后的使用中去发现了。准备搞一个新的程序，但已经不是Lisp所能够解决的了，也是关于线切割的。希望好运！
2002-07-05:
7月1号的想法现在终于成功了，刚才实验了一下，SR3的圆弧只要五道程序就可以拟合了，相对于繁重的手工计算及输入，应该是一个很大的进步。心情不错，呵呵……
上午以为程序已经OK了,到一分厂试用才发现一个很大的错误。完全是理解上的错误。坐在电脑前想了很久，始终没有头绪。后来，把程序打印到纸上，吃晚饭后琢磨了一会儿。理出了头绪。再把电脑打开，分分钟就调试好了。现在的心情，呵呵……，不错！！！
现在，绘制凸轮的程序基本上已经比较完善了。在这里，也要感谢我的‘老乡+朋友’：Mr.刘运祥。切割凸轮的程序的许多细节上的功能都是在他的建议下完善的。谢谢……！！！
2002-07-03:
今天再次阅读了关于链论的技术资料。对于用Lisp编程实现链轮轮廓的绘制，有了一点信心。可以将程序精简到每齿四道。这样的话，用线切割实现链轮的加工才有可能易于实现。曾经想设计一个机构来加工链轮，琢磨了很久，最终还是放弃了。现在看来可能还是线切割好一些。
2002-07-02:
晚上跑到技术室调试线切割程序,果然是AUTOCAD2002的问题。昨天编写的代码在AUTOCAD2000下，运行的很正常。
2002-07-01:
今天,给程序增加了标示加工方向功能，还想把线切3B代码直接输出到ACAD图形窗口。但是今天太累，而且没有头绪，等明天！
ACAD真是一个讨厌的CAD系统，分明是正确的程序代码，可是绘制出的直线就是不对。总是提示：创建零长度直线。没有头绪了。
今天还有一个想法，给绘制凸轮的程序增加绘制从动件的运动轨迹为标准圆弧的凸轮轮廓程序代码。（词句太长，抱歉！）
2002-06-30:
忙活了一整天,终于完成了整园编程的代码。刚开始时，觉得很没有信心，但还是咬紧牙关坚持，坚持，再坚持。所以，做事贵在坚持呀！！！
2002-06-28:
完成了一个所谓的注册版,其实没有什么需要验证的注册码。只是功能是相对完善一些。也就是将3B程序代码输出到用户指定的文件中，用注册版编程时，将不再受AUTOCAD文本框显示行数（<400）的限制；还有就是增加了文件名的显示以及编程日期、时间的显示。
结婚以前:
早就想自己动手搞一个在ACAD下编制线切割3B代码的Lisp程序,买了一本早期的ACAD开发方面的书,又自己把CAD的帮助文件整理打印出来,还有就是不断的上网学习其他高手的例程,在不断的改进,不断的调试,改进-调试-改进-调试……。如此周而复始，历经近半年的时间，终于使这个小程序可以用于实际。
***如果还有什么问题:
请电告: 0769-8320848(赚钱时间)…13790313087(休息时间)
或E-mail: lcl2094_cn@sina.com
罗昌凌 2002/5 |
-
-
齿轮.rar
41.5 KB, 下载次数: 2320, 下载积分: 齿轮币 -2 枚
|
发表于 2007-4-7 22:32
发表于 2007-5-16 13:55
