Sub Label_Template_Creation()

    ' This test subroutine was created to show how label templates can be

    ' automatically generated using PC-DMIS Automation

    ' This was created inside Microsoft Excel

    ' Make sure PC-DMIS is running

    If MsgBox("This example will use your existing measurement routine and create an automatic Label Template. Is PC-DMIS running and is your measurement routine loaded?", vbYesNo, "Automated Label Template Creation") = vbNo Then

        MsgBox "Closing this example. Try again once PC-DMIS is running and a measurement routine is loaded.", vbExclamation

        Exit Sub

    End If

    ' Create the PC-DMIS Application

    Dim PCDApp As PCDLRN.Application

    Set PCDApp = CreateObject("Pcdlrn.Application")

    ' Open a Measurement Routine

    Dim PP As PartProgram

    Set PP = PCDApp.ActivePartProgram

    Dim LabelTemplates As LabelTemplates

    Set LabelTemplates = PCDApp.LabelTemplates

    Dim LabelTemplate As LabelTemplate

    ' Add a new Label Template

    Set LabelTemplate = LabelTemplates.Add

    ' Add a TextObject into a Label Template

    Set TextObj = LabelTemplate.LabelControls.Add(ID_HOB_TEXT, 0, 0, 50, 30)

    TextObj.Font = 16

    TextObj.Alignment = 1 ' To center it

    TextObj.BackColor = RGB(128, 0, 64)

    TextObj.ForeColor = RGB(255, 255, 255)

    TextObj.Text = "=ID" ' Code to display specified Feature ID or Dimension ID

    ' Save the changes to the Report Template

    LabelTemplate.SaveAs "d:\temp\TestLabelTemplate.lbl"

    MsgBox "The Label Template is now created. You can open it up inside of PC-DMIS to see what it looks like.", vbInformation, "Label Template Finished"

    LabelTemplate.Close

End Sub

LabelTemplates Object  | LabelTemplates Members