CATIA读取EXCEL

《CATIA读取EXCEL》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、在CATIA中利用VBA读取EXCEL中的数据  '本程序可以把EXCEL表格中按一定格式存储的点、线、面等数据读取到CATIA并创建相应的对象'点数据是基本数据，线由点组成，面又由线组成，因此只有填写了点数据后才能添加线数据，'面与线类似。本程序中默认的扩展数据为关键点处的内力数据，其ID应该与点数据的ID一致。'下表中具体含义：ID—数据编号，（X，Y，Z）—点数据坐标值，（P1，P2）—组成线的点ID，'（L1，L2）—组成面的线ID，（M，N，Q）—关键点处弯矩、轴力、剪力的数值。'程序界面如下： 

2、                                  '注意：表格中的数据区可以为空，每一类数据中只要有一行中出现空值，即认为该'     类数据结束，其后的数据不再读取。本程序启动一次读入一张表格后，其点、线、面'     数据不应该被改变。但其内力（M，N，Q）的数值允许改变，保存表格后，可以选择更'     新内力图（如果程序窗口已经关闭，重新启动后不要选中“创建点”后重新打开文件）'     但一定要保证CATIA中该表格数据所在的几何图形集名称与表格对应，通常默认即可。'     如

3、果数据表中的点、线、面数据有变，即认为这是一张新的数据表，应该换一个新的文'     件名并作为新的数据表重新导入，若不改名则请确保当前PART根结点下没有与其文件名'     相同的几何图形集（此处几何图形集的命名方式为：DATAFORMEXCEL-文件名）。'     另外，内力关键点必须在同一平面内，且不在同一直线上。'默认的EXCLE表格中数据格式如下：'表格可以扩展，具体格式也可能改变，此时须改变下列常数的值，以保证与表格中的一致'程序中使用的有关常数定义：ConstData_Start_Row=

4、3ConstPoint_ID_Col=1ConstPoint_X_Col=2ConstPoint_Y_Col=3ConstPoint_Z_Col=4ConstLine_ID_Col=6ConstLine_Point1_Col=7ConstLine_Point2_Col=8ConstMesh_ID_Col=10ConstMesh_Line1_Col=11ConstMesh_Line2_Col=12ConstForce_ID_Col=14ConstForce_M_Col=15ConstForce_N_Col=1

5、6ConstForce_Q_Col=17DimEXCELAsObject '*************************************PrivateSubCreatePoint_CheckBox_Change()CreateLine_CheckBox.Value=CreatePoint_CheckBox.ValueCreateLine_CheckBox.Enabled=CreatePoint_CheckBox.ValueEndSubPrivateSubCreateLine_CheckBox_

6、Change()CreateMesh_CheckBox.Value=CreateLine_CheckBox.ValueCreateMesh_CheckBox.Enabled=CreateLine_CheckBox.ValueEndSubPrivateSubChooseFile_CommandButton_Click()OnErrorGoToerror_1SetEXCEL=CreateObject("EXCEL.Application","")DimDataFileNameAsStringDataFileNa

7、me=EXCEL.GetOpenFilename("EXCELFiles(*.xls),*.xls")IfDataFileName<>"False"Then   EXCEL.workbooks.OpenDataFileName   MainForm_UserForm.ChooseFile_CommandButton.Caption=DataFileName      IfCreatePoint_CheckBox.Value=TrueThen       DimCur_hybridBodyAsHybridBo

8、dy       SetCur_hybridBody=Set_Cur_HybridBody()       CreatePointCur_hybridBody       IfCreateLine_CheckBox.Value=TrueThen           CreateLineCur_hybridBody           IfCreateMesh_CheckBox.Value=TrueThen