AnsweredAssumed Answered

Limit tolerance from excel

Question asked by Sheik Abdullah on May 28, 2020

Currently I am using the below code to update the model based on the value entered in the excel.

 

I need to add the tolerance value which is available in the next call. Tolerance as a Limit one

 

Code which I used to update dimension,

 

Set Swapp = Createobject("Sldworks.application")

Set part = Swapp.Activedoc

OD = Thisworkbook.worksheets("Sheet1").Range("B2").value

 

Len = Thisworkbook.worksheets("Sheet1").Range("C2").value

 

OD_Tol = Thisworkbook.worksheets("Sheet1").Range("B3").value

 

Len_Tol = Thisworkbook.worksheets("Sheet1").Range("C3").value

 

Dbldiameter1 =Cdbl(OD*(25.4/1000))

Dbllength1 = Cdbl(Len*(25.4/1000)

 

Part.parameter("D1@Sketch1).system value =Dbldiameter1

 

Part.parameter("D2@Sketch1).system=Dbllength1

 

Can anyone help me on this to include the tolerance value (Limit tolerance)

 

Outcomes