如何导出点在catia . txt文件或excel表吗?

我从一些用户在论坛。做了一些修改。你可能会试图找出如果它的工作。

昏暗的objGEXCELapp作为对象
昏暗的objGEXCELwkBks作为对象
昏暗的objGEXCELwkBk作为对象
昏暗的objGEXCELwkShs作为对象
昏暗的objGEXCELSh作为对象
昏暗的f, f, f1、fc
昏暗的坐标(2)整数
昏暗的PartDocument1

子CATMain ()

CATIA.ActiveDocument.Selection。搜索“CATGmoSearch.Point,所有”

StartEXCEL

ExportPoint

“objGEXCELSh.Application.ActiveWorkbook。SaveAs (ExcelFolder &左(CATIA.ActiveDocument.Name Len (CATIA.ActiveDocument.Name) 8)和“xls”)
“objGEXCELSh.Application.ActiveWorkbook.Close

终止子

“* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
子StartEXCEL ()
“* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Err.Clear
在错误的简历
EXCEL.Application“集objGEXCELapp = GetObject ()

如果犯错。< > 0
Err.Clear
设置objGEXCELapp = CreateObject (“EXCEL.Application”)
如果

objGEXCELapp.Application。可见= TRUE
设置objGEXCELwkBks = objGEXCELapp.Application.WorkBooks
设置objGEXCELwkBk = objGEXCELwkBks.Add
设置objGEXCELwkShs = objGEXCELwkBk.Worksheets (1)
设置objGEXCELSh = objGEXCELwkBk。表(1)
objGEXCELSh。细胞(1 A) =“名称”
objGEXCELSh。细胞(B) = " X "
objGEXCELSh。细胞(1 C) = " Y "
objGEXCELSh。细胞(D) =“Z”

终止子

“* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
子ExportPoint ()
“* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
CATIA.ActiveDocument.Selection.Count i = 1
设置选择= CATIA.ActiveDocument.Selection
设置元素= selection.Item(我)
设置点= element.value

“PointData写入Excel表
point.GetCoordinates(坐标)

objGEXCELSh。“A”细胞(i + 1) = point.name
objGEXCELSh。“B”细胞(i + 1) =坐标(0)
objGEXCELSh。“C”细胞(i + 1) =坐标(1)
objGEXCELSh。“D”细胞(i + 1) =坐标(2)

下一个

终止子

您可以使用宏。如果你想知道更多与我联系

谢谢你,工作和它的伟大!

我试着你的宏和看起来有前途的——它打开excel和设置标题,加上它突出点在catia -但是代码给出了一个错误在这条线
点。GetCoordinates(坐标)

老实说,我不知道我在做什么在VB。
如果有影响,我使用windows 8, Catia R18。
什么好主意吗?
谢谢,西蒙

编辑- - - - - - -我也得到一个错误消息
“运行时错误13
类型不匹配”

你好,我试着与宏观穆罕默德共享但我只得到一个excel列标题在运行窗口。

与前面的步骤,可以有人帮助,也许像我需要还创建并保存一部分吗?非常感谢。