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

yjh7788

在AutoCAD中用VBA编程求冷冲模压力中心
随着冷冲模设计任务的增多，依靠原来的手工方法计算不仅任务繁重，而且很容易出现计算错误。基于上面情况，笔者在AutoCAD2000中用VBA编程，直接在图纸上求解压力中心，极大地降低了设计人员的工作强度。这种方法比手工方法计算更准确，也使冷冲模的寿命更长。
" v# n3 w" ?, A! l8 }% w
4 A* _; k! F5 s* e+ i5 Z" D: G/ ^2 g一、概述

冷冲模压力中心是冲裁力合力的作用点，准确求解压力中心对于冷冲模的正常工作至关重要。
& j3 D; x1 ?0 U9 x3 P- Y- ~- f+ H
2 y4 m1 l1 y, I* y+ i/ _: ?' ^在AutoCAD中，常用的求压力中心的方法是先用pedit命令将冲裁边编辑成多义线，再向两边偏移微小距离，运用一定的编辑方法围绕冲裁边形成一个狭窄封闭区域，用region命令编辑成面域，再用AutoCAD的Massprop命令求出面域质心，此质心接近压力中心。对于复杂冲裁件，上述方法操作起来比较繁琐，并且用Pedit命令编辑时要求线与线之间必须完全连接（特别是当从其他绘图软件转换过来的图形连接不是很好时，这点影响较大）。更为重要的是，每一次求解压力中心都得进行类似的繁琐工作。
8 b) V! R" F2 G3 u% U
基于上述原因，笔者依据最基本，也是最准确的计算法，运用AutoCAD2000下VBA编程求解冲模的压力中心，再将其做成按钮，置于查询（Inquiry）工具条上，即可在所画图形上直接求解压力中心。程序基本思路为：先选择代表冲裁边的图元对象，再逐一判断是何种对象，从而转入相应对象的计算处理。根据计算法原理，将此对象的压力中心求出，并将它们当作一个对象，与下一个对象计算，求出新的压力中心，直至处理完所有对象。最后求出的压力中心即为整个冲模的压力中心。
6 p5 y' G/ p: Y) P
1 C, R% J( o& Z- a; L* O  \" i  r/ C二、程序输入及按钮制作
* s( S( v: \8 L0 O3 d
（1）打开AutoCAD2000，选择工具菜单下Visual basic编辑器，输入程序并存为Code.dvb文件（其文件位置假设为D:\presscenter\code.dvb）。完整程序参见http://www.icad.com.cn/list.asp?boardid=11

（2）选择AutoCAD工具菜单下的加载应用程序，在Startup suite中加入保存的Code.dvb文件，关闭各对话框。以后在启动AutoCAD时，将自动加载此工程文件。
$ e+ ?# ?" V2 g% L! Q# ^# H
; P0 F6 @7 z! y! a% h（3）打开视图菜单下工具栏(Toolbar)对话框，选取查询工具条，则查询工具条出现在界面上。接着点Customize按钮，出现Customize toolbar对话框，在此对话框的Categories条目中选Custom，下面将出现两个空白按钮，其中一个带小三角（可用鼠标在小三角前点击，即可发现是两个按钮），将第一个空白按钮（不带小三角）拖至查询工具栏中，查询工具栏中出现一个空白按钮，此时按Custmize toolbar对话框的Close按钮。

" P$ d3 {/ s* O0 i. T8 y- g  r（4）在Toolbar对话框激活的情况下，在刚加入的空白按钮上按鼠标右键，出现Button properties对话框，在Name 栏输入“压力中心”字样，在Macro栏输入^c^c-vbarun D:/presscenter/code.dvb!ThisDrawing.presscenter （注意：vbarun命令前有小横线，后面要加空格，另外，路径必须是Code.dvb文件保存的路径，路径中反斜杆的方向与一般的路径表示方向相反）。再点Edit按钮，编辑按钮的图样，最后按Close按钮，并关闭各对话框，就完成了按钮的制作。以后在打开AutoCAD时，此按钮和其他工具栏按钮一样可随时起作用了。
* B" ]4 M, L+ \( L) O6 l) O: {+ D
三、示例及操作
# X( W8 o5 D' Z$ k
" ~, _, C2 f( Y4 n; V# r3 ~0 \; M1 j（1）在AutoCAD中画出如图1所示的多凸模冲裁件，此工件是在矩形坯料上同时冲出5个不同形状的孔，并切去一个10x45°的角。
3 I( s8 F* }) w7 I: f
（2）点选制作的压力中心按钮，出现Select objects：提示，根据提示在AutoCAD图形界面上选五个孔及10x45°斜边（注意不选外沿的四条边），回车，则自动求出压力中心点，其坐标值为（64，28.5）。

四、说明
1 S9 k; e) D% X' z) F
9 \6 B& q( H- `/ I（1）在选择冲裁边时，注意不要选上诸如中心线，尺寸线等不是冲裁边的对象。

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

0 s. L" m* x+ v4 d3 T  i# F" z（3）程序中的注释在程序录入时可忽略。

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

$ |) B; k/ k$ h; t( o（5）如果是局域网用户，请先在Administrator用户下运行一次，再转入标准用户使用。

2 }" O- P( K) a) f1 a+ j  T（6）此种方法前期工作比较复杂（如程序录入、按钮制作等），但完成以后求解压力中心的操作会非常简单，在实际应用中效果很好。
6 l. p$ I$ p5 M! R" ^
9 k  P* \! }: {( }7 p6 b  \+ n9 B（7）按钮制作在不同Autodesk版本下稍有不同，请参阅相关技术资料。

0 w, H+ o) J$ u五、应用效果

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

iwantit

晕倒，可不可以用三维软件辅助生产？
无论是 ug 还是 proe 都有现成的功能啊