ADT 2004 - List length of Lines without using the List command

I'm trying to help out the estimating department with a layout of a tongue/groove boards used on a ceiling. The question is there anyway to list the lengths of the lines without just using the list command so that it can be put into a words doc or excel spreadsheet? For your reference I'm using ADT2004.

This wil work for lines, polylines, splines, arcs, and circles.

Code:

---

(defun c:ll (/ ss len ssn typ llens str)
 (defun        llen (en)
  (vla-get-length (vlax-ename->vla-object en))
 )
 (defun        alen (en)
  (vla-get-arclength (vlax-ename->vla-object en))
 )
 (defun        get_length (ent / obj)
  (setq obj (vlax-ename->vla-object ent))
  (vlax-curve-getDistAtParam obj (vlax-curve-getendparam obj))
 )
 (and (setq ss (ssget '((0 . "*LINE,ARC,CIRCLE"))))
          (repeat (setq len (sslength ss))
          (setq len (1- len)
                ssn (ssname ss len)
                typ (cdr (assoc 0 (entget ssn)))
          )
          (cond
        ((= typ "SPLINE")
        (setq llens (cons (get_length ssn) llens))
        )
        ((wcmatch typ "*LINE") (setq llens (cons (llen ssn) llens)))
        ((= typ "ARC") (setq llens (cons (alen ssn) llens)))
        (T (setq llens (cons (get_length ssn) llens)))
          )
          )
          (setq str        (strcat        "\n"
                        (itoa (length llens))
                        " line length(s) = "
                        (rtos (apply '+ llens) 4)
                )
          )
          (princ str)
          (alert str)
 )
 (princ)
)

---

Hey there
I don't know if this is available in ADT cause I use LDT but there is a tool called Add distances located in the Inquiry dropdown. You can add multiple distances of lines and create a piece of text to place on the screen which could be exported to the spreadsheet.
I hope this helps
Danno

Hi "PHOTOS4ME"

Please note I have *moved* this thread from the AutoCAD General forum to this one...

Why? - ADT may offer additional functionality that vanilla AutoCAD does not...

Thanks, Mike

Forum Manager

Quote:

---

Originally Posted by PHOTOS4ME

I'm trying to help out the estimating department with a layout of a tongue/groove boards used on a ceiling. The question is there anyway to list the lengths of the lines without just using the list command so that it can be put into a words doc or excel spreadsheet? For your reference I'm using ADT2004.

---

What are you using to model the boards? You may be able to create a Schedule Table that lists the lengths and has a total length at the bottom of the length column.

I'm a little confused by your estimating department. If you consider that ceiling boards are substantially similar to wood plank flooring, most of that should be estimated by square feet. If you use square feet for calculations, you can use the floor area for the ceiling area, if the ceiling is flat. If it is sloped you can use a slab.

For what its worth in the UK timber t+g strips/planks can be sold in linear metres, but we would still put down the square metre/feet to calculate costs.

i know that if the boards were to be straight figuring the square footage would work. But if the these were to be curved on a 90 foot arc i didn't know if it would be that easy

Quote:

---

Originally Posted by dkoch

What are you using to model the boards? You may be able to create a Schedule Table that lists the lengths and has a total length at the bottom of the length column.

---

This the way I would go.

1. add a new property set definition that applies to lines
2. add a automatic property for Length
3. add a new Schedule that use your new property set definition
4. insert the new schedule table
5. set the layer wildcard in the schedule table to the layer the lines are on
6. attach property set to the lines
7. You can who export the schedule table