Lisp for generating Pressure Vessel views?

Hello Everyone,

Using AutoCAD 2006 here.

i basically deal with Pressure vessels drawings used in EPC or Pharma industries. my questions are;

1. is it possible to write an AutoLisp routine which will ask the user for inpute variables like the shell id, thicknes, length, knuckle radius, angle of toricone, etc,etc & then generate BOTH the elevation & end view

(or elevation & plan depending on whether its a horizontal vessel or vertical vessel)for the same?

2.can the AutoLisps gurus here suggest names of Two good books for learning & mastering AutoLisp? (i'm a novice as far AutoLisp is concerned)

Any help would be much appreciated. Thanks in advance.

Hi a_differently abled_draft;50996,

1).yes that is possible to write with lisp,depend on your ability use alls function lisp,or post here your drawing maybe others member would help you.

2).I'm not buy book,I only join with forum and a lot read from lisp site.

or visit "Afralisp",you would find lisp from there.

Hello Everyone,

 

Using AutoCAD 2006 here.

 

i basically deal with Pressure vessels drawings used in EPC or Pharma industries. my questions are;

 

1. is it possible to write an AutoLisp routine which will ask the user for inpute variables like the shell id, thicknes, length, knuckle radius, angle of toricone, etc,etc & then generate BOTH the elevation & end view

(or elevation & plan depending on whether its a horizontal vessel or vertical vessel)for the same?

 

 

2.can the AutoLisps gurus here suggest names of Two good books for learning & mastering AutoLisp? (i'm a novice as far AutoLisp is concerned)

 

Any help would be much appreciated. Thanks in advance.

Thanx Adesu,

just visited Afralisp site...cool one for an autolisp novice like me.

i'm sure to visit it often.

i'm gonna try to upload a dwg file of a horizontal vessel here..

not sure how to trim the file size to the recommended 50KB but taking my chances here.

What i desire to achieve is,

instead of manually drafting the Outline views of the vessel, use a Lisp which will ask for a user input of all reqd. parameters like shell id,length,kuckle radius etc & generate BOTH the elevation & end view ( or plan & elevation) on a fly.

still trying to figure this out, cuz it's going to be a Critical productivity enhancement for someone like me who deals primarily with pressure vessels of different kinds.

RECEIVER-11 KL.dwg

Hi a_differently abled_draft;51407,

Your drawing it's enough for detail,and easy to read,but I still not yet understand what is meaning the "175 IKR",I know this for value radius,but for "IKR" what that?,then "1750 ICR".

if you see at layer L1 you got line with color yellow,what that?,how long that line it have and what degree to the horizontal line (look at "VIEW FROM "X" "),or it's symbol for weld?.

I would attempt to create a lisp for this drawing,I hope you patient to received my code,because this drawing rather complex.

Thanx Adesu,

just visited Afralisp site...cool one for an autolisp novice like me.

i'm sure to visit it often.

 

i'm gonna try to upload a dwg file of a horizontal vessel here..

not sure how to trim the file size to the recommended 50KB but taking my chances here.

 

What i desire to achieve is,

instead of manually drafting the Outline views of the vessel, use a Lisp which will ask for a user input of all reqd. parameters like shell id,length,kuckle radius etc & generate BOTH the elevation & end view ( or plan & elevation) on a fly.

 

still trying to figure this out, cuz it's going to be a Critical productivity enhancement for someone like me who deals primarily with pressure vessels of different kinds.

IKR = Internal Knuckle Radius

ICR = Internal Crown Radius ( of the dish end)

are u referring to the weld lines in end view used to secure gusset ribs to the saddle supports? oh they need not be generated in lisp.

by any chance u've messenger id?

IKR = Internal Knuckle Radius

ICR = Internal Crown Radius ( of the dish end)

are u referring to the weld lines in end view used to secure gusset ribs to the saddle supports? oh they need not be generated in lisp.

by any chance u've messenger id?

You can start from this:

; To convert degrees to radians
(defun DTR (D)
  (/ (* pi D) 180.0)
);end of DTR
(defun C:DISH ()
;User Input 
  (setq CEN (getpoint "\nEnter center point of Vessel: "))
  (setq DIA (getreal "\nEnter Vessel Diameter (DIA): "))
  (setq IKR (getreal "\nEnter Internal Knuckle Radius (IKR): "))
; To get the points of Knuckle Radius
  (setq DIA2 (/ DIA 2))                               
  (setq PT1 (polar CEN (DTR 180) DIA2))
  (setq PT2 (polar PT1 (DTR 0) IKR))
  (setq PT3 (polar PT2 (DTR 120) IKR))
  (setq PT4 (polar CEN (DTR 0) DIA2))
  (setq PT5 (polar PT4 (DTR 180) IKR))
  (setq PT6 (polar PT5 (DTR 60) IKR))
; To draw the Dish 
  (command "ARC" PT3 "C" PT2 PT1)          ; Arc Start/Center/End
  (command "ARC" PT4 "C" PT5 PT6)          ; Arc Start/Center/End
  (command "ARC" PT6 "E" PT3 "R" DIA)     ; Arc Start/End/Radius
);end of DISH

The drawing should be like this:

Study it and You can complete the rest. Good Luck

THANK YOU LSR

i'll have to study more & also try this out.

& extra thanks for explaining it with a diagram

hi

please i need your experience to help me in design pressure vessel double jacket able to carrying 8 to 10 bar steam between jackets with an dished two side opening gates supplied with mixer for an chicken waste cooking used sa food for alive chicken,

the most important thinf is hte thickness of the fabricated sheets and the design of the opening gates since there is an internal mixer coupled with gear box pass through them.

i hop to help me with this design

i would to draw your attention to the other important thing the discharge opening should be in the oppesite direction of the coupling side and the basic dimension for quoted capacity 1570 liter is

L= 2 meter

D of internal shell=1 meter

hi

thanks u ur lisp but one mistake u height problem.

plz check the height

height formala h = 1/4 X id (~)

bye

You can start from this:

; To convert degrees to radians
(defun DTR (D)
  (/ (* pi D) 180.0)
);end of DTR
(defun C:DISH ()
;User Input 
  (setq CEN (getpoint "\nEnter center point of Vessel: "))
  (setq DIA (getreal "\nEnter Vessel Diameter (DIA): "))
  (setq IKR (getreal "\nEnter Internal Knuckle Radius (IKR): "))
; To get the points of Knuckle Radius
  (setq DIA2 (/ DIA 2))                               
  (setq PT1 (polar CEN (DTR 180) DIA2))
  (setq PT2 (polar PT1 (DTR 0) IKR))
  (setq PT3 (polar PT2 (DTR 120) IKR))
  (setq PT4 (polar CEN (DTR 0) DIA2))
  (setq PT5 (polar PT4 (DTR 180) IKR))
  (setq PT6 (polar PT5 (DTR 60) IKR))
; To draw the Dish 
  (command "ARC" PT3 "C" PT2 PT1)          ; Arc Start/Center/End
  (command "ARC" PT4 "C" PT5 PT6)          ; Arc Start/Center/End
  (command "ARC" PT6 "E" PT3 "R" DIA)     ; Arc Start/End/Radius
);end of DISH

The drawing should be like this:

[ATTACH]134[/ATTACH]

 

Study it and You can complete the rest. Good Luck

hi

thanks u ur lisp but one mistake u height problem.

plz check the height

 

height formala h = 1/4 X id (~)

 

 

bye

ok fine.

this dished end name plz .

how many type of dished end.

manikya rao: You're trying to respond to a post from September of 2006. Perhaps if you post your question as a new thread you'll get better results.

Example: What are the different types of heads available for a pressure vessel?

manikya rao: You're trying to respond to a post from September of 2006. Perhaps if you post your question as a new thread you'll get better results.

 

Example: What are the different types of heads available for a pressure vessel?

hi

type of dished end heads

1. torispheral dished end

2. 2:1 ellipsoidal dished end

3. semi sphere dished end

thank u for ur respond

bye

manikya rao

indian

hi i m new to use lisp code can any one tell me how to use this lisp in cad

; To convert degrees to radians

(defun DTR (D)

(/ (* pi D) 180.0)

);end of DTR

(defun C:DISH ()

;User Input

(setq CEN (getpoint "\nEnter center point of Vessel: "))

(setq DIA (getreal "\nEnter Vessel Diameter (DIA): "))

(setq IKR (getreal "\nEnter Internal Knuckle Radius (IKR): "))

; To get the points of Knuckle Radius

(setq DIA2 (/ DIA 2))

(setq PT1 (polar CEN (DTR 180) DIA2))

(setq PT2 (polar PT1 (DTR 0) IKR))

(setq PT3 (polar PT2 (DTR 120) IKR))

(setq PT4 (polar CEN (DTR 0) DIA2))

(setq PT5 (polar PT4 (DTR 180) IKR))

(setq PT6 (polar PT5 (DTR 60) IKR))

; To draw the Dish

(command "ARC" PT3 "C" PT2 PT1) ; Arc Start/Center/End

(command "ARC" PT4 "C" PT5 PT6) ; Arc Start/Center/End

(command "ARC" PT6 "E" PT3 "R" DIA) ; Arc Start/End/Radius

);end of DISH

nasha:

Welcome to the forum.

You should consider posting your question apart from tacking onto the end of a previous question. You'll get more responses that way.

Hey, first time poster but long time stalker. I have basic lisp experience. I was looking for a lisp similar to this one only with a few differences. I have attached two pics 1 (before) shows what the lisp generates and 2 (after) shows what i am wanting it to be modified to do. Basically i just need it to draw only half of the tank head, draw a line down from the midpoint of the larger arc per a user defined length, and interpolate the other 2 lines. Please forgive me if this is not clear enough, let me know and i will try to clarify.

after.pdf

before).pdf

