Bu CATIA API fonksiyonu ne işe yarar?
Fonksiyon: CAAStrEditCoping.CATScript
Cevap:
Sub
 CATMain()


Dim
 StrWorkbench 
As
 StrWorkbench

Dim
 strFactory 
As
 StrObjectFactory


Set
 doc = CATIA.ActiveDocument

Dim
 rootProduct 
As
 Product

Set
 rootProduct = doc.Product
   

Set
 StrWorkbench = doc.GetWorkbench("StrWorkbench")
    

Dim
 strPlates 
As
 strPlates

Set
 strPlates = rootProduct.GetTechnologicalObject("StructurePlates")
   

Dim
 strMembers 
As
 strMembers

Set
 strMembers = rootProduct.GetTechnologicalObject("StructureMembers")


Dim
 selection1 
As
 Selection

Set
 selection1 = doc.Selection

selection1.Search "Name='Coping.1',all"


Dim
 NibblingToEdit 
As
 StrNibblingFeature

Set
 NibblingToEdit = selection1.Item(1).Value


Dim
 SubTypeOFNibbling 
As
 String
SubTypeOFNibbling = NibblingToEdit.SubType

NibblingToEdit.SubType = "CurrCurr"


End Sub