Number plate Creation

[mahesh_s493TE]

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

[CCarreiras]

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.

[mahesh_s493TE]

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.,

[batuhanozmen98]

Hi, Can you SS your Fx parameter table?

[mahesh_s493TE]

[mahesh_s493TE]

This one or something else.,

[batuhanozmen98]

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

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

[mahesh_s493TE]

Hi,

The same error is occurred., 

[batuhanozmen98]

I also need FX table of OriginalPart

Also can you try to replace line 40 with:

oText.Text = slastPN

[mahesh_s493TE]

Hi,

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

[batuhanozmen98]

You are welcome

If this solved your problem, please click ACCEPT SOLUTION .

[mahesh_s493TE]

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

[batuhanozmen98]

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

oText.FormattedText = slastPN

[mahesh_s493TE]

Hi,

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

oText.FormattedText = slastPN

Any other settings is there? kindly reply.

[batuhanozmen98]

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

[mahesh_s493TE]

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?

[mahesh_s493TE]

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?

[batuhanozmen98]

try to swap these lines:

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

like this:

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

[mahesh_s493TE]

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?

[batuhanozmen98]

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