Hi all,
Thanks to all your help, I developed a windows application that creates simple drawings automatically. Now I let my other colleagues to test my first application but the problem is that it is working very well on my PC but on my colleague's PC, it gives me an error message below saying "Exception from HRESULT 0x80070057", "Parameter is incorrect" etc..
I already double checked about following points;
- Inventor is active.
- Inventor version is 2021 (that is same version as I use).
- Template file is stored on the internal server, not on my PC.
- Assigned file name is unique (new), not same to existing file.
Sorry for my spaghetti code but here it is.
Imports Inventor
Public Class Form1
Dim internalDiameter As Double
Dim externalDiameter As Double
Dim height As Double
Dim radius1 As Double
Dim radius2 As Double
Dim endless As Boolean
Dim split As Boolean
Dim splitType As String
Dim drawingNumber As String
Dim partDoc As Inventor.PartDocument
Dim param As Inventor.Parameter
Dim invApp As Inventor.Application
'##### Endless/Split Boolean'
Public Sub radiobutton_endless_Click(sender As Object, e As EventArgs) Handles radiobutton_endless.Click
If radiobutton_endless.Checked = True Then
endless = True
splitType = "Endless"
End If
End Sub
Public Sub radiobutton_split_Click(sender As Object, e As EventArgs) Handles radiobutton_split.Click
If radiobutton_split.Checked = True Then
split = True
splitType = "Double Splits"
End If
End Sub
Public Sub button_ok_Click(sender As Object, e As EventArgs) Handles button_ok.Click
'##### Get the values from textbox and store as variable (Double)'
internalDiameter = textbox_internalDiameter.Text
externalDiameter = textbox_externalDiameter.Text
height = textbox_height.Text
drawingNumber = textbox_drawingNumber.Text
Dim fascia As Double = (externalDiameter - internalDiameter) * 0.5
Dim medio As Double = (externalDiameter + internalDiameter) * 0.5
' ##### Verifying the values
If internalDiameter > externalDiameter Then
MessageBox.Show("Internal Diameter must be smaller than external diameter!", "Wrong Dimension", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Me.Close()
End If
If internalDiameter + 7 >= externalDiameter Then
MessageBox.Show("Cross section is too small!", "Wrong Dimension", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Me.Close()
End If
If height > 50 Then
MessageBox.Show("Isn't the height too high?" & vbCrLf & "Lower the height and insert a backup ring.", "Wrong Dimension", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Me.Close()
End If
If height < fascia * 0.7 Then
Dim fasciaMinimum As Double = (fascia * 0.7) + 0.05
MessageBox.Show("The height is too low. Make it higher than " & Math.Round([fasciaMinimum], 1, MidpointRounding.AwayFromZero) & " mm.", "Wrong dimension", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Me.Close()
End If
If internalDiameter > 2100 Or externalDiameter > 2100 Then
MessageBox.Show("Isn't the diameter too big? Contact ufficio tecnico.", "Troppo grande", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Me.Close()
End If
'##### Get the Inventor Application object
Dim invApp As Inventor.Application
invApp = GetObject(, "Inventor.Application")
'##### Open the part.'
invApp.Documents.Open("\\dataserver2019\Tecnici\CARCO\EngineeringTEAM\AUTOMATIC_CREATOR\automated-drawing-female.ring\automated-drawing-female.ring\female_ring.ipt")
'##### Get the active document. This assums it's a part document.
partDoc = invApp.ActiveDocument
'##### Get the Parameters collection.
Dim params As Inventor.Parameters
params = partDoc.ComponentDefinition.Parameters
'##### Get the parameter named "fasica_parameter"'
Dim oFasciaParam As Inventor.Parameter
oFasciaParam = params.Item("fascia_parameter")
'##### Get the parameter named "height_parameter"'
Dim oHeightParam As Inventor.Parameter
oHeightParam = params.Item("height_parameter")
'##### Get the parameter named "externalDiameter_parameter"'
Dim oExternalDiameterParam As Inventor.Parameter
oExternalDiameterParam = params.Item("externalDiameter_parameter")
' Get the parameter named "radius1_parameter"
Dim oRadius1Param As Inventor.Parameter
oRadius1Param = params.Item("radius1_parameter")
' Get the parameter named "radius2_parameter"
Dim oRadius2Param As Inventor.Parameter
oRadius2Param = params.Item("radius2_parameter")
'##### Calculation Fascia
If textbox_externalDiameter.Text < 300 Then
fascia = fascia - 0.4
ElseIf textbox_externalDiameter.Text >= 300 And textbox_externalDiameter.Text < 900 Then
fascia = fascia - 0.6
Else
fascia = fascia - 0.8
End If
' Set the range of "Radius1" & "Radius2"
If fascia <= 5 Then
radius1 = 1
radius2 = 0.5
ElseIf fascia > 5 And fascia <= 7 Then
radius1 = 1
radius2 = 1
ElseIf fascia > 7 And fascia <= 9 Then
radius1 = 1
radius2 = 1.5
ElseIf fascia > 9 And fascia <= 10.25 Then
radius1 = 1
radius2 = 2
ElseIf fascia > 10.25 And fascia <= 13.5 Then
radius1 = 1.5
radius2 = 2
ElseIf fascia > 13.5 And fascia <= 17.75 Then
radius1 = 1.5
radius2 = 3
ElseIf fascia > 17.75 And fascia <= 22.2 Then
radius1 = 2
radius2 = 3
ElseIf fascia > 22.2 And fascia <= 22.9 Then
radius1 = 2.5
radius2 = 3
ElseIf fascia > 22.9 And fascia <= 28.5 Then
radius1 = 2.5
radius2 = 3.5
Else ' fascia >28.5
radius1 = 2.5
radius2 = 5
End If
'##### Calculation External diameter
externalDiameter = medio + fascia
'##### Assign extra 1mm on diameter in case of double split.'
If split = True Then
externalDiameter = externalDiameter + 1
End If
' ##### Tolerance setting
' Fascia
If fascia < 15 Then
Call oFasciaParam.Tolerance.SetToSymmetric("0.1 mm")
Else
Call oFasciaParam.Tolerance.SetToSymmetric("0.15 mm")
End If
'Height
If height < 15 Then
Call oHeightParam.Tolerance.SetToSymmetric("0.1 mm")
Else
Call oHeightParam.Tolerance.SetToSymmetric("0.15 mm")
End If
' TOLERANCE External Diameter
' DOUBLE SPLIT
If split = True And externalDiameter < 1100 Then
Call oExternalDiameterParam.Tolerance.SetToDeviation("1.0 mm", "-0.0 mm")
End If
If split = True And externalDiameter >= 1100 Then
Dim splitToleranceExternalDiameter As Double = externalDiameter * 0.0001
Call oExternalDiameterParam.Tolerance.SetToDeviation(Math.Round([splitToleranceExternalDiameter], 2), "-0,0 mm") ' standard unit is cm, thus apply extra 0.1
End If
' TOLERANCE External Diameter
' ENDLESS 2 CASES : CROSS SECTION 15.0 mm
Dim PositiveToleranceSmallerThan15 As Double
Dim NegativeToleranceSmallerThan15 As Double
Dim PositiveToleranceBiggerThan15 As Double
Dim NegativeToleranceBiggerThan15 As Double
If endless = True And fascia < 15 Then
PositiveToleranceSmallerThan15 = textbox_externalDiameter.Text - medio - fascia - 0.1
NegativeToleranceSmallerThan15 = (medio + fascia) - fascia - fascia - textbox_internalDiameter.Text - 0.2 - 0.1
Call oExternalDiameterParam.Tolerance.SetToDeviation(PositiveToleranceSmallerThan15 * 0.1, NegativeToleranceSmallerThan15 * -0.1)
End If
If endless = True And fascia >= 15 Then
PositiveToleranceBiggerThan15 = textbox_externalDiameter.Text - medio - fascia - 0.1
NegativeToleranceBiggerThan15 = (medio + fascia) - fascia - fascia - textbox_internalDiameter.Text - 0.3 - 0.1
Call oExternalDiameterParam.Tolerance.SetToDeviation(PositiveToleranceBiggerThan15 * 0.1, NegativeToleranceBiggerThan15 * -0.1)
End If
' Final tolerance for split
Dim finalTolerancePositive As Double
Dim finalToleranceNegative As Double
If fascia < 15 Then
finalTolerancePositive = textbox_externalDiameter.Text - medio - fascia - 0.1
finalToleranceNegative = ((medio + fascia) - fascia - fascia - textbox_internalDiameter.Text - 0.2 - 0.1) * -1
End If
If fascia >= 15 Then
finalTolerancePositive = textbox_externalDiameter.Text - medio - fascia - 0.1
finalToleranceNegative = ((medio + fascia) - fascia - fascia - textbox_internalDiameter.Text - 0.3 - 0.1) * -1
End If
finalTolerancePositive = Math.Round([finalTolerancePositive], 2)
finalToleranceNegative = Math.Round([finalToleranceNegative], 2)
'##### Change the equation of the parameter.'
oFasciaParam.Expression = fascia
oHeightParam.Expression = height
oExternalDiameterParam.Expression = externalDiameter
oRadius1Param.Expression = radius1
oRadius2Param.Expression = radius2
'##### ///Controlling iProperties part'
'##### Get the "Design Tracking Properties" property set.'
Dim designTrackPropSet As Inventor.PropertySet
designTrackPropSet = partDoc.PropertySets.Item("Design Tracking Properties")
'##### Assign "Drawing N°".'
'##### Get the "Description" property from the property set.'
Dim descProp As Inventor.Property
descProp = designTrackPropSet.Item("Description")
'##### Set the value of the property using the current value of the textbox.'
descProp.Value = textbox_object.Text
' ##### Assign "Material"
' ##### Get the "Material" property from the property set.
Dim materialType As Inventor.Property
materialType = designTrackPropSet.Item("Material")
' ##### Set the value of the property using the value from input form
materialType.Value = comboBox_materialType.Text
'##### Assign "Description (Endless/Double splits)".'
'##### Get the "Project" property from the property set.'
Dim splitProp As Inventor.Property
splitProp = designTrackPropSet.Item("Project")
'##### Set the value of the property using the current value of the textbox.'
If endless = True Then
splitProp.Value = "Female ring Endless"
End If
If split = True Then
splitProp.Value = "Female ring double splits"
End If
'##### Assign "Housing dimension".'
'##### Get the "Inventor Summary Information" property set.'
Dim inventorSummaryInfoPropSet As Inventor.PropertySet
inventorSummaryInfoPropSet = partDoc.PropertySets.Item("Inventor Summary Information")
'##### Get the "Subject" property from the property set.'
Dim housingProp As Inventor.Property
housingProp = inventorSummaryInfoPropSet.Item("Subject")
'##### Set the value of the property using the current value of the textbox.'
housingProp.Value = internalDiameter.ToString() + "/" + textbox_externalDiameter.Text.ToString() + " * " + textbox_housingHeight.Text.ToString()
' Drawing for a third party
'If checkBox_thirdParty.Checked = True Then
'End If
'##### Update the document.'
invApp.ActiveDocument.Update()
' ##### Add revision N° in each exported file name (Except Rev.0)
Dim revision As String
If comboBox_revision.Text = "0" Or comboBox_revision.Text = "" Then
revision = ""
Else
revision = "_rev." + comboBox_revision.Text
End If
'##### Save the part-document with the assigned name (drawingNumber).'
invApp.ActiveDocument.SaveAs("\\dataserver2019\Tecnici\CARCO\DISEGNI\TORNITURA+MODIFICHE\" + drawingNumber + revision + ".ipt", False)
'##### Replace the reference .ipt file on the drawing.'
Dim oDoc As Inventor.DrawingDocument
oDoc = invApp.Documents.Open("\\dataserver2019\Tecnici\CARCO\EngineeringTEAM\AUTOMATIC_CREATOR\automated-drawing-female.ring\automated-drawing-female.ring\female_ring.idw")
oDoc.File.ReferencedFileDescriptors(1).ReplaceReference("\\dataserver2019\Tecnici\CARCO\DISEGNI\TORNITURA+MODIFICHE\" + drawingNumber + revision + ".ipt")
'##### Scale the drawing views according to the external diameter.'
' ##### View A'
Dim oViewA As DrawingView
oViewA = oDoc.ActiveSheet.DrawingViews.Item(1)
If textbox_externalDiameter.Text < 100 Then
oViewA.[Scale] = 0.8
ElseIf textbox_externalDiameter.Text >= 100 And textbox_externalDiameter.Text < 150 Then
oViewA.[Scale] = 0.7
ElseIf textbox_externalDiameter.Text >= 150 And textbox_externalDiameter.Text < 200 Then
oViewA.[Scale] = 0.65
ElseIf textbox_externalDiameter.Text >= 200 And textbox_externalDiameter.Text < 250 Then
oViewA.[Scale] = 0.6
ElseIf textbox_externalDiameter.Text >= 250 And textbox_externalDiameter.Text < 300 Then
oViewA.[Scale] = 0.55
ElseIf textbox_externalDiameter.Text >= 300 And textbox_externalDiameter.Text < 350 Then
oViewA.[Scale] = 0.45
ElseIf textbox_externalDiameter.Text >= 350 And textbox_externalDiameter.Text < 400 Then
oViewA.[Scale] = 0.4
ElseIf textbox_externalDiameter.Text >= 400 And textbox_externalDiameter.Text < 450 Then
oViewA.[Scale] = 0.35
ElseIf textbox_externalDiameter.Text >= 450 And textbox_externalDiameter.Text < 500 Then
oViewA.[Scale] = 0.3
ElseIf textbox_externalDiameter.Text >= 500 And textbox_externalDiameter.Text < 550 Then
oViewA.[Scale] = 0.25
ElseIf textbox_externalDiameter.Text >= 550 And textbox_externalDiameter.Text < 600 Then
oViewA.[Scale] = 0.4
ElseIf textbox_externalDiameter.Text >= 600 And textbox_externalDiameter.Text < 650 Then
oViewA.[Scale] = 0.35
ElseIf textbox_externalDiameter.Text >= 650 And textbox_externalDiameter.Text < 700 Then
oViewA.[Scale] = 0.3
ElseIf textbox_externalDiameter.Text >= 700 And textbox_externalDiameter.Text < 750 Then
oViewA.[Scale] = 0.25
ElseIf textbox_externalDiameter.Text >= 750 And textbox_externalDiameter.Text < 800 Then
oViewA.[Scale] = 0.2
ElseIf textbox_externalDiameter.Text >= 800 And textbox_externalDiameter.Text < 850 Then
oViewA.[Scale] = 0.15
ElseIf textbox_externalDiameter.Text >= 850 And textbox_externalDiameter.Text < 900 Then
oViewA.[Scale] = 0.1
ElseIf textbox_externalDiameter.Text >= 900 And textbox_externalDiameter.Text < 950 Then
oViewA.[Scale] = 0.45
ElseIf textbox_externalDiameter.Text >= 950 And textbox_externalDiameter.Text < 1000 Then
oViewA.[Scale] = 0.4
ElseIf textbox_externalDiameter.Text >= 1000 And textbox_externalDiameter.Text < 1050 Then
oViewA.[Scale] = 0.35
ElseIf textbox_externalDiameter.Text >= 1050 And textbox_externalDiameter.Text < 1100 Then
oViewA.[Scale] = 0.3
ElseIf textbox_externalDiameter.Text >= 1100 And textbox_externalDiameter.Text < 1150 Then
oViewA.[Scale] = 0.25
ElseIf textbox_externalDiameter.Text >= 1150 And textbox_externalDiameter.Text < 1200 Then
oViewA.[Scale] = 0.2
ElseIf textbox_externalDiameter.Text >= 1200 And textbox_externalDiameter.Text < 1250 Then
oViewA.[Scale] = 0.15
ElseIf textbox_externalDiameter.Text >= 1250 And textbox_externalDiameter.Text < 1300 Then
oViewA.[Scale] = 0.1
Else
oViewA.[Scale] = 0.05
End If
' ##### Detail view "B".'
Dim oViewB As DetailDrawingView
For Each oSheet As Sheet In oDoc.Sheets
For Each oView As DrawingView In oSheet.DrawingViews
If oView.ViewType = DrawingViewTypeEnum.kDetailDrawingViewType Then
oViewB = oView
End If
Next
Next
'Set the scale of Detail View B depending on the size
'Scale the detail drawing view according to the height.
If textbox_height.Text < 5 Then
oViewB.[Scale] = 3
ElseIf textbox_height.Text >= 5 And textbox_height.Text < 20 Then
oViewB.[Scale] = 2.5
ElseIf textbox_height.Text >= 20 And textbox_height.Text < 35 Then
oViewB.[Scale] = 2
Else
oViewB.[Scale] = 1.5
End If
' ##### 3D view "View3D".'
Dim oView3D As DrawingView
For Each oSheet As Sheet In oDoc.Sheets
For Each oView As DrawingView In oSheet.DrawingViews
If oView.ViewType = DrawingViewTypeEnum.kProjectedDrawingViewType Then
oView3D = oView
End If
Next
Next
'Set the scale of 3D view depending on the size
'Scale the detail drawing view according to the height.
If textbox_externalDiameter.Text < 100 Then
oView3D.[Scale] = 0.4
ElseIf textbox_externalDiameter.Text >= 100 And textbox_externalDiameter.Text < 200 Then
oView3D.[Scale] = 0.2
ElseIf textbox_externalDiameter.Text >= 200 And textbox_externalDiameter.Text < 400 Then
oView3D.[Scale] = 0.15
ElseIf textbox_externalDiameter.Text >= 400 And textbox_externalDiameter.Text < 700 Then
oView3D.[Scale] = 0.1
ElseIf textbox_externalDiameter.Text >= 700 And textbox_externalDiameter.Text < 1000 Then
oView3D.[Scale] = 0.05
ElseIf textbox_externalDiameter.Text >= 1000 And textbox_externalDiameter.Text < 1200 Then
oView3D.[Scale] = 0.04
Else
oView3D.[Scale] = 0.03
End If
' ##### Update the revision table
Dim oRevisionTable As RevisionTable = oDoc.ActiveSheet.RevisionTables.Item(1)
Dim oRow As RevisionTableRow = oRevisionTable.RevisionTableRows.Item(1)
Dim oCell1 As RevisionTableCell = oRow.Item(1)
Dim oCell2 As RevisionTableCell = oRow.Item(2)
Dim oCell3 As RevisionTableCell = oRow.Item(3)
Dim oCell4 As RevisionTableCell = oRow.Item(4)
Dim oCell5 As RevisionTableCell = oRow.Item(5)
Dim oggi As Date = Date.Today ' Date
If comboBox_revision.Text = "0" Or comboBox_revision.Text = "" Then
oCell1.Text = "0"
Else
oCell1.Text = comboBox_revision.Text ' Revision N°
End If
If oCell1.Text = "0" Or oCell1.Text = "" Then ' Description (If Revision N° is "0", assign "Drawing Issue"
oCell2.Text = "Drawing Issue"
Else
oCell2.Text = textbox_description.Text
End If
oCell3.Text = "Automated" ' Drawn
oCell4.Text = textbox_signature.Text ' Approved
oCell5.Text = oggi ' Date (dd/mm/yyyy)
'##### Save the drawing-document with the assigned name (drawingNumber).'
invApp.ActiveDocument.SaveAs("\\dataserver2019\Tecnici\CARCO\DISEGNI\TORNITURA+MODIFICHE\" + drawingNumber + revision + ".idw", False)
'##### Update the document.'
invApp.ActiveDocument.Update
' ##### Export to PDF.'
' Get the active docuement.
oDoc = invApp.ActiveDocument
' Save a copy as a PDF file.
Call oDoc.SaveAs("\\dataserver2019\Tecnici\CARCO\DISEGNI\TORNITURA+MODIFICHE\" + drawingNumber + revision + ".pdf", True)
' Save a copy as a jpeg file.
'Call oDoc.SaveAs("\\dataserver2019\Tecnici\CARCO\DISEGNI\TORNITURA+MODIFICHE\" + drawingNumber + ".jpg", True)
If endless = True Then
MessageBox.Show("Automated drawing is generated. Please double check!", "Taaaaaac! :D", MessageBoxButtons.OK, MessageBoxIcon.None)
End If
If split = True Then
MessageBox.Show("Automated drawing is generated. Please double check!" & vbCrLf & vbCrLf & "This backup ring is split. Final external diameter value is " & externalDiameter - 1 & " mm" & vbCrLf & "(Tol. +" & finalTolerancePositive & "/" & finalToleranceNegative & " mm)", "Taaaaaac! :D", MessageBoxButtons.OK, MessageBoxIcon.None)
End If
Me.Close()
End Sub
End Class