I need help adjust the code

I have attached file.
hope somebody helps..
give advice
comment

You need to give us more information. What is wrong with the code? What do you want to do? Attach a sample dwg file to test the dvb on.

The code is too lengthy I don't know some how please make it shorter.
Thanks.

You're right, it is too long. You need to refactor it. You have 6 bays. Create a subroutine that creates 1 bay and make it with an argument that takes an double for the length. Then you can just call the subroutine for each length, e.g.:

Code:

---

CreateBay(4150)

---

Also, consider using With statement, e.g.

Code:

---

With adim
  .TextHeight = 1
  .Color = acByLayer
  .Layer = "0"
  .Update
End With

---

An alternative is to create a dynamic block for 1 bay that can be stretched to the desired length.

I have the same problem.