Difference between pages "GeneratePublication" and "GenerateRealParametersFromDblArray"

From scripting
(Difference between pages)
Jump to: navigation, search
(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...")
 
(Created page with " Function GenerateRealParametersFromDblArray(ParmList As Parameters, DblArr As Variant) As Variant Dim ParmArr() ReDim ParmArr(UBound(DblArr)) For X = 0 To UBound(DblArr)...")
 
Line 1: Line 1:
−
  Function GeneratePublication(CurPart As Part, CurObj As Variant) As Publication
+
  Function GenerateRealParametersFromDblArray(ParmList As Parameters, DblArr As Variant) As Variant
−
  Dim GBool As Boolean
+
  Dim ParmArr()
−
  GBool = False
+
  ReDim ParmArr(UBound(DblArr))
−
  Dim CurSel
+
  For X = 0 To UBound(DblArr)
−
Set CurSel = CurObj
+
    Set ParmArr(X) = ParmList.CreateReal("STD_Rad" & Format(X, "00"), DblArr(X))
−
+
  Next X
−
Dim partDocument1 As PartDocument
+
  GenerateRealParametersFromDblArray = ParmArr
−
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
 
  End Function
−
 
  
  
 
[[Category:CATIA DP VB]]
 
[[Category:CATIA DP VB]]

Latest revision as of 05:38, 22 April 2017

Function GenerateRealParametersFromDblArray(ParmList As Parameters, DblArr As Variant) As Variant
Dim ParmArr()
ReDim ParmArr(UBound(DblArr))
For X = 0 To UBound(DblArr)
    Set ParmArr(X) = ParmList.CreateReal("STD_Rad" & Format(X, "00"),  DblArr(X))
Next X
GenerateRealParametersFromDblArray = ParmArr
End Function
Retrieved from "http://nickpisca.com/BLAST/index.php?title=GeneratePublication&oldid=111"