Change Dimension Example (VBA)

This example shows how to modify dimension values of an existing SolidWorks part.

Sub ParametricSub(ByVal Part As Object, ByVal XVal As Double, ByVal YVal As Double, ByVal ZVal As Double)

Metric and English:

Most of the API functions operate in meters. Therefore, if you pass in an XValue_Passed = 2.0 and your part file is in millimeters than it will appear as a 2000.0 in the part. If you need to determine the units used in the part file, you can use the IModelDoc2::LengthUnit property and perform the appropriate conversion.

'---------------------------------------------

' Change Dimension values to the X, Y, and Z values passed in

Part.Parameter("XValue@Sketch1").SystemValue = XValue_Passed

' Or:

' Set Dimension = Part.Parameter("XValue@Sketch1")

' Dimension.SystemValue = XValue_Passed

Part.Parameter("YValue@Sketch1").SystemValue = YValue_Passed

Part.Parameter("ZValue@Base-Extrude").SystemValue = ZValue_Passed

' Regenerate the part file since changes were made

Part.EditRebuild3

End Sub