Pressure Vessel Dished Head Lisp

[bplturner]

ReMark,

It's no problem at all. Do you have the source code, or should I wait for The Buzzard to make a round to the forum?

Thanks.

[ReMark]

I do not have the source code and if I did I would first ask The Buzzard's permission before giving it out to anyone. I'm sure you understand.

The Buzzard has not been here since the beginning of the year (late January). Not sure when he may return.

[bplturner]

I understand. I just noticed in the first message that he said: "I have provided the source coding for you to edit if you wish", but I couldn't find it. So I thought perhaps I was missing something.

[ReMark]

I understand. I just noticed in the first message that he said: "I have provided the source coding for you to edit if you wish", but I couldn't find it. So I thought perhaps I was missing something.

It could be there is a LSP file included in the zipped file. That would be where I would look first.

[digger]

this one is for do it yourself sizes.

[digger]

this one is for industry standard sizes.

many thanks to the buzzard.

[bplturner]

For some reason I didn't get an email that this thread had been replied to.

Thanks a ton, guys!

[jac10]

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                   |
;
;/////////////////////////////////////////////////////////////////////////////////////////

Please Help!

Can someone give me a code for DH_PL Program Loop Function in LSP codes. I think this file already compiled. I'm new to LSP. I'm having trouble making one of it.Thanks in advance.

[vwmech]

I registered for these forums just for this LISP (and the B16.5/16.47 ANSI flange LISPS)!

Great work here!

[uzzora]

HI! thank for your lisp

i'm korean
i speak little english

i used millimeter
but your lisp used inch

i want your lisp verison changed millimeter

please give me a changed verison.
thank