在AutoCAD2000中用VBA编程求冷冲模压力中心教程

Devil°243

Devil°243

2016-03-18 15:36

下面图老师小编要向大家介绍下在AutoCAD2000中用VBA编程求冷冲模压力中心教程,看起来复杂实则是简单的,掌握好技巧就OK,喜欢就赶紧收藏起来吧!

    随着冷冲模设计任务的增多,依靠原来的手工方法计算不仅任务繁重,而且很容易出现计算错误。基于上面情况,笔者在AutoCAD2000中用VBA编程,直接在图纸上求解压力中心,极大地降低了设计人员的工作强度。这种方法比手工方法计算更准确,也使冷冲模的寿命更长。

    一、概述

    冷冲模压力中心是冲裁力合力的作用点,准确求解压力中心对于冷冲模的正常工作至关重要。

    在AutoCAD中,常用的求压力中心的方法是先用pedit命令将冲裁边编辑成多义线,再向两边偏移微小距离,运用一定的编辑方法围绕冲裁边形成一个狭窄封闭区域,用region命令编辑成面域,再用AutoCAD的Massprop命令求出面域质心,此质心接近压力中心。对于复杂冲裁件,上述方法操作起来比较繁琐,并且用Pedit命令编辑时要求线与线之间必须完全连接(特别是当从其他绘图软件转换过来的图形连接不是很好时,这点影响较大)。更为重要的是,每一次求解压力中心都得进行类似的繁琐工作。

    基于上述原因,笔者依据最基本,也是最准确的计算法,运用AutoCAD2000下VBA编程求解冲模的压力中心,再将其做成按钮,置于查询(Inquiry)工具条上,即可在所画图形上直接求解压力中心。程序基本思路为:先选择代表冲裁边tulaoShi.com的图元对象,再逐一判断是何种对象,从而转入相应对象的计算处理。根据计算法原理,将此对象的压力中心求出,并将它们当作一个对象,与下一个对象计算,求出新的压力中心,直至处理完所有对象。最后求出的压力中心即为整个冲模的压力中心。

    二、程序输入及按钮制作

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/autocad/)

    (1)打开AutoCAD2000,选择工具菜单下Visual basic编辑器,输入程序并存为Code.dvb文件(其文件位置假设为D:/presscenter/code.dvb)。

    (2)选择AutoCAD工具菜单下的加载应用程序,在Startup suite中加入保存的Code.dvb文件,关闭各对话框。以后在启动AutoCAD时,将自动加载此工程文件。

    (3)打开视图菜单下工具栏(Toolbar)对话框,选取查询工具条,则查询工具条出现在界面上。接着点Customize按钮,出现Customize toolbar对话框,在此对话框的Categories条目中选Custom,下面将出现两个空白按钮,其中一个带小三角(可用鼠标在小三角前点击,即可发现是两个按钮),将第一个空白按钮(不带小三角)拖至查询工具栏中,查询工具栏中出现一个空白按钮,此时按Custmize toolbar对话框的Close按钮。

    (4)在Toolbar对话框激活的情况下,在刚加入的空白按钮上按鼠标右键,出现Button properties对话框,在Name 栏输入“压力中心”字样,在Macro栏输入^c^c-vbarun D:/presscenter/code.dvb!ThisDrawing.presscenter (注意:vbarun命令前有小横线,后面要加空格,另外,路径必须是Code.dvb文件保存的路径,路径中反斜杆的方向与一般的路径表示方向相反)。再点Edit按钮,编辑按钮的图样,最后按Close按钮,并关闭各对话框,就完成了按钮的制作。以后在打开AutoCAD时,此按钮和其他工具栏按钮一样可随时起作用了。

    三、示例及操作

     (1)在AutoCAD中画出如图1所示的多凸模冲裁件,此工件是在矩形坯料上同时冲出5个不同形状的孔,并切去一个10x45°的角。

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com/autocad/)

    (2)点选制作的压力中心按钮,出现Select objects:提示,根据提示在AutoCAD图形界面上选五个孔及10x45°斜边(注意不选外沿的四条边),回车,则自动求出压力中心点,其坐标值为(64,28.5)。

图1 多凸模冲裁件

    四、说明

    (1)在选择冲裁边时,注意不要选上诸如中心线,尺寸线等不是冲裁边的对象。

    (2)在选择冲裁边前,一定要将用多义线、矩形、多边形命令画的图元用炸开命令(Explode)炸开成单独图元。

    (3)程序中的注释在程序录入时可忽略。

    (4)以上程序在Windows2000和AutoCAD2000上调试通过,由于是直接计算,故结果准确。

    (5)如果是局域网用户,请先在Administrator用户下运行一次,再转入标准用户使用。

    (6)此种方法前期工作比较复杂(如程序录入、按钮制作等),但完成以后求解压力中心的操作会非常简单,在实际应用中效果很好。

    (7)按钮制作在不同Autodesk版本下稍有不同,请参阅相关技术资料。

    五、应用效果

    由于纺织机械上钣金件非常多,特别是湖北宜昌纺织机械有限公司新开发的玻璃纤维捻线机、直捻机、电锭倍捻机基本上是由钣金件组成,因此,冷冲模设计任务越来越多,依靠原来的手工方法计算不仅计算任务繁重,而且很容易计算错误。校对的人也要进行验算,如果验算结果不一致,都得反复计算。因此,笔者利用计算机直接在图纸上求解压力中心,极大的降低了设计人员的工作强度,并且比手工方法计算得更准确,从而对冷冲模的寿命更有好处。另外,将按钮直接做在AUTOCAD的工具条上,画完图后,直接选择冲裁边计算压力中心,非常方便。在近两年的实际应用中,取得了很好的效果。

展开更多 50%)
分享

猜你喜欢

在AutoCAD2000中用VBA编程求冷冲模压力中心教程

autocad教程
在AutoCAD2000中用VBA编程求冷冲模压力中心教程

图解AutoCAD2000足球建模(1)教程

autocad教程
图解AutoCAD2000足球建模(1)教程

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

图解AutoCAD2000足球建模(3)教程

autocad教程
图解AutoCAD2000足球建模(3)教程

图解AutoCAD2000足球建模(2)教程

autocad教程
图解AutoCAD2000足球建模(2)教程

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

在VBA中调用AUTOCAD打印文件

电脑网络
在VBA中调用AUTOCAD打印文件

Shift键在AUTOCAD中的几招秒用(2)教程

autocad教程
Shift键在AUTOCAD中的几招秒用(2)教程

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

AUTOCAD图形导入Coreldraw方法(2)教程

AUTOCAD图形导入Coreldraw方法(2)教程

Photoshop给野花中的美女加上唯美的粉黄色教程

Photoshop给野花中的美女加上唯美的粉黄色教程
下拉加载更多内容 ↓