Export Catia V5 Drawing Text
Export Catia V5 Drawing Text
(OP)
Hi Friends,
Please help me to copy all the Texts on Active Drawing sheet & Paste it to Excel.
Is it possible?
Thanks in advance
Regards
Datta Raja
Please help me to copy all the Texts on Active Drawing sheet & Paste it to Excel.
Is it possible?
Thanks in advance
Regards
Datta Raja





RE: Export Catia V5 Drawing Text
CODE -->
Sub Export_Drawing_Texts() Path = "C:\Alex\Book1.xlsx" Set objExcel = CreateObject("Excel.Application") Set workbook = objExcel.Workbooks.Open(Path) workbook.Application.Visible = True workbook.Parent.Windows(1).Visible = True objExcel.Cells(1, 1).Value = "Text Name" objExcel.Cells(1, 2).Value = "Text Value" Dim oDrawing As DrawingDocument Set oDrawing = CATIA.ActiveDocument Dim oSheets As DrawingSheets Set oSheets = oDrawing.Sheets For a = 1 To oSheets.Count Dim oSheet As DrawingSheet Set oSheet = oSheets.Item(a) Dim oView As DrawingView Set oView = oSheet.Views.Item(1) oView.Activate Dim oText As DrawingTexts Set oText = oView.Texts For i = 2 To oText.Count Set ThisDrawingText = oText.Item(i) objExcel.Cells(i, 1).Value = ThisDrawingText.Name objExcel.Cells(i, 2).Value = ThisDrawingText.Text Next i Next a End SubRE: Export Catia V5 Drawing Text
Thanks a Lot..for your quick reply.
It is working..