topic Re: Number plate Creation in Inventor Programming Forum

Number plate Creation

mahesh_s493TE — Thu, 12 Jun 2025 10:39:13 GMT

Hi,

I want to create number plate based on the excel file.

Through iLogic program is created.

Sub main
	Dim oInvApp As Inventor.Application = ThisApplication
	Dim oDoc As Document = oInvApp.ActiveDocument
	If Not TypeOf oDoc Is AssemblyDocument Then Exit Sub
	Dim oAsmDoc As AssemblyDocument = oDoc
	Dim oAsmDef As AssemblyComponentDefinition = oAsmDoc.ComponentDefinition
	Dim oPart As ComponentOccurrence
	Try : oPart = oAsmDef.Occurrences.ItemByName("OriginalPart:1") : Catch : Exit Sub : End Try
	Dim oUParams As UserParameters = oAsmDef.Parameters.UserParameters
	Dim oParam As UserParameter
	Try : oParam = oUParams("FileLocation") : Catch
		oParam = oUParams.AddByValue("FileLocation", "", UnitsTypeEnum.kTextUnits) : End Try
	oParam.Value = GetFileLocation(oInvApp)
	If String.IsNullOrEmpty(oParam.Value) Then Exit Sub
	If Not IO.File.Exists(oParam.Value) Then Exit Sub
	Call CopyPipes(oPart, oParam.Value)
	oDoc.Update()
End Sub

Private Function GetFileLocation(ByVal oInvApp As Inventor.Application) As String
	Dim oFileDlg As Inventor.FileDialog = Nothing: oInvApp.CreateFileDialog(oFileDlg)
	oFileDlg.Filter = "Excel File (*.xlsx;*.xls)|*.xlsx;*.xls"
	oFileDlg.ShowOpen()
	Return oFileDlg.FileName
End Function

