Jump to content

Pressure Vessel Dished Head Lisp


The Buzzard

Recommended Posts

  • 1 month later...
  • Replies 143
  • Created
  • Last Reply

Top Posters In This Topic

  • The Buzzard

    48

  • ReMark

    31

  • Lee Mac

    7

  • digger

    7

Top Posters In This Topic

Posted Images

Here's one for you buzz combine with DISH HEAD it kind of covers it all enough anyway to draw tanks and do a little planning at the same time.

Feel free to add stuff and post back the newly added ones

 

 

Best R

 

Change the location of the file in the lsp (defun C:DEV ()

(setq prgpath for it to work

 

Not working on AC2013

 

Command: (LOAD "C:/AutoCAD All support/DEVELOP/DEVELOP.LSP") C:DEV

Command: DEV

; error: quit / exit abort

Command:

What do I do wrong?

Path changed.

(defun C:DEV ()

(setq prgpath "C:\AutoCAD All support\DEVELOP")

(setq dcl_id (load_dialog (strcat prgpath "DEVELOP.dcl")))

Link to comment
Share on other sites

Try this it should work and dont forget to add it in the search path file option tab

(setq prgpath "C:/AutoCAD/All/support/DEVELOP/")

 

 

Test on AC1012:

 

 

Command: _appload DEVELOP.LSP successfully loaded.

 

Command:

Command:

Command: DEV

; error: quit / exit abort

 

 

There when I add backslash:

 

 

Command: (LOAD "C:/ACAD ALL SUPPORT/DEVELOP/DEVELOP.LSP") ; error: malformed

string on input.

 

 

Sorry can"t enable code wrapper

Link to comment
Share on other sites

Test on AC1012:

 

 

Command: _appload DEVELOP.LSP successfully loaded.

 

Command:

Command:

Command: DEV

; error: quit / exit abort

 

 

There when I add backslash:

 

 

Command: (LOAD "C:/ACAD ALL SUPPORT/DEVELOP/DEVELOP.LSP") ; error: malformed

string on input.

 

 

Sorry can"t enable code wrapper

 

this is what you must have in the lsp file on the 30th line from the bottom

 

(setq prgpath "C:/AutoCAD/All/support/DEVELOP/")

 

path all seperated with the back slash as above with the last one also after develop as per above.

 

Mine in on the desktop and here what is the path in the 30th line from the bottom (setq prgpath "C:/USERS/Robert Perron/DESKTOP/DEVELOP/") and it works fine

Link to comment
Share on other sites

I'm glad you like it but I have no need for your friend's program as I still use the one written by The Buzzard (the person who started this thread and donated his code). Thanks anyways.

Link to comment
Share on other sites

I'm glad you like it but I have no need for your friend's program as I still use the one written by The Buzzard (the person who started this thread and donated his code). Thanks anyways.

 

i use buzzard's on too but mine does other stuff you should load and have a look at it kind of complete ones need's to draw legs and cones along with holes in shells.

 

R

Link to comment
Share on other sites

Post #122 and #123 with backslash and without.

I did change this line.

Will try tomorrow to disable path line.

Link to comment
Share on other sites

this one is for do it yourself sizes.

 

I've managed to change the layers within the LSP file. I do have one left over issue i cannot seem to resolve... how do i remove the section which loads linetype "hidden2" as i do not use that linetype for my hidden layer.

 

I know it's simple and just purge or LT and delete. But i'm curious how i can stop this behavior. Any input?

Link to comment
Share on other sites

  • 8 months later...
  • 3 months later...

I am new to this forum, although I have been a lurker for quite a while and have benefited greatly from all the advice given here. But I need some assistance for 3D dished ends and this may not be the right thread to ask for help. But you guys seem to be very knowledgeable on LISP code and especially Buzzard's dished end code.

Is there any way that Buzzard's code will put the dished end in the Z axis. I have used his LISP code to produce dished ends, but they always draw on the X or Y axes. I want to make a 3D dished end, but I am not able to do so.

Any assistance will be appreciated.

Link to comment
Share on other sites

As I said, I have done many 2d drawings, but this is my first foray into 3D. I have tried the REVOLVE command, but all I get is strange shapes.

I want to add the dished end to a cylinder, which is a standard 3D shape, but I have no idea how to create the dished end in 3D.

Buzzard's LISP helped me create the 2D dished end, but it is only a 2D shape.

Link to comment
Share on other sites

Ok, thanks. I got it to work, but the dished end is as per your drawing. Please have some patience with me, I do not know many of the 3D commands.

How do I rotate the dished end so that the opening is horizontal. The tank will be a vertical tank with legs attached to the dished end.

Thanks. Barry

Link to comment
Share on other sites

  • 6 months later...
how do you edit this code

Why would you want to edit the code?

 

I'd have to take another look since it has been a while since I used the program. I thought the program was compiled but I could be wrong.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...