Distance command

I need a distance Nearist to Perpendicular that will disregard Z elevations
and will display its results in both Architectural and decimal format.
Distance = 30'-0"
Distance = 360.00001234


David

 

I have had this one for a while, try it out. Precision is based on the
settings below, with istructions on how to change.

(defun c:2d (/ pt1 pt2)
(setvar "cmdecho" 0)
(setq pt1 (getpoint "\nFirst Point: "))
(setq pt2 (getpoint pt1 "\nSecond Point: "))
(command ".dist" ".z" "0,0,0" pt1 ".z" "0,0,0" pt2)
(princ (strcat "\nDistance = " (rtos (getvar "distance") 4 0)))
;Change the zero to change precision
(princ (strcat "\nDistance = " (rtos (getvar "distance") 2 8)))
;Change the eight to change precision
(prin1)
)

 

See if this program would work for you.
Please let me know how it works out.

Richard

Lisp replacement for AutoCad distance command
http://mywebpages.comcast.net/medeziner/