Difference between revisions of "GeneratePublication"
From scripting
(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...") |
(No difference)
|
Latest revision as of 05:38, 22 April 2017
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