Pressure Vessel Dished Head Lisp

[The Buzzard]

Hello everyone,

I have another entity make program for you to try out. Back some time this type of program was requested. I noticed a couple of threads on the subject, But there was nothing quite elaborate as this program.

The program draws 2D ASME Coded Elliptical heads and Non-Coded Heads. It creates the head outline as a closed polyline with a thickness line. Each are placed on separated layers. There is an option to draw just the outline without the thickness line and also an option to create these heads in SI units.

The program has an instructions dialog and changeable images of your selections. I have provided the source coding for you to edit if you wish, But I request that if you make changes and post, Do not remove the headers and be sure to record your changes as a revision and add to the header. Please do not post changes to this thread.

If you are unsure about how to edit this code, I will be happy to answer your questions.

The command syntax for this program is DH.
See below for the attached Zip file.

For loading instructions see this thread: http://www.cadtutor.net/forum/showthread.php?t=1390

For ANSI B16.5 Flanges, See this thread:http://www.cadtutor.net/forum/showthread.php?t=48462

For ANSI B16.47 Flanges, See this thread:http://www.cadtutor.net/forum/showthread.php?t=48567

Attention!
Revision V0.4 has been uploaded. October 04, 2010

;/////////////////////////////////////////////////////////////////////////////////////////
;
; Do Not Remove This Header!
;
; Revisions
;
;-----------------------------------------------------------------------------------------
; Version | Change                                                              | Date
;-----------------------------------------------------------------------------------------
; V0.1    | Replace the dialog load in the DH_MF function with a new function.  | 04|29|10
;         | Replace mode tile in the DH_MT function with a new function.        |
;         | Replace all setvars in the DH_MF function will a new function call. |
;         | Added DH_CUS function or Change User Settings function.             |
;         | Replace all (if (or calls with (cond ( (member calls.               |
;-----------------------------------------------------------------------------------------
; V0.2    | Add Non-Coded Flanged Only Head                                     | 04|30|10
;-----------------------------------------------------------------------------------------
; V0.3    | Remove DH_PL Program Loop Function & replaced with while            | 09|17|10
;-----------------------------------------------------------------------------------------
; V0.4    | Removed popup lists from dialog and replaced with edit boxes        | 10|04|10
;         | Action_Tile modifications made to Main Function                     |
;         | Modifcations made to Set Size Parameters Function                   |
;
;/////////////////////////////////////////////////////////////////////////////////////////

[Lee Mac]

A Great looking dialog Buzzard, well done

[The Buzzard]

A Great looking dialog Buzzard, well done

Thanks Lee,

But I am not overly concerned about the dialog appearance as much as what the program does and how it does it. I would appreciate any comments concerning this. As you may realize my programming looks the same in all my programs, But its output is different. I have got some great tips from you and put it to use.

Thanks to you and Alan for your help before with the trig related problem for this code.
The Buzzard

[ReMark]

Buzzman: I will definitely give this a try upon my return to work on Thursday. I work for a chemical manufacturing plant and a program such as this would be a real time saver. As a matter of fact I have a tank design that I need to start working on soon. Thanks a million man!

[The Buzzard]

Buzzman: I will definitely give this a try upon my return to work on Thursday. I work for a chemical manufacturing plant and a program such as this would be a real time saver. As a matter of fact I have a tank design that I need to start working on soon. Thanks a million man!

Thanks Remark,

I myself used to work in custom built refrigeration process chiller systems for the Petrol/Chemical industry. We had an ASME shop with certified welders and design software to boot. I always wanted to make a program like this years ago, But at that time it was beyond me. I did a lot of research on this one for months making sure I had good information to work with. I would appreciate your feed back on this code if there is anything that would need adjusting.

Enjoy the code,
The Buzzard

[ReMark]

Will do Buzzard.

We have the welders but no specific tank design software. For vessels operating at atmospheric pressure will sometimes elect to do the design and fabrication in house. For pressure vessels we create a fairly detailed drawing of what we want the tank to look like then send it off to a company like Roben or Highland Tank. They kick us back a fully designed tank drawing which we revise (if necessary), sign and send back for fabrication.

[The Buzzard]

Will do Buzzard.

We have the welders but no specific tank design software. For vessels operating at atmospheric pressure will sometimes elect to do the design and fabrication in house. For pressure vessels we create a fairly detailed drawing of what we want the tank to look like then send it off to a company like Roben or Highland Tank. They kick us back a fully designed tank drawing which we revise (if necessary), sign and send back for fabrication.

My former boss would very rarely send anything out to another shop if our shop was undersized. He would make a hole in roof if it kept the job in house. Most of our ASME tanks were receivers, oil separators and suction accumulators. Having an ASME certification sure helps when you do custom fabrication and you need to stay within size constraints.

[ReMark]

Did you ever design a catch tank (a.k.a. - blowdown tank) with a packed column? It would be tied into a rupture disk relief line and header.

[The Buzzard]

Did you ever design a catch tank (a.k.a. - blowdown tank) with a packed column? It would be tied into a rupture disk relief line and header.

Not exactly, Although one time we did a US Government contract building a Dilimonine system for a hyperbaric chamber that could reach -75 degrees f. We needed to also build the test setup in our shop to run the unit for weeks before the government would accept the product. It required a rupture disk as well. The whole shop smell like oranges for months afterward.

[ReMark]

I just noticed you're in New York city. I'm about an hour or so up I-95 from you. Coooool!