Follow LSR code with the following modification:

To get half of the larger arc, use 3point arc (SSE) instead of what LSR use (SER) from pt3 to pt6. To get the midpoint or second point of arc, use the define depth of your tank head from center point. From there use break command to remove half of the arc, midpoint of arc as your first point and pt6 as your second point.

You need to get another point below pt2, to draw a line.

The rest are the same as LSR code.

I hope I'm clear.

Edit: I should say pt1 not pt2.

Thanks t2l for your response, i get exactly what your saying i just cant get the code written correctly to work. Let me emphasize "Novice at lisp" at this point. Any ideas?

In order to test LSR code, you have to provide numbers or example just like the fellow who started this thread; otherwise its like shooting in the dark.

Dear Sir ,

I learn to Auto LISP plz Help me

I made pressure vessels in auto cad

is it possible to write an AutoLisp routine which will ask the user for inpute variables like the shell id, thicknes, length, knuckle radius, angle of toricone, etc,etc & then generate BOTH the elevation & end view

(or elevation & plan depending on whether its a horizontal vessel or vertical vessel)for the same?

plz help me

my e-mail is waqasazam89@hotmail.com

WAQAS AZAM

Waqas Azam: Welcome to the CADTutor forum. The last post in this thread was made over a year ago. Might I suggest that you post your question as a new thread in the AutoLISP/VBA forum? Also, it is never a good idea to post one's private email address in a public forum. Thank you.