Tim Decker
Guest
|
 Posted:
Fri Apr 08, 2005 10:29 pm Post subject:
Re: Distance command |
|
|
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)
)
"David Allen" <*@*.com> wrote in message
news:i8dd519okibllrgm6umqu38nq5560dp1jo@4ax.com...
| Quote: | 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 |
|
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in