GeneratePublication

From scripting
Revision as of 05:38, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Function GeneratePublication(CurPart As Part, CurObj As Variant) As Publication Dim GBool As Boolean GBool = False Dim CurSel Set CurSel = CurObj Dim partDocument1 As...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
Function GeneratePublication(CurPart As Part, CurObj As Variant) As Publication
Dim GBool As Boolean
GBool = False
Dim CurSel
Set CurSel = CurObj 

Dim partDocument1 As PartDocument
Set partDocument1 = AvailDocs.Item(CurPart.Name & ".CATPart")
Dim product1 As Product
Set product1 = partDocument1.GetItem(CurPart.Name)
Dim reference1 As Reference
Set reference1 = product1.CreateReferenceFromName(CurPart.Name & "/!" & CurSel.Name)                '"T01_DRV/!Plane.1")

Dim Pubs As Publications
Set Pubs = product1.Publications 

For Z = 1 To Pubs.Count
    If Pubs.Item(Z).Name = CurSel.Name Then
        GBool = True
    End If
Next Z
If GBool = False Then
    Dim publication1 As Publication
    Set publication1 = Pubs.Add(CurSel.Name)
    Pubs.SetDirect CurSel.Name, reference1
End If
Set GeneratePublication = publication1
End Function