Hello Everyone,
I developed a macro to export catia v5 3D points coordinates from catia to excel. The problem is this macro is exporting all the 3d points coordinates to excel but i need to export points coordinates to excel from a specific Geometrical Set. I need expertise help....
sub catmain()
set objexcel=CreateObject("Excel.Application")
objexcel.Visible=True
Set objWorkbook= objexcel.workbooks.Add()
set objsheet1=objWorkbook.sheets.item(1)
objsheet1.name="Points_Coordinates"
dim coords(2) as variant
catia.activedocument.selection.search"CATPrtsearch.point,all"
for i=1 to catia.activedocument.selection.count
set selection=catia.activedocument.selection
set element=selection.item(i)
set point=element.value
point.getcoordinates(coords)
objsheet1.cells(i+1,1)=point.name
objsheet1.cells(i+1,2)=coords(0)
objsheet1.cells(i+1,3)=coords(1)
objsheet1.cells(i+1,4)=coords(2)
next i
end sub
Thanks in advance...
R Senthil Kumar.