Private Function CopyPipes(oPart As ComponentOccurrence, ByVal sFileLoc As String)
	Dim sNameSheet As String = "Sheet1"
	Dim i As Integer = 2
	Dim slastPN, sCellValue As String
	Dim oPartDef As PartComponentDefinition = oPart.Definition
	Dim oPartDoc As PartDocument = oPartDef.Document
	Dim oSketch As PlanarSketch = oPartDef.Sketches("TextSketch")
	Dim oText As Inventor.TextBox = oSketch.TextBoxes(1)

	GoExcel.Open(sFileLoc, sNameSheet)
	Do
		slastPN = GoExcel.CellValue(sFileLoc, sNameSheet, "A" & i)
		If Not String.IsNullOrEmpty(slastPN) Then
			oPartDef.Parameters.UserParameters("Text").Value = slastPN
			oPartDoc.Update()
			oPartDoc.SaveAs("C:\Users\ValBrid106\Documents\Project\valbrid\LVAC\NAME PLATE\" & slastPN & ".ipt", True)
		End If
		i += 1
	Loop While Not String.IsNullOrEmpty(slastPN)
	GoExcel.Close()
End Function

After run the program,

The following error message is occurred.

Error on line 40 in rule: Rule0, in document: PANEL NAME PLATE.iam

The parameter is incorrect. (Exception from HRESULT: 0x80070057 (E_INVALIDARG))

How will I modify the iLOGIC program., Kindly advice on this.,

Thanks

Re: Number plate Creation

CCarreiras — Thu, 12 Jun 2025 11:18:39 GMT

HI!

Only looking at the code will be hard to suggest something.

You have to share the files to yake a look and understand all the picture.

Re: Number plate Creation

mahesh_s493TE — Fri, 13 Jun 2025 02:28:47 GMT

Hi,

I need the name plate like below., In excel there is large of name plate to be create.

For the template creation, I make it like below.

Thanks.,

Re: Number plate Creation

batuhanozmen98 — Fri, 13 Jun 2025 07:55:47 GMT

Hi, Can you SS your Fx parameter table?

Re: Number plate Creation

mahesh_s493TE — Fri, 13 Jun 2025 09:46:25 GMT

Re: Number plate Creation

mahesh_s493TE — Fri, 13 Jun 2025 09:47:40 GMT

This one or something else.,

Re: Number plate Creation

batuhanozmen98 — Fri, 13 Jun 2025 10:45:36 GMT

Yes that one, the error at line 40 so can you change it like this:

oPartDef.Parameters.UserParameters("FileLocation").Value = slastPN

Re: Number plate Creation

mahesh_s493TE — Fri, 13 Jun 2025 10:58:46 GMT

Hi,

The same error is occurred.,

Re: Number plate Creation

batuhanozmen98 — Fri, 13 Jun 2025 11:29:33 GMT

I also need FX table of OriginalPart

Also can you try to replace line 40 with:

oText.Text = slastPN

Re: Number plate Creation

mahesh_s493TE — Fri, 13 Jun 2025 11:42:22 GMT

Hi,

After modification the code, it is working fine., Thanks a lot.,

Re: Number plate Creation

batuhanozmen98 — Fri, 13 Jun 2025 13:48:29 GMT

You are welcome

If this solved your problem, please click ACCEPT SOLUTION .

Re: Number plate Creation

mahesh_s493TE — Mon, 16 Jun 2025 03:09:34 GMT

Hi,

One more needed in this Topic,

I need to maintain text size height - 7 mm, after completion of program, the text size changed to 3.05 mm.

Initially in the OriginalPart section, text size is 7mm.

How will I maintain text size constant? any solution is there, kindly reply.

Thanks

Re: Number plate Creation

batuhanozmen98 — Mon, 16 Jun 2025 05:17:07 GMT

the solution is you need to set FormattedText of textbox if you want to keep text properties of existing text.

oText.FormattedText = slastPN

Re: Number plate Creation

mahesh_s493TE — Mon, 16 Jun 2025 06:47:23 GMT

Hi,

After updating of codes, the text height remains kept as 3.05mm.

oText.FormattedText = slastPN

Any other settings is there? kindly reply.

Re: Number plate Creation

batuhanozmen98 — Mon, 16 Jun 2025 07:07:42 GMT

Like I said If you set the text height of originalPart to 7mm setting it with formattedText will not effect the height

Also you can set the font size with this piece of code:

oText.Style.FontSize = 7.0

Re: Number plate Creation

mahesh_s493TE — Mon, 16 Jun 2025 07:35:57 GMT

Hi,

GoExcel.Open(sFileLoc, sNameSheet)
	Do
		
		slastPN = GoExcel.CellValue(sFileLoc, sNameSheet, "A" & i)
		If Not String.IsNullOrEmpty(slastPN) Then
			oText.Style.FontSize = 7.0
			oText.FormattedText = slastPN
			oPartDoc.Update()
			oPartDoc.SaveAs("C:\Users\ValBrid106\Documents\Project\valbrid\LVAC\NAME PLATE\" & slastPN & ".ipt", True)
		End If
		i += 1
	Loop While Not String.IsNullOrEmpty(slastPN)
	GoExcel.Close()
End Function

After updating of program, the text size remains as 3.05mm.,

How will I proceed further?

Re: Number plate Creation

mahesh_s493TE — Mon, 16 Jun 2025 07:54:59 GMT

Hi,

GoExcel.Open(sFileLoc, sNameSheet)
	Do
		
		slastPN = GoExcel.CellValue(sFileLoc, sNameSheet, "A" & i)
		If Not String.IsNullOrEmpty(slastPN) Then
			oText.Style.FontSize = 7.0
			oText.FormattedText = slastPN
			oPartDoc.Update()
			oPartDoc.SaveAs("C:\Users\ValBrid106\Documents\Project\valbrid\LVAC\NAME PLATE\" & slastPN & ".ipt", True)
		End If
		i += 1
	Loop While Not String.IsNullOrEmpty(slastPN)
	GoExcel.Close()
End Function

After updating of program, the text size remains as 3.05mm.,

How will I proceed further?

Re: Number plate Creation

batuhanozmen98 — Mon, 16 Jun 2025 10:10:28 GMT

try to swap these lines:

oText.Style.FontSize = 7.0
oText.FormattedText = slastPN

like this:

oText.FormattedText = slastPN
oText.Style.FontSize = 7.0

Re: Number plate Creation

mahesh_s493TE — Mon, 16 Jun 2025 10:35:33 GMT

Hi,

slastPN = GoExcel.CellValue(sFileLoc, sNameSheet, "A" & i)
		If Not String.IsNullOrEmpty(slastPN) Then
			oText.FormattedText = slastPN
			oText.Style.FontSize = 7.0
			oPartDoc.Update()
			oPartDoc.SaveAs("C:\Users\ValBrid106\Documents\Project\valbrid\LVAC\NAME PLATE\" & slastPN & ".ipt", True)
		End If
		i += 1
	Loop While Not String.IsNullOrEmpty(slastPN)
	GoExcel.Close()
End Function

After changed the codes & updating the program, the text size remains as 3.05mm.

What can I do?

Re: Number plate Creation

batuhanozmen98 — Mon, 16 Jun 2025 12:07:56 GMT

At this point you may want to share some demo project that include your iLogic rule