This example asks the end user to select a face and two planar faces, and creates a draft on these faces:
Dim InputObjectType(0)
Set Document = CATIA.ActiveDocument
Set Selection = Document.Selection
'We propose to the user that he select the face to draft
InputObjectType(0)="Face"
Status=Selection.SelectElement2(InputObjectType,"Select the face to draft",true)
if (Status = "cancel") then Exit Sub
Set FaceToDraft = Selection.Item(1).Value
Selection.Clear
'We propose to the user that he select the neutral face
InputObjectType(0)="PlanarFace"
Status=Selection.SelectElement2(InputObjectType,"Select the neutral face",true)
if (Status = "cancel") then Exit Sub
Set NeutralFace = Selection.Item(1).Value
Selection.Clear
'We propose to the user that he select the parting element
InputObjectType(0)="PlanarFace"
Status=Selection.SelectElement2(InputObjectType,"Select the parting element",true)
if (Status = "cancel") then Exit Sub
Set PartingElement = Selection.Item(1).Value
Set Draft = ShapeFactory.AddNewDraft(FaceToDraft,NeutralFace,0,PartingElement,0.0,0.0,1.0,0,5.0,0)
Set DraftDomains = Draft.DraftDomains
Set DraftDomain = DraftDomains.Item(1)
DraftDomain.SetPullingDirection 0.0, 0.0,1.0
Document.Part.Update