Quantity Takeoff LISP

[abrom24]

Hello,

 

I am attempting to put together a LISP that creates a table of cumulative geometric properties of selected objects.

 

I would like to be able to quantify Erosion and Sedimentation Control BMPs by layer for a cost estimation. Controls such as compost filter sock and orange construction fence are polylines, erosion control blanket is hatched, and inlet protection is a block. The controls are all on their own respective layers. The idea is that I would be able to select one occurrence of each of these controls (polyline, hatch, block), have the LISP apply the "select similar" command, and create a table that reports back the length of the polylines by layer, the cumulative area of the hatches by layer, and a count of the blocks by layer.

 

Due to my inexperience with LISP, I am afraid that I am unable to create this app in time for when I need it. It would be greatly appreciated if someone could help out in creating this app.

 

Thank you for your time.

[DGRL]

is there a Bounty?

[BIGAL]

A freebie count of the blocks is out there google.

 

Have you tried "dataextraction" ?

[abrom24]

is there a Bounty?

 

 

DGRL,

 

I am unsure of what you mean by "Bounty"

[abrom24]

A freebie count of the blocks is out there google.

 

Have you tried "dataextraction" ?

 

Bigal,

 

I have tried that before. I would like something that reports the cumulative length/areas based off of the layer. The size of the drawings that I work with are usually pretty large, which results in the dataextraction command creating a table that has an unmanageable amount of rows. The option to combine identical rows does not work in this case due to the fact that the lengths and areas are different for each polyline or hatch.

[DGRL]

@abrom24

 

 

An bounty is "something" you give in return for the work you ask 1 of us needs to do for you.

Since there is a time deadline someone needs to dedicate his/her time for this.

[BIGAL]

Wow ! that was fast.

But I would go over to www.lee-mac.com and have a bit of a look around you might find a better version of this.

[BIGAL]

Here is count blocks, custom version of dataextraction with lots of ifs and butts borders on a commercial request not expensive but just how long will the rubber band stretch after version 5 if repeated changes. As I already suggested its all out there just a case of putting together a number of seperate routines with a suitable front end. See image above.

 

(defun blockcnt ( / ss effname)
(if (and 
(setq obj (vlax-ename->vla-object (car (entsel "\nPick block "))))
(= (vla-get-objectname obj) "AcDbBlockReference")
)
(progn
(setq effname (vla-get-effectiveName obj))
(setq ss (ssget "X" (list (cons 0 "INSERT")(cons 2  effname))))
(alert (strcat "There is " (rtos (sslength ss) 2 0) " " effname " blocks))
)
(alert "you did not pick a block")
)
(princ)
)
(blockcnt)

 

Ps working on a global blocks attributes to table no hard coded block names. Yes my friend paypal is involved.

[Bilal]

AppisCAD automates your drawing and generates the Bill of Quantities for the whole or part of your drawing.