*Free* lisp program to replace Acad distance command

HowFar lisp is a FREE lisp program to measure the exact distance and the X and Y components between two points (PT1-PT2) in Decimal, Fractional, Engineering,
Architectural and Metric. It also gives the angle between the two points in Nearest degree, Decimal degree and degrees/minutes/seconds formats. While the dialog box displays the measurements it allows the user to change the precision of each format from 0 to 8 places precision.
TRY IT OUT.......IT'S FREE http://mywebpages.comcast.net/medeziner /
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
Ummm. DISTANCE command does the exact same thing, and with a little tweaking, you get the format you want. No big deal here. A free cooler full of Labatt's Blue would get my attention. Your freebie is just not quite titillating. Sorry. Unless I'm completely missing the point, which happens occasionally. Just for fun, here is a LISP I wrote that lets you pick lines and arcs (or whatever, but it just adds lines and arcs), adds the lengths and displays a message box with the result. Enjoy. Any and all mistakes are intentional, adding spice to an otherwise perfect file.
Dr Fleau
(defun c:develop (/ iter devel $a total data1 stpt endpt distl strad endrad distr ) (setvar "osmode" 0) (setq $a nil iter 0 devel 0.0 stpt nil endpt nil strad 0.0 endrad 0.0 rad 0.0 distl 0.0 distr 0.0 total 0.0 devel 0.0 ) (setq $a (ssget)) (setq total (sslength $a)) (while (< 0 total) (progn (setq data1 (cdr (entget (ssname $a iter)))) (cond ((= (cdr (assoc 0 data1)) "LINE") (Progn (setq stpt (cdr (assoc 10 data1)) endpt (cdr (assoc 11 data1)) ) (setq distl (abs (distance stpt endpt))) (setq devel (+ devel distl)) ) ;_END PROGN ) ;_END COND1 ((= (cdr (assoc 0 data1)) "ARC") (Progn (setq strad (cdr (assoc 50 data1)) endrad (cdr (assoc 51 data1)) rad (cdr (assoc 40 data1)) ) (cond ((> endrad strad) (setq distr (* rad (- endrad strad))) ) ((setq distr (* rad (+ endrad (- (* 2 pi) strad)))) ) (t nil) ) ;_end COND (setq devel (+ devel distr)) ) ;_END PROGN ) ;_END COND2 (T nil) ) ;_END COND (setq iter (+ 1 iter)) (setq total (- total 1)) ) ;_END PROGN ) ;_END WHILE (alert (strcat "Total length : " (rtos devel) " units")) (setq $a nil) (setvar "osmode" 183) ) ;_end DEFUN DEVELOP

Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload

Polytechforum.com is a website by engineers for engineers. It is not affiliated with any of manufacturers or vendors discussed here. All logos and trade names are the property of their respective owners.