Topic: Total Length Lisp

[MSTG007]

Anyone know of a lisp which gives the total length of lines which you select?

thanks!

[MP]

Pretty simple. Modify this post to suit. Example --

Code: [Select]

(defun c:SumLen ( / getlen len ss i )

    (defun getlen ( object / area )
        (vl-catch-all-apply
           '(lambda ()
                (setq len
                    (vla-get-length
                        object
                    )
                )
            )    
        )
        (if len len 0.0)
    )

    (cond
        (   (setq len 0.0 ss (ssget))
            (repeat (setq i (sslength ss))
                (setq len
                    (+ len
                        (getlen
                            (vlax-ename->vla-object
                                (ssname ss
                                    (setq i (1- i))
                                )
                            )    
                        )
                    )
                )
            )
        )
    )
   
    (if len len 0.0)

)
If you feel more ambitious perhaps modify this post to suit.

[daron]

You might also try putting it in the proper forum too. Oh! I did it for you.

[MP]

Doh, missed that, thanks Daron.

[Jürg Menzi]

Visit my homepage -> Free Stuff -> Free Programs and search for 'GetLength.lsp'

Cheers

[whdjr]

See this concurrent post.