Message 1 of 10
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
If Parameter("DESCRIPTION1") = DESCRIPTION1 Then iProperties.Value("Project", "Description") = DESCRIPTION1 iProperties.Value("Project", "Part Number") = PART_NUMBER1 End If trigger = iTrigger0 '=================================================================== oLength = BHHDS_LENGTH If oLength.Contains("/") Then sArray = Split(BHHDS_LENGTH, " ") Dim Int As Integer = sArray(0) Dim Fraction As String = sArray(1) sFractionArray = Split(Fraction, "/") Dim Dbl As Double = sFractionArray(0) / sFractionArray(1) oLength = Int + Dbl End If '=================================================================== If SCREW_DIA = .25 Then HEAD_DIA = .4375 HEAD_HEIGHT = .132 HEX_WIDTH = .15625 HEX_DEPTH = .125 FLAT_TOP = .188 FLAT_EDGE = .015625 LENGTH = BHHDS_LENGTH End If '======================================================================= If SCREW_DIA = .375 Then SCREW_DIA = .375 HEAD_DIA = .656 HEAD_HEIGHT = .199 HEX_WIDTH = .21875 HEX_DEPTH = .125 FLAT_TOP = .25 FLAT_EDGE = .015625 LENGTH = BHHDS_LENGTH End If '=============================================================== If SCREW_DIA = .5 Then HEAD_DIA = .875 HEAD_HEIGHT = .265 HEX_WIDTH = .3125 HEX_DEPTH = .125 FLAT_TOP = .375 FLAT_EDGE = .0625 LENGTH = BHHDS_LENGTH End If '=============================================================== If DESCRIPTION1 = "BH HEX DRIVE SCREW 1/4-20" Then SCREW_DIA = .25 Feature.IsActive("Thread1") = True Feature.ThreadDesignation("Thread1") = "1/4-20 UNC" PART_NUMBER1 = "DESCRIPTION1 & "" & BHHDS_LENGTH" End If '===================================================================== If DESCRIPTION1 = "BH HEX DRIVE SCREW 1/4-28" Then SCREW_DIA = .25 Feature.IsActive("Thread1") = True Feature.ThreadDesignation("Thread1") = "1/4-28 UNF" PART_NUMBER1 = DESCRIPTION1 & "" & BHHDS_LENGTH End If '=============================================================== If DESCRIPTION1 = "BH HEX DRIVE SCREW 3/8-16" Then SCREW_DIA = .375 Feature.IsActive("Thread1") = True Feature.ThreadDesignation("Thread1") = "3/8-16 UNC" PART_NUMBER1 = DESCRIPTION1 & "" & BHHDS_LENGTH End If '===================================================================== If DESCRIPTION1 = "BH HEX DRIVE SCREW 3/8-24" Then SCREW_DIA = .375 Feature.IsActive("Thread1") = True Feature.ThreadDesignation("Thread1") = "3/8-24 UNF" PART_NUMBER1 = DESCRIPTION1 & "" & BHHDS_LENGTH End If '=============================================================== If DESCRIPTION1 = "BH HEX DRIVE SCREW 1/2-13" Then SCREW_DIA = .5 Feature.IsActive("Thread1") = True Feature.ThreadDesignation("Thread1") = "1/2-13 UNC" PART_NUMBER1 = DESCRIPTION1 & "" & BHHDS_LENGTH End If If DESCRIPTION1 = "BH HEX DRIVE SCREW 1/2-13" Then If BHHDS_LENGTH < .5 Then MessageBox.Show("BH HEX DRIVE SCREW 1/2-13 length must be .5 or greater. Changing to .5", "Paramter Police") BHHDS_LENGTH = .5 End If End If '===================================================================== If DESCRIPTION1 = "BH HEX DRIVE SCREW 1/2-20" Then SCREW_DIA = .5 Feature.IsActive("Thread1") = True Feature.ThreadDesignation("Thread1") = "1/2-20 UNF" PART_NUMBER1 = DESCRIPTION1 & "" & BHHDS_LENGTH End If If DESCRIPTION1 = "BH HEX DRIVE SCREW 1/2-20" Then If BHHDS_LENGTH < .5 Then MessageBox.Show("BH HEX DRIVE SCREW 1/2-13 length must be .5 or greater. Changing to .5", "Paramter Police") BHHDS_LENGTH = .5 End If End If '==================================================================== iLogicVb.UpdateWhenDone = True InventorVb.DocumentUpdate()
Solved! Go to Solution.