Visual LISP, AutoLISP and General Customization

[#1]

Hello Everybody,

I need a lisp routine that will add up the lengths of all
lines, arcs and polylines in a given layer.

Any ideas?

Thanks, Steve (Win98, A2K)

[#2]

Steve,

Below the content of an earlier posting from Jaysen Long (Date: 21-09-1999,
Subject: Total length of selected lines)

Alex


LL sums the length of all objects on selected layers.
OBL sums the length of selected objects.

Both print the output to the command line giving the lengths for different
layers as well as a total.


(defun c:ll ( / ) (llutput "X" "\nSelect objects on layers to total...")
(princ))
(defun cbl ( / ) (llutput "P" "\nSelect objects to total...") (princ))


(defun llutput (ll:sstype llrompt / ll:ss i ll:ename ll:elist ll:layer
ll:layerlist ll:totallength
ll:layerlength ll:arcdelta
llbjlength ll:space)
(prompt "\nLayer Lengths by Jaysen D. Long\nCopyright \2511998-1999. All
Rights Reserved.")
(setq ll:layerlist nil)
(prompt llrompt)
(if (setq ll:ss (ssget '((0 .
"ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE,REGION,SPLINE"))))
(progn
(repeat (setq i (sslength ll:ss))
(setq ll:elist (entget (ssname ll:ss (setq i (1- i)))))
(if (not (member (setq ll:layer (cdr (assoc 8 ll:elist)))
ll:layerlist))
(setq ll:layerlist (append ll:layerlist (list ll:layer)))
)
)
(setq ll:totallength 0.0)
(foreach x ll:layerlist
(setq ll:layerlength 0.0)
(command "._select" ll:ss "")
(setq ll:ss (ssget ll:sstype (list (cons 0
"ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE,REGION,SPLINE") (cons 8 x))))
(repeat (setq i (sslength ll:ss))
(setq ll:ename (ssname ll:ss (setq i (1- i))))
(setq ll:elist (entget ll:ename))
(cond
( (eq (cdr (assoc 0 ll:elist)) "ARC")
(if (> (cdr (assoc 50 ll:elist)) (cdr (assoc 51 ll:elist)))
(setq ll:arcdelta (+ (abs (- (cdr (assoc 50 ll:elist)) (*
2.0 pi))) (cdr (assoc 51 ll:elist))))
(setq ll:arcdelta (- (cdr (assoc 51 ll:elist)) (cdr (assoc
50 ll:elist))))
)
(setq llbjlength (* (cdr (assoc 40 ll:elist)) ll:arcdelta))
)
( (eq (cdr (assoc 0 ll:elist)) "LINE")
(setq llbjlength (distance (cdr (assoc 10 ll:elist)) (cdr
(assoc 11 ll:elist))))
)
( (wcmatch (cdr (assoc 0 ll:elist))
"*POLYLINE,CIRCLE,ELLIPSE,REGION,SPLINE")
(command "._area" "_obj" ll:ename)
(setq llbjlength (getvar "perimeter"))
)
)
(setq ll:layerlength (+ ll:layerlength llbjlength))
)
(setq ll:space "" llrompt (strcat x ": " (rtos ll:layerlength 2 2)
" LF"))
(prompt (strcat "\n" x ": " (repeat (- 52 (strlen llrompt)) (setq
ll:space (strcat ll:space " "))) (rtos ll:layerlength 2 2) " LF"))
(setq ll:totallength (+ ll:totallength ll:layerlength))
)
(setq ll:space "" llrompt (strcat "Total: " (rtos ll:totallength 2
2) " LF"))
(prompt (strcat "\nTotal: " (repeat (- 52 (strlen llrompt)) (setq
ll:space (strcat ll:space " "))) (rtos ll:totallength 2 2) " LF"))
)
)
)


Jaysen

[#3]

I did this one with the help of newsgroups, so, thanks everyone..

[#4]

Thanks a lot! I appreciate it.

Steve


"Alex Repetto" wrote in message
news:C58F2DE457B9D03E14AB6C1537968A4D@in.WebX.maYIadrTaRb...
> Steve,
>
> Below the content of an earlier posting from Jaysen Long (Date:
21-09-1999,
> Subject: Total length of selected lines)
>
> Alex
>
>
> LL sums the length of all objects on selected layers.
> OBL sums the length of selected objects.
>
> Both print the output to the command line giving the lengths for different
> layers as well as a total.
>
>
> (defun c:ll ( / ) (llutput "X" "\nSelect objects on layers to total...")
> (princ))
> (defun cbl ( / ) (llutput "P" "\nSelect objects to total...") (princ))
>
>
> (defun llutput (ll:sstype llrompt / ll:ss i ll:ename ll:elist ll:layer
> ll:layerlist ll:totallength
> ll:layerlength ll:arcdelta
> llbjlength ll:space)
> (prompt "\nLayer Lengths by Jaysen D. Long\nCopyright \2511998-1999. All
> Rights Reserved.")
> (setq ll:layerlist nil)
> (prompt llrompt)
> (if (setq ll:ss (ssget '((0 .
> "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE,REGION,SPLINE"))))
> (progn
> (repeat (setq i (sslength ll:ss))
> (setq ll:elist (entget (ssname ll:ss (setq i (1- i)))))
> (if (not (member (setq ll:layer (cdr (assoc 8 ll:elist)))
> ll:layerlist))
> (setq ll:layerlist (append ll:layerlist (list ll:layer)))
> )
> )
> (setq ll:totallength 0.0)
> (foreach x ll:layerlist
> (setq ll:layerlength 0.0)
> (command "._select" ll:ss "")
> (setq ll:ss (ssget ll:sstype (list (cons 0
> "ARC,CIRCLE,ELLIPSE,LINE,*POLYLINE,REGION,SPLINE") (cons 8 x))))
> (repeat (setq i (sslength ll:ss))
> (setq ll:ename (ssname ll:ss (setq i (1- i))))
> (setq ll:elist (entget ll:ename))
> (cond
> ( (eq (cdr (assoc 0 ll:elist)) "ARC")
> (if (> (cdr (assoc 50 ll:elist)) (cdr (assoc 51 ll:elist)))
> (setq ll:arcdelta (+ (abs (- (cdr (assoc 50 ll:elist)) (*
> 2.0 pi))) (cdr (assoc 51 ll:elist))))
> (setq ll:arcdelta (- (cdr (assoc 51 ll:elist)) (cdr (assoc
> 50 ll:elist))))
> )
> (setq llbjlength (* (cdr (assoc 40 ll:elist))
ll:arcdelta))
> )
> ( (eq (cdr (assoc 0 ll:elist)) "LINE")
> (setq llbjlength (distance (cdr (assoc 10 ll:elist)) (cdr
> (assoc 11 ll:elist))))
> )
> ( (wcmatch (cdr (assoc 0 ll:elist))
> "*POLYLINE,CIRCLE,ELLIPSE,REGION,SPLINE")
> (command "._area" "_obj" ll:ename)
> (setq llbjlength (getvar "perimeter"))
> )
> )
> (setq ll:layerlength (+ ll:layerlength llbjlength))
> )
> (setq ll:space "" llrompt (strcat x ": " (rtos ll:layerlength 2
2)
> " LF"))
> (prompt (strcat "\n" x ": " (repeat (- 52 (strlen llrompt))
(setq
> ll:space (strcat ll:space " "))) (rtos ll:layerlength 2 2) " LF"))
> (setq ll:totallength (+ ll:totallength ll:layerlength))
> )
> (setq ll:space "" llrompt (strcat "Total: " (rtos ll:totallength 2
> 2) " LF"))
> (prompt (strcat "\nTotal: " (repeat (- 52 (strlen llrompt)) (setq
> ll:space (strcat ll:space " "))) (rtos ll:totallength 2 2) " LF"))
> )
> )
> )
>
>
> Jaysen
>
>
>
>
>
>