Difference between pages "GenerateOffCurve" and "GeneratePublication"
From scripting
(Difference between pages)
(Created page with " global proc string GenerateOffCurve(vector $Pt1, vector $Pt2, float $OffDist, string $NameStr) { vector $MidVec = OffMidVector($Pt1, $Pt2, $OffDist); vector $M1 = O...") |
(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...") |
||
Line 1: | Line 1: | ||
− | + | 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 | ||
− | |||
− | + | [[Category:CATIA DP VB]] | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | [[Category: |
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