CATIA VBA: Updating productName

以下代码用于批量修改CATIA产品下的所有产品节点名称：

Sub CATMain()

 Set partDocument1 = CATIA.ActiveDocument

 Set product1 = partDocument1.Product

 Dim count As Integer

 count = 1

 renameProductRecursively product1, count

End Sub

Function renameProductRecursively(product, count)

 For Each subProduct in product.Products

   renameProductRecursively subProduct, count

 Next

 Set parentAssembly = product.Parent.Parent

 If StrComp(TypeName(parentAssembly), "Product") = 0 Then

   parentAssembly.ReferenceProduct.Products.Item(product.Name).Name = _

   CStr(product.PartNumber) & CStr("." & count)

   count = count + 1

 End If

End Function

武汉格发信息技术有限公司，格发许可优化管理系统可以帮你评估贵公司软件许可的真实需求，再低成本合规性管理软件许可,帮助贵司提高软件投资回报率，为软件采购、使用提供科学决策依据。支持的软件有: CAD,CAE,PDM,PLM,Catia,Ugnx, AutoCAD, Pro/E, Solidworks ,Hyperworks, Protel,CAXA,OpenWorks LandMark,MATLAB,Enovia,Winchill,TeamCenter,MathCAD,Ansys, Abaqus,ls-dyna, Fluent, MSC,Bentley,License,UG,ug,catia,Dassault Systèmes,AutoDesk,Altair,autocad,PTC,SolidWorks,Ansys,Siemens PLM Software,Paradigm,Mathworks,Borland,AVEVA,ESRI,hP,Solibri,Progman,Leica,Cadence,IBM,SIMULIA,Citrix,Sybase,Schlumberger,MSC Products...