Advertisement
Guest User

Untitled

a guest
Jul 25th, 2014
179
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.62 KB | None | 0 0
  1. Parameter("Left End Panel.ipt","Depth") = Depth-Door_Thickness
  2. Parameter("Right End Panel.ipt","Depth") = Depth-Door_Thickness
  3. Parameter("Cabinet Bottom.iam","Width") = Width
  4. Parameter("Cabinet Bottom.iam","Depth") = Depth - Door_Thickness
  5. Parameter("Cabinet Bottom.iam","Thickness") = Bottom_Thickness
  6.  
  7.  
  8. If Full_Top Then
  9. Component.IsActive("Cabinet Top:1") = True
  10. Component.IsActive("Stretcher:1") = False
  11. Component.IsActive("Stretcher:2") = False
  12.  
  13. Parameter("Cabinet Top.iam","Width") = Width
  14. Parameter("Cabinet Top.iam","Depth") = Depth - Door_Thickness
  15. Parameter("Cabinet Top.iam","Thickness") = Top_Thickness
  16.  
  17. Else
  18.  
  19. Component.IsActive("Cabinet Top:1") = False
  20. Component.IsActive("Stretcher:1") = True
  21. Component.IsActive("Stretcher:2") = True
  22.  
  23. Parameter("Stretcher.iam","Width") = Width
  24. Parameter("Stretcher.iam","Depth") = Stretcher_Width
  25. Parameter("Stretcher.iam","Thickness") = Stretcher_Thickness
  26.  
  27. End If
  28.  
  29. If Back Then
  30. If StrComp(Back_Capture,"Full") Then
  31. d15 = 0
  32. Else If StrComp(Back_Capture,"Partial") Then
  33. d15 = Back_Thickness
  34. If Nailers Then
  35. d15 += Nailer_Thickness
  36. End If
  37. Else If StrComp(Back_Capture,"Loose") Then
  38. d15 = Back_Thickness
  39. Else If StrComp(Back_Capture,"Inset_Loose") Then
  40. d15 = 0
  41. If Nailers Then
  42. d15 += Nailer_Thickness
  43. End If
  44. End If
  45. End If
  46.  
  47.  
  48. If Left_Finished_End Then
  49. Parameter("Left End Panel.ipt","Thickness") = Finished_End_Thickness
  50. Parameter("Cabinet Bottom.iam","Width") -= Finished_End_Thickness
  51. Parameter("Stretcher.iam","Width") -= Finished_End_Thickness
  52. Else
  53. Parameter("Left End Panel.ipt","Thickness") = Side_Thickness
  54. Parameter("Cabinet Bottom.iam","Width") -= Side_Thickness
  55. Parameter("Stretcher.iam","Width") -= Side_Thickness
  56. End If
  57.  
  58. If Right_Finished_End Then
  59. Parameter("Right End Panel.ipt","Thickness") = Finished_End_Thickness
  60. Parameter("Cabinet Bottom.iam","Width") -= Finished_End_Thickness
  61. Parameter("Stretcher.iam","Width") -= Finished_End_Thickness
  62. Else
  63. Parameter("Right End Panel.ipt","Thickness") = Side_Thickness
  64. Parameter("Cabinet Bottom.iam","Width") -= Side_Thickness
  65. Parameter("Stretcher.iam","Width") -= Side_Thickness
  66. End If
  67.  
  68. If Toe_Kick And Toe_Kick_Height > 0 Then
  69. Feature.IsActive("Left End Panel:1", "Extrusion2") = True
  70. Feature.IsActive("Right End Panel:1", "Extrusion2") = True
  71. Component.IsActive("Toe_Kick:1") = True
  72. Parameter("Left End Panel.ipt","Toe_Kick_Height") = Toe_Kick_Height
  73. Parameter("Right End Panel.ipt","Toe_Kick_Height") = Toe_Kick_Height
  74. Parameter("Left End Panel.ipt","Toe_Kick_Depth") = Toe_Kick_Depth-Door_Thickness+Toe_Kick_Thickness
  75. Parameter("Right End Panel.ipt","Toe_Kick_Depth") = Toe_Kick_Depth-Door_Thickness+Toe_Kick_Thickness
  76. Parameter("Toe_Kick.ipt","Length") = Width
  77. Feature.IsActive("Toe_Kick:1", "Extrusion3") = True
  78. Feature.IsActive("Toe_Kick:1", "Extrusion2") = True
  79. Left_Side_Toe_Inset = 0
  80.  
  81. If Left_Finished_End And Not Stain_Grade Then
  82. Parameter("Left End Panel.ipt","Toe_Kick_Depth") = Toe_Kick_Depth-Door_Thickness
  83. Parameter("Toe_Kick.ipt","Length") -= Finished_End_Thickness
  84.  
  85. Feature.IsActive("Toe_Kick:1", "Extrusion2") = False
  86.  
  87. Left_Side_Toe_Inset = Finished_End_Thickness
  88. End If
  89.  
  90. If Right_Finished_End And Not Stain_Grade Then
  91. Parameter("Right End Panel.ipt","Toe_Kick_Depth") = Toe_Kick_Depth-Door_Thickness
  92. Parameter("Toe_Kick.ipt","Length") -= Finished_End_Thickness
  93.  
  94. Feature.IsActive("Toe_Kick:1", "Extrusion3") = False
  95. End If
  96.  
  97. Parameter("Toe_Kick.ipt","Height") = Toe_Kick_Height
  98. Else
  99. Feature.IsActive("Left End Panel:1", "Extrusion2") = False
  100. Feature.IsActive("Right End Panel:1", "Extrusion2") = False
  101. Component.IsActive("Toe_Kick:1") = False
  102.  
  103. End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement