Exporting points in catia into .txt file or to Excel sheet

CATIA点导出至Excel

最新推荐文章于 2021-03-17 05:24:27 发布

转载最新推荐文章于 2021-03-17 05:24:27 发布 · 907 阅读

CATIA 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一种使用VBA宏将CATIA中的点坐标批量导出到Excel的方法。通过此方法，用户可以轻松地将多个点的坐标数据导出为电子表格，便于进一步的数据分析或处理。

Exporting points in catia into .txt file or to Excel sheet

https://grabcad.com/questions/how-to-export-points-in-catia-into-txt-file-or-to-excel-sheet

Dim objGEXCELapp As Object 
Dim objGEXCELwkBks As Object 
Dim objGEXCELwkBk As Object 
Dim objGEXCELwkShs As Object 
Dim objGEXCELSh As Object 
Dim fs, f, f1, fc, s 
Dim coords(2) As Integer 
Dim PartDocument1
Sub CATMain()
CATIA.ActiveDocument.Selection.Search "CATGmoSearch.Point,all"
StartEXCEL
ExportPoint
'objGEXCELSh.Application.ActiveWorkbook.SaveAs (ExcelFolder & Left(CATIA.ActiveDocument.Name,Len(CATIA.ActiveDocument.Name)-8) & ".xls") 
'objGEXCELSh.Application.ActiveWorkbook.Close
End Sub
'****************************************************************************** 
Sub StartEXCEL() 
'****************************************************************************** 
Err.Clear 
On Error Resume Next 
Set objGEXCELapp = GetObject (,"EXCEL.Application") 

If Err.Number <> 0 Then 
Err.Clear 
Set objGEXCELapp = CreateObject ("EXCEL.Application") 
End If
objGEXCELapp.Application.Visible = TRUE 
Set objGEXCELwkBks = objGEXCELapp.Application.WorkBooks 
Set objGEXCELwkBk = objGEXCELwkBks.Add 
Set objGEXCELwkShs = objGEXCELwkBk.Worksheets(1) 
Set objGEXCELSh = objGEXCELwkBk.Sheets (1) 
objGEXCELSh.Cells (1,"A") = "Name" 
objGEXCELSh.Cells (1,"B") = "X" 
objGEXCELSh.Cells (1,"C") = "Y" 
objGEXCELSh.Cells (1,"D") = "Z"
End Sub
'****************************************************************************** 
Sub ExportPoint() 
'****************************************************************************** 
For i = 1 To CATIA.ActiveDocument.Selection.Count 
Set selection = CATIA.ActiveDocument.Selection 
Set element = selection.Item(i) 
Set point = element.value
'Write PointData to Excel Sheet 
point.GetCoordinates(coords)
objGEXCELSh.Cells (i+1,"A") = point.name 
objGEXCELSh.Cells (i+1,"B") = coords(0) 
objGEXCELSh.Cells (i+1,"C") = coords(1) 
objGEXCELSh.Cells (i+1,"D") = coords(2)
Next
End Sub