REQUIRE LISP PROGRAM TO DRAW PIPE ELBOW WITH BEND

[Ish]

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 

bend-000.dwg

Edited September 23, 2019 by Ish
MODIFY

[BIGAL]

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.

 

(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 September 24, 2019 by BIGAL

[Ish]

wow, it looks nice, window base value.

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

thanks 

[Ish]

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.

 

(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

[BIGAL]

Good time to start learning, not everything in life is free.

[Ish]

24 minutes ago, BIGAL said:

Good time to start learning, not everything in life is free.

if we have a good member like you, it is a plus point for us.

[Jim Clayton]

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

Pipe V3.0.lsp

[Ish]

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

[Tharwat]

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.

[Ish]

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

[BIGAL]

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.

[Ish]

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.

[jeya]

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

[BIGAL]

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.

 

 

[Ish]

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.

[Ish]

Pay some attention here also.