Is there a LISP for grades and slope?
Printed From: CAD Forum
Category: EN
Forum Name: AutoCAD
Forum Description: Discussion about AutoCAD and AutoCAD LT, viewers, DWG and DWF formats, Design Review, AutoCAD 360, add-ons
URL: https://www.cadforum.cz/forum_en/forum_posts.asp?TID=2235
Printed Date: 19.Apr.2026 at 07:47
Topic: Is there a LISP for grades and slope?
Posted By: cadman33619
Subject: Is there a LISP for grades and slope?
Date Posted: 22.Jul.2009 at 18:06
|
Hi All, is there a lisp that will give you grade elevations after picking start/end points and entering the desired slope? (or something similar) I've heard of something like this before. I'm not very good at determining what the grades should be for two points with a desired slope and I have not been able to find any tutorials to help. Thanks Cadman33619 |
Replies:
Posted By: Arben.Allaraj
Date Posted: 23.Jul.2009 at 23:49
I hope find something for you. defun c:grade () (prompt "\npick points for the grade") (setq ang1 (getangle)) (setq tanofang (/ (sin ang1) (cos ang1))) (setq grade1 (/ 1 tanofang)) (setq txt1 (strcat (rtos grade1 2 1) ":1")) (setq pnt1 (getpoint "\nPick location for text")) (command "text" pnt1 (rtd ang1) txt1) ) (defun rtd (a) (/ (* a 180.0) pi) ) ------------- Ing Arben.Allaraj http://cad-drafting-corner.blogspot.com |
cadman33619 wrote:Posted By: cadman33619
Date Posted: 24.Jul.2009 at 15:24
|
Hi, this is not exactly what I'm looking for. This works great for providing the slope of a line. What I need is something that will tell me the new grade elevation of a point I select (after entering the desired slope and an existing grade elevation). I'm not very good at determining new grades for a site. I was hoping there was a LISP for this. Thanks for your help, tough Cadman33619 |