Gets the object assigned to the specified persistent reference ID.
.NET Syntax
Visual Basic (Declaration) | |
---|
Function GetObjectByPersistReference3( _
ByVal PersistId As System.Object, _
ByRef ErrorCode As System.Integer _
) As System.Object |
Visual Basic (Usage) | |
---|
Dim instance As IModelDocExtension
Dim PersistId As System.Object
Dim ErrorCode As System.Integer
Dim value As System.Object
value = instance.GetObjectByPersistReference3(PersistId, ErrorCode) |
C# | |
---|
System.object GetObjectByPersistReference3(
System.object PersistId,
out System.int ErrorCode
) |
C++/CLI | |
---|
System.Object^ GetObjectByPersistReference3(
& System.Object^ PersistId,
& [Out] System.int ErrorCode
) |
Parameters
- PersistId
Object's persistent reference ID (see Remarks)
- ErrorCode
Success or error code as defined by swPersistReferencedObjectStates_e (see Remarks)
Return Value
Object (see
Remarks)
Example
Sub main ()
Set swApp = Application.SldWorks
Set Doc = swApp.ActiveDoc
Set SelMgr = Doc.SelectionManager
If SelMgr.GetSelectedObjectCount(-1) = 0 Then Debug.Print "No selections found.": Exit Sub
Dim persistRef As Variant
Dim selObj As Object
Set selObj = SelMgr.GetSelectedObject6(1, -1)
persistRef = Doc.Extension.GetPersistReference3(selObj)
Debug.Print UBound(persistRef)
Set selObj = Nothing
Set selObj = Doc.Extension.GetObjectByPersistReference3(persistRef, longstatus)
Debug.Print (Not selObj Is Nothing)
Dim selConfig As Configuration
Set selConfig = selObj.GetSpecificFeature2
End Sub
Example
Remarks
See Also
Availability
SOLIDWORKS 2007 SP3, Revision Number 15.3