Created
April 28, 2018 14:23
-
-
Save kevinluo201/51450de14f63382c046c6d840bb42c96 to your computer and use it in GitHub Desktop.
tlen.lsp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;| | |
TLEN.LSP - Total LENgth of selected objects | |
(c) 1998 Tee Square Graphics | |
|; | |
(defun C:TLEN (/ ss tl n ent itm obj l) | |
(setq ss (ssget) | |
tl 0 | |
n (1- (sslength ss))) | |
(while (>= n 0) | |
(setq ent (entget (setq itm (ssname ss n))) | |
obj (cdr (assoc 0 ent)) | |
l (cond | |
((= obj "LINE") | |
(distance (cdr (assoc 10 ent))(cdr (assoc 11 ent)))) | |
((= obj "ARC") | |
(* (cdr (assoc 40 ent)) | |
(if (minusp (setq l (- (cdr (assoc 51 ent)) | |
(cdr (assoc 50 ent))))) | |
(+ pi pi l) l))) | |
((or (= obj "CIRCLE")(= obj "SPLINE")(= obj "POLYLINE") | |
(= obj "LWPOLYLINE")(= obj "ELLIPSE")) | |
(command "_.area" "_o" itm) | |
(getvar "perimeter")) | |
(T 0)) | |
tl (+ tl l) | |
n (1- n))) | |
(alert (strcat "Total length of selected objects is " (rtos tl))) | |
(princ) | |
) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Thx a lot