UnGetSmartCodes Method

Description

Resets Assigned Smart Codes on server

Syntax

Visual Basic
Public Sub UnGetSmartCodes( _ ByRef ppsaUnGetInfo() As Variant _ )

Parameters

ppsaUnGetInfo: Array of unget XML strings for which unget is to be done.

Remarks

This API will unget assigned Smart Code number if not being used. The GetSmartCodes API returns unget information per document. The caller should pass this string for unget.

Example

Example (Visual Basic)

Private Sub Command1_Click()
    On Error Resume Next
    Dim objApplication As SolidEdgeFramework.Application
    Dim objSolidEdgeInsightXT  As SolidEdgeFramework.SolidEdgeInsightXT
    
    Set objApplication = GetObject(, "SolidEdge.Application")
    Set objSolidEdgeInsightXT = objApplication.SolidEdgeInsightXT

    'Example takes string array with one element
    Dim ObjUnGetInfo(0) As Object
    ObjUnGetInfo(0) = sUngetXML
    Call objSolidEdgeInsightXT.UnGetSmartCodes(ObjUnGetInfo)

    Set objSolidEdgeInsightXT = Nothing
    Set objApplication = Nothing
End Sub