Jump to content

REQUIRE LISP PROGRAM TO DRAW PIPE ELBOW WITH BEND


Ish

Recommended Posts

DEAR TEAM  I NEED A LISP PROGRAM TO DRAW PIPE ELBOW WITH BEND.

 

GIVEN DATA IS ALWAYS DIFFERENT.  (ID, OD, R,D)

 

SEE ATTACH IMAGE AND CAD FILE

 

THANKS 

ELBOW WITH BEND.JPG

bend-000.dwg

Edited by Ish
MODIFY
Link to comment
Share on other sites

The best answer a good task to start learning lisp its just basic elements like arcs and lines. So have a go only way to learn.

 

Here is the input part to get you started. Multi getvals is in the download area have a look at the ducting while your there.

 

image.png.1c8cacc388ef1064dd3933c2c9af0c76.png


(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(setq ans (AH:getvalsm (list "Enter bend values" "Enter ID" 8 7 "0.5" "Enter OD" 8 7 "0.52" "Enter radius" 8 7 "0.5" "Enter bend Dist" 8 7 ".52" "Enter Bend width" 8 7 "0.05")))
(setq id (atof (nth 0 ans))
      od (atof (nth 1 ans))
     rad (atof (nth 2 ans))
    dist (atof (nth 3 ans))
     wid (atof (nth 4 ans))
)

Edited by BIGAL
  • Like 1
Link to comment
Share on other sites

8 minutes ago, BIGAL said:

The best answer a good task to start learning lisp its just basic elements like arcs and lines. 

 

Here is the input part to get you started. Multi getvals is in the download area have a look at the ducting while your there.

image.png.1c8cacc388ef1064dd3933c2c9af0c76.png

 


(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(setq ans (AH:getvalsm (list "Enter bend values" "Enter ID" 8 7 "0.5" "Enter OD" 8 7 "0.52" "Enter radius" 8 7 "0.5" "Enter bend Dist" 8 7 ".52" "Enter Bend width" 8 7 "0.05")))
(setq id (atof (nth 0 ans))
      od (atof (nth 1 ans))
     rad (atof (nth 2 ans))
    dist (atof (nth 3 ans))
     wid (atof (nth 4 ans))
)

 

wow, it looks nice, window base value.

I need also outer line  by layer + dotted line type and bend line by layer.

thanks

Link to comment
Share on other sites

12 hours ago, Jim Clayton said:

I also have this.  Found it somewhere a while back.  Appears to be you're looking for.

Pipe V3.0.lsp 52.15 kB · 3 downloads

Thanks sir,

it is a  good but not fulfilling my requirements.

this lisp has fix pipe size but my pipe size in meter, radius, bend is variable. i need input base lisp. 

Thanks

Link to comment
Share on other sites

24 minutes ago, Tharwat said:

I have a good quantity of Pipe programs and here are three of them that may suit your needs and you can find more when exploring the website.

 

1- Water Supply Program.

2- Fire Fighting Program.

3- Fire Fighting Grooved and Threaded Program.

Thanks sir,

I USED THAT FROM CAD APP STORE is a  good but not fulfilling my requirements.

this lisp has fix pipe size but my pipe size in meter, radius, bend is variable. i need input base lisp. 

 

check BIGAL -CAD Guru  ABOVE POST.

 

Thanks

Link to comment
Share on other sites

If you look at the pipes.lsp it has a section which is all the pipe size parameters you could simply change all the imperial values to metric eg 4" now 100. 0.109 now 2.75 the line type setting will be in there too. Just use search replace.

  • Like 1
Link to comment
Share on other sites

3 hours ago, BIGAL said:

If you look at the pipes.lsp it has a section which is all the pipe size parameters you could simply change all the imperial values to metric eg 4" now 100. 0.109 now 2.75 the line type setting will be in there too. Just use search replace.

i was thinking the same, but i like your window base lisp.

Link to comment
Share on other sites

Jeya you need to start a new post this post does not have any relevance to your question.

 

The answer to your question is to use Google to search. This has been answered here multiple times.

 

 

Link to comment
Share on other sites

On 9/28/2019 at 5:59 AM, jeya said:

i am looking for lisp programming convert longitude,latitude to northing easting,pls advise & help

 

On 9/28/2019 at 5:59 AM, jeya said:

i am looking for lisp programming convert longitude,latitude to northing easting,pls advise & help

The answer to your question is to use Google to search.

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...