用VB做的简单的宏 这个也属于二次开发Language="VBSCRIPT"Sub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet selection1 = partDocument1.Selectionselection1.Clear Set part1 = partDocument1.PartSet hybridBodies1 = part1.HybridBodiesSet OBlines = hybridBodies1.Item("input") 'input documentSet OBarranged = hybridBodies1.Item("arranged lines") 'output documentFor i = 1 To OBlines.HybridShapes.CountSet hybridShapeCurveExpliciti = OBlines.HybridShapes.Item(i)selection1.Add hybridShapeCurveExplicitiNextselection1.Copy Set partDocument1 = CATIA.ActiveDocumentSet selection2 = partDocument1.Selectionselection2.Clear Set hybridBodies1 = part1.HybridBodiesSet hybridBody1 = hybridBodies1.Item("arranged lines")selection2.Add hybridBody1selection2.Paste End Sub该宏是将("input") 中的东西复制,然后粘贴到("arranged lines")
我也想知道阿。谢谢给我高手给点建议。 要是有相关的资料就更加感激拉/