Ish Posted September 23, 2019 Share Posted September 23, 2019 (edited) 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 Quote Link to comment Share on other sites More sharing options...
BIGAL Posted September 24, 2019 Share Posted September 24, 2019 (edited) 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 1 Quote Link to comment Share on other sites More sharing options...
Ish Posted September 24, 2019 Author Share Posted September 24, 2019 wow, it looks nice, window base value. I need also outer line by layer + dotted line type and bend line by layer. thanks Quote Link to comment Share on other sites More sharing options...
Ish Posted September 24, 2019 Author Share Posted September 24, 2019 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 Quote Link to comment Share on other sites More sharing options...
BIGAL Posted September 24, 2019 Share Posted September 24, 2019 Good time to start learning, not everything in life is free. 1 Quote Link to comment Share on other sites More sharing options...
Ish Posted September 24, 2019 Author Share Posted September 24, 2019 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. Quote Link to comment Share on other sites More sharing options...
Jim Clayton Posted September 24, 2019 Share Posted September 24, 2019 I also have this. Found it somewhere a while back. Appears to be you're looking for. Pipe V3.0.lsp 1 Quote Link to comment Share on other sites More sharing options...
Ish Posted September 25, 2019 Author Share Posted September 25, 2019 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 Quote Link to comment Share on other sites More sharing options...
Tharwat Posted September 25, 2019 Share Posted September 25, 2019 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. 1 Quote Link to comment Share on other sites More sharing options...
Ish Posted September 25, 2019 Author Share Posted September 25, 2019 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 Quote Link to comment Share on other sites More sharing options...
BIGAL Posted September 26, 2019 Share Posted September 26, 2019 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. 1 Quote Link to comment Share on other sites More sharing options...
Ish Posted September 26, 2019 Author Share Posted September 26, 2019 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. Quote Link to comment Share on other sites More sharing options...
jeya Posted September 28, 2019 Share Posted September 28, 2019 i am looking for lisp programming convert longitude,latitude to northing easting,pls advise & help Quote Link to comment Share on other sites More sharing options...
BIGAL Posted September 29, 2019 Share Posted September 29, 2019 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. Quote Link to comment Share on other sites More sharing options...
Ish Posted September 29, 2019 Author Share Posted September 29, 2019 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. Quote Link to comment Share on other sites More sharing options...
Ish Posted September 29, 2019 Author Share Posted September 29, 2019 Pay some attention here also. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.