CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz] ARKANCE | CONTACT - CZ | SK | EN | DE
RSS channel - CAD tips RSS tips
RSS discussions

Discussion Discussion forum

?
CAD discussions, advices, exchange of experience

CAD Forum - Homepage CAD discussion forum - ask any CAD-related questions here, share your CAD knowledge on AutoCAD, Inventor, Revit and other Autodesk software with your peers from all over the world. To start a new topic, choose an appropriate forum.

Please abide by the rules of this forum.
This is a peer-to-peer forum. The forum doesn't replace the official direct technical support provided by ARKANCE for its customers.
How to post questions: register or login, go to the specific forum and click the NEW TOPIC button.
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Topic ClosedIs there a LISP for grades and slope?

 Post Reply Post Reply
Author
cadman33619 View Drop Down
Groupie
Groupie


Joined: 21.Jul.2009
Location: United States
Using: civil 2011 3d
Status: Offline
Points: 43
Direct Link To This Post Topic: Is there a LISP for grades and slope?
    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
Back to Top
Arben.Allaraj View Drop Down
Senior Member
Senior Member


Joined: 14.Nov.2007
Location: Albania
Using: AutoCAD 2008
Status: Offline
Points: 602
Direct Link To This Post Posted: 23.Jul.2009 at 23:49
Originally posted by cadman33619 cadman33619 wrote:

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


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
Back to Top
cadman33619 View Drop Down
Groupie
Groupie


Joined: 21.Jul.2009
Location: United States
Using: civil 2011 3d
Status: Offline
Points: 43
Direct Link To This Post 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
Back to Top

Related CAD tips:


 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down



This page was generated in 0,102 seconds.