Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Parameter("Left End Panel.ipt","Depth") = Depth-Door_Thickness
- Parameter("Right End Panel.ipt","Depth") = Depth-Door_Thickness
- Parameter("Cabinet Bottom.iam","Width") = Width
- Parameter("Cabinet Bottom.iam","Depth") = Depth - Door_Thickness
- Parameter("Cabinet Bottom.iam","Thickness") = Bottom_Thickness
- If Full_Top Then
- Component.IsActive("Cabinet Top:1") = True
- Component.IsActive("Stretcher:1") = False
- Component.IsActive("Stretcher:2") = False
- Parameter("Cabinet Top.iam","Width") = Width
- Parameter("Cabinet Top.iam","Depth") = Depth - Door_Thickness
- Parameter("Cabinet Top.iam","Thickness") = Top_Thickness
- Else
- Component.IsActive("Cabinet Top:1") = False
- Component.IsActive("Stretcher:1") = True
- Component.IsActive("Stretcher:2") = True
- Parameter("Stretcher.iam","Width") = Width
- Parameter("Stretcher.iam","Depth") = Stretcher_Width
- Parameter("Stretcher.iam","Thickness") = Stretcher_Thickness
- End If
- If Back Then
- If StrComp(Back_Capture,"Full") Then
- d15 = 0
- Else If StrComp(Back_Capture,"Partial") Then
- d15 = Back_Thickness
- If Nailers Then
- d15 += Nailer_Thickness
- End If
- Else If StrComp(Back_Capture,"Loose") Then
- d15 = Back_Thickness
- Else If StrComp(Back_Capture,"Inset_Loose") Then
- d15 = 0
- If Nailers Then
- d15 += Nailer_Thickness
- End If
- End If
- End If
- If Left_Finished_End Then
- Parameter("Left End Panel.ipt","Thickness") = Finished_End_Thickness
- Parameter("Cabinet Bottom.iam","Width") -= Finished_End_Thickness
- Parameter("Stretcher.iam","Width") -= Finished_End_Thickness
- Else
- Parameter("Left End Panel.ipt","Thickness") = Side_Thickness
- Parameter("Cabinet Bottom.iam","Width") -= Side_Thickness
- Parameter("Stretcher.iam","Width") -= Side_Thickness
- End If
- If Right_Finished_End Then
- Parameter("Right End Panel.ipt","Thickness") = Finished_End_Thickness
- Parameter("Cabinet Bottom.iam","Width") -= Finished_End_Thickness
- Parameter("Stretcher.iam","Width") -= Finished_End_Thickness
- Else
- Parameter("Right End Panel.ipt","Thickness") = Side_Thickness
- Parameter("Cabinet Bottom.iam","Width") -= Side_Thickness
- Parameter("Stretcher.iam","Width") -= Side_Thickness
- End If
- If Toe_Kick And Toe_Kick_Height > 0 Then
- Feature.IsActive("Left End Panel:1", "Extrusion2") = True
- Feature.IsActive("Right End Panel:1", "Extrusion2") = True
- Component.IsActive("Toe_Kick:1") = True
- Parameter("Left End Panel.ipt","Toe_Kick_Height") = Toe_Kick_Height
- Parameter("Right End Panel.ipt","Toe_Kick_Height") = Toe_Kick_Height
- Parameter("Left End Panel.ipt","Toe_Kick_Depth") = Toe_Kick_Depth-Door_Thickness+Toe_Kick_Thickness
- Parameter("Right End Panel.ipt","Toe_Kick_Depth") = Toe_Kick_Depth-Door_Thickness+Toe_Kick_Thickness
- Parameter("Toe_Kick.ipt","Length") = Width
- Feature.IsActive("Toe_Kick:1", "Extrusion3") = True
- Feature.IsActive("Toe_Kick:1", "Extrusion2") = True
- Left_Side_Toe_Inset = 0
- If Left_Finished_End And Not Stain_Grade Then
- Parameter("Left End Panel.ipt","Toe_Kick_Depth") = Toe_Kick_Depth-Door_Thickness
- Parameter("Toe_Kick.ipt","Length") -= Finished_End_Thickness
- Feature.IsActive("Toe_Kick:1", "Extrusion2") = False
- Left_Side_Toe_Inset = Finished_End_Thickness
- End If
- If Right_Finished_End And Not Stain_Grade Then
- Parameter("Right End Panel.ipt","Toe_Kick_Depth") = Toe_Kick_Depth-Door_Thickness
- Parameter("Toe_Kick.ipt","Length") -= Finished_End_Thickness
- Feature.IsActive("Toe_Kick:1", "Extrusion3") = False
- End If
- Parameter("Toe_Kick.ipt","Height") = Toe_Kick_Height
- Else
- Feature.IsActive("Left End Panel:1", "Extrusion2") = False
- Feature.IsActive("Right End Panel:1", "Extrusion2") = False
- Component.IsActive("Toe_Kick:1") = False
- End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement