[Search tip detail and code files using keywords, tip number, author name, etc ]
Measure Near-to-Perpendicular Distance
Tip# 3695 By Terry Priest On 31-Jul-2011
Rated By 0 users
Categories : Distance
Software type : AutoCAD 2012
Rename File To : No Files to download.
Calculate the distance between two points.

Designer Terry Priest sends us a LISP routine to use in AutoCAD — and it's one of our shortest ever.

"Load the routine, then type DN to start it. It measures the distance between one point and a second point that's perpendicular to the first.

(defun c:dn()(setvar "cmdecho" 1)(command "dist" "nea" pause "per")) ;Distance-Nearto-Perp

It starts the Distance command, which measures the distance between two points."

Notes from Cadalyst Tip Patrol: This is a very simple routine that can save several steps. This routine uses the Near (NEA) osnap for the first point. This lets you pick anywhere on an object. The second point uses the Perpendicular (PER) osnap to measure a point perpendicular to the first. This routine is very efficient. Type DN, pick a point, then the second point — that's it. If you want to, you can change the osnap settings in the routine. Change the "nea" to "end" to use the endpoint osnap instead of Near.


Average Rating:

User comments
Comment by ,
Posted on 2011-08-02 04:17:39
Good Lisp as ever. How come many Lisps are re-invented while already there. This one in particular exists and used since 1990 or before, back to good old AutoCAD V9.
Comment by Cooper,Kent
Posted on 2011-10-05 08:50:36
This is virtually identical to Tip #1117.