File properties Status?

Hello!

How to get the Status with File properties,

I can get Custum with this function:

 

 

to call this function:

 

Verifi_NO_Manac(objOccurrence.OccurrenceFileName, "NOMANAC", "Custom", str.Left(objOccurrence.Name, InStrRev(objOccurrence.Name, ".") - 1))

 

 

Public Function Verifi_NO_Manac22(ByRef FileWithProp As String, ByRef pKey As String, ByRef pGroup As String, ByRef NumeroManac As String) As String

 

Dim fPropSets As Object

Dim fProp As Object

 

 

fPropSets = CreateObject("SolidEdge.FileProperties")

fPropSets.Open(FileWithProp)

fProp = fPropSets(pGroup)

 

 

 

ListBox3.Items.Add(fProp(pKey).value)

 

 

If Not (fProp Is Nothing) Then

Runtime.InteropServices.Marshal.ReleaseComObject(fProp)

fProp = Nothing

End If

 

If Not (fPropSets Is Nothing) Then

fPropSets.Close()

Runtime.InteropServices.Marshal.ReleaseComObject(fPropSets)

fPropSets = Nothing

End If

 

GC.Collect()

GC.WaitForPendingFinalizers()

GC.Collect()

GC.WaitForPendingFinalizers()

End Function

 

how about the status? like if the part is obsolete or an other status

 

thank you in advance!

 

Posted by: Plante Sylvain
Post date: 1/29/2013 3:47:30 PM

1 REPLY

File properties Status?

You can get the status from the SolidEdge Constants type library

 

below is extract from help > programming with solid edge

 

igStatusAvailable = 0,

igStatusInWork = 1,

igStatusInReview = 2,

igStatusReleased = 3,

igStatusBaselined = 4,

igStatusObsolete = 5,

igStatusUnknown = 6

 

Posted by: Terry
Post date: 1/30/2013 5:27:10 AM