Seek a lisp for Simple support of Beam creator

[skchui6159]

Can anyone provide a simple Beam creator for attached dwg?

by asking question of user as listed follow?

• What is the length of the beam?
• What is the depth of the beam?
• What is the width of the beam?
• Which point would you like to start drawing the beam detail from?
• What section mark would you like to input (e.g., 1, 2, 3, etc.)?
• What is the left-hand side support length (in mm)?
• What is the right-hand side support length (in mm)?
• What is the concrete thickness (in mm)?
• Do you need torsion? <Y/N>

[Moshe-A]

@skchui6159 hi,

Here something you can start working with 😀

Command : SSB  (Simple Support Beam)

enjoy

Moshe

[skchui6159]

@Moshe-A Thank you for you help😁, can the lisp also show the dimension, (torision TAL with optional) and steel bar number (4T using int(500BEAM WIDTH/140) or 5T =int(500(bEAM WIDTH/100) using multileader/(text and arrow) and beam section mark using the lisp?

And Can I view the code of .VLX format?

[Sea-Haven]

• What is the concrete thickness (in mm)? Do you mean reo cover ?

A front end for you. Save Multi getvals.lsp to a support path as its auto loaded.

(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(setq ans (AH:getvalsm
(list "Enter values"
"length of the beam" 5 4 "1000"
"depth of the beam" 5 4 "500"
"width of the beam" 5 4 "500"
"left-hand side support" 5 4 "250"
"right-hand side support" 5 4 "250"
"concrete thickness" 5 4 "50"
"need torsion? Y or N" 3 2 "Y")
)
)

I think your missing some more "I  want" to be added. There are missing questions re drawing a reinforced concrete beam. Top bottom reo, different cover, bar sizes and so forth.

[skchui6159]

@Sea-Haven Conrete thickness is mean than the Beam insert to the current concrete slab thinkness. Reinforcement cover (reo) sorry this is my missing question.😅I have revise the dwg for reference.

[Moshe-A]

@skchui6159 ,

thanks you for that 😀

"Can the lisp also show the dimension, (torision TAL with optional) and steel bar number (4T using int(500BEAM WIDTH/140) or 5T =int(500(bEAM WIDTH/100) using multileader/(text and arrow) and beam section mark using the lisp?"

Sure i can...but have questions:

1. Does the beam width always be 500? and how do i know if it should be divide by 140 or 100?

2. What about layers, colors & line types - Are you pleased of what i did?

3. What about the steel offset concrete cover (hor/ver and the offset between steels) - does it matter?

4. What about the fillet radius of steel - does it matter?

5. What about the fillet radius of the resist torsion - does it matter?

---

@skchui6159 wrote:

@Moshe-A Thank you for you help😁, can the lisp also show the dimension, (torision TAL with optional) and steel bar number (4T using int(500BEAM WIDTH/140) or 5T =int(500(bEAM WIDTH/100) using multileader/(text and arrow) and beam section mark using the lisp?

And Can I view the code of .VLX format?

---

No you can not because it is meant to pack it as a project, may contain more than one file and conceal the source code from

being change by others - sorry.

Moshe

[skchui6159]

@Moshe-A 

Thanks you for helping!

1. No ,the Beam width is variable. divide by 140 or 100 Can add it to the above question by Enter Value?

2. Use the sample dwg layer is ok. You did exactly perfect!💪

3. Vertical bar always 50 (Side Cover). Horiztonal cover between steel bar and concrete cover is variable. Can add it to the above question by Enter Value?

4. Filet radius is 28. You did exactly perfect!💪

5. Filet radius is 28. You did exactly perfect!💪

[Sea-Haven]

If the beam is to reflect true bends in REO then there is dia x ratio for a bend. Not 28 as implied.

[skchui6159]

@Sea-Haven R28 is just indicate😅.

[Moshe-A]

@skchui6159 ,

i Started to add the new features it will take a few more nights to finish 😀

what is "torsion TAL with optional" you mean adding the green line curve is optional?

what TAL means?

[skchui6159]

@Moshe-A TAL means Tension Anchorage Length, calculated from  support (concrete face) to end of steel bar. Beside that TLL mean Tension Lap Length😂.

what is "torsion TAL with optional" you mean adding the green line curve is optional? Yes.😁

Thank you very much

[Moshe-A]

@skchui6159 ,

Would like your comment on what i have achieved so far, still did not take care of TAL so it is not finished yet

layers now have prefix name 'ssb_...' so in layers list they will be grouped 😀

all dimensions \ leaders are laid on ssb_annotation layer

dimensions are added with ssb500 dimstyle with dimscale is set to 500 (very close of what you did)

suitable for 1:50 scale (plot ratio 1=50)

Moshe

[skchui6159]

@Moshe-A the number of steel good! Can the Dimension just use same properties? There is my attached dwg for comments.

You did so well. Thank you very much!💪👍

[Moshe-A · Accepted solution]

@skchui6159 

Finished 😀

[skchui6159]

@Moshe-A Where is the Beam width for variable? 

[Moshe-A]

@skchui6159 

thank you 👍

True in your initial post you mentioned Beam width but in all of your sample drawings it was gone, that's why i drop it

cause in 2d drawing Beam Width has no role - am i wrong?! 😀

is section block mark ok?

annotation distances is not fixed but multiplication of vertical conc cover which no 50

Moshe

[skchui6159]

@Moshe-A oK , I will manually add it. (section block mark)

Beam width is needed to calculate steel number.😅

[Moshe-A]

@skchui6159 

Ha??  🤣 and i used Beam Depth for that and you said steel calculations are OK?!

[skchui6159]

@Moshe-A SORRY😅 But you do a great job! Thank you very much!💪

[Moshe-A · Accepted solution]

@skchui6159 ,

fixed