vijoy Posted April 12, 2017 Posted April 12, 2017 I need a simple Lisp, Drawing File i have attached In put we can provide A,B,F,G values . “B” value will vary each drawing. According that I need draw this line diagram TEST.dwg Quote
RobDraw Posted April 12, 2017 Posted April 12, 2017 If you are looking for a LISP, you would be better off posting in the LISP forum but I think a dynamic block would work for this. Quote
RobDraw Posted April 12, 2017 Posted April 12, 2017 Yes, you said that. There are other ways of doing it. Have you tried looking in the LISP forum? Quote
SLW210 Posted April 12, 2017 Posted April 12, 2017 I moved your thread to the AutoLISP, Visual LISP & DCL Forum. Posting in the correct forum would help you get the proper help. Quote
David Bethel Posted April 12, 2017 Posted April 12, 2017 Your sample doesn't quite match the problem Assuming the angle shown are the basis for the shape : If G is to be constant, F's true value will be constant. F's delta on the X axis will change Point E will rotate around point A as well as C & D It his what you are looking for ? Quote
BIGAL Posted April 13, 2017 Posted April 13, 2017 (edited) Big hint look for "Draw pipe at grade" or "Draw line at grade" I am sure it exists. % is easy, height diff = length*%/100.0 every day as a civil engineer. Also the 0.5 dia is not a vertical measurement but rather a parallel to grade line. The 135 angle can then be worked out based on the line angle +- etc Its a lisp that would be good for a beginer to tackle I take it by the number of posts Vijoy your starting out. So some help but not code, the bold is the lisp just have a look at some sample code here. Pick start point Getpoint enter L & % & Dia use polar to work out new end point from start point. get angle of new line use polar twice to work out 135 deg end point use a pline pline pt1 pt2 pt3 pt4 C as you have thes points you can now label and dimension 2nd step next lesson. Save this file, then you can use "appload" or drag and drop it onto Autocad. Then just copy the next line to the command line and hey you have a front end all done. (ah:getval3 "Enter Length" 5 4 "Enter % " 5 4 "Enter dia" 5 4) GETVALS.lsp Edited April 13, 2017 by BIGAL Quote
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.