topic Re: Automatic length, width and area calculation of rectangle into tabular form. in Visual LISP, AutoLISP and General Customization Forum

Automatic length, width and area calculation of rectangle into tabular form.

kcsushantkc — Mon, 04 May 2020 11:34:09 GMT

Hi, guys hope all of you are staying safe and doing best from yourself. I am an electrical engineer by profession while doing some of the research for my work I came across this .lsp code written by our lee mac programming kudos to them. This code calculates the area of the rectangle and shows it in tabular form. I wanted to edit this code which can also display the length, width, and area of the selected rectangle respectively. Can anybody help me with this one? I've attached the code and recent output and wanted output pictures herewith for reference.
PS: I don't want to change anything on code it is working flawlessly just wanted to add length and width column sections on the above code. Feel free to contact me regarding any confusions 🙂
Thanks in advance.
Stay safe, stay home.

Re: Automatic length, width and area calculation of rectangle into tabular form.

Sea-Haven — Tue, 05 May 2020 05:15:55 GMT

I am pretty sure rather than start editing code just goggle your question is a pretty standard request.

Re: Automatic length, width and area calculation of rectangle into tabular form.

pbejse — Tue, 05 May 2020 08:44:30 GMT

Where are the Length and Width information stored? Assuming every point the user select is rectangular in shape? are they the objects Length and Width? What of irregular shape rooms/plot/etc.. ?

Re: Automatic length, width and area calculation of rectangle into tabular form.

kcsushantkc — Tue, 05 May 2020 11:19:49 GMT

Hi, thank you for your reply. Right now I'm assuming every point user select is rectangular shape only. If an irregular shape is considered then there my might be too much conflict so I want it to be simple.
And, for length and width information storage I didn't get you.

Re: Automatic length, width and area calculation of rectangle into tabular form.

kcsushantkc — Tue, 05 May 2020 11:46:06 GMT

Thank you for your enthusiasm. Yes, I've searched a lot this is the nearest which will fulfill my current demand. I've found another code but, it shows length and width only and creates the one table at a time rather than a continuous array. This code only fulfills only the dimensional requirement (ie: extraction of length and width only). I've attached that code if you want to have a look at it.

Re: Automatic length, width and area calculation of rectangle into tabular form.

pbejse — Tue, 05 May 2020 12:52:52 GMT

@kcsushantkc wrote:

..And, for length and width information storage I didn't get you.

I was hoping there would be another source for that data, Anyway, we will add the options of Lenght and Width without too much altering the original code.

Writing mod...

Re: Automatic length, width and area calculation of rectangle into tabular form.

pbejse — Tue, 05 May 2020 20:51:49 GMT

Wish i could spend more time with this. I made a quick mod of the lisp file AreaLabelV1-9.lsp

Added Length and Width

The value would be "-" for both Length and Width

if an irregular shape is selected object
if a region is selected
if the boundary detected by "pick" mode
if the HPMODE is 0

Field values for Area only for "Object" mode [ as per original routine ]

The additional columns will only be available for table mode only [ AT ]

AreaLabelV1-9.1.lsp

Screencast: https://autode.sk/2xC3CmG

Re: Automatic length, width and area calculation of rectangle into tabular form.

kcsushantkc — Wed, 06 May 2020 07:13:55 GMT

This is exactly what I've been looking after thank you so much.

If that area column could be on "column 4" and width table could be on "column 2" that would help me more🙂.

Thanks to @pbejse

Re: Automatic length, width and area calculation of rectangle into tabular form.

pbejse — Wed, 06 May 2020 08:58:00 GMT

@kcsushantkc wrote:
If that area column could be on "column 4" and width table could be on "column 2" that would help me more🙂.

Sure

AREA to WIDTH , WIDTH TO AREA, got it ...

Refer to attached lisp file | AreaLabelV1-9.2.lsp

@kcsushantkc wrote:
Thanks to @pbejse

You are Welcome

Cheers

Re: Automatic length, width and area calculation of rectangle into tabular form.

Woon22 — Wed, 22 Dec 2021 14:34:51 GMT

Hi, I know this is an older discussion but I am curious if it would be possible to modify this lisp to do a few things:

1. Number areas that are the same size as the same number?

2. Add a quantity for the areas in the table?

I have been trying to learn some lisp programming to accomplish this but so far I am still in the beginner stages and feel like I have a lot to learn about it (and probably about proper forum educate). Let me know if you have any thoughts on this.

Thanks,

Re: Automatic length, width and area calculation of rectangle into tabular form.

Sea-Haven — Thu, 23 Dec 2021 07:04:44 GMT

There was code for do a table and have the area numbers corresponding in a cell, would that be useful ? But will have to look for it.

To add the numbers like A1 A2 etc requires a list containing areas and the entity names, then can be matched a bit involved but doable just not a 5 minute job unless code exists.

Re: Automatic length, width and area calculation of rectangle into tabular form.

Woon22 — Thu, 23 Dec 2021 12:33:51 GMT

It could be useful, at the moment anyway to combine parts that are alike would be greatly beneficial for this lisp. I found a lisp program that creates a table of height and width for a rectangle, along with a count for the parts. This lisp program combines alike parts, but it does not number them. I thought it may be possible to combine parts by having the code compare area values, with if statements to declare the names as the same. Once again, I do not know too much, and I have only just been reading and watching a lot of YouTube tutorials on lisp trying to get somewhere (I have multiple ideas for lisps that would be useful to me but this would be best).

Re: Automatic length, width and area calculation of rectangle into tabular form.

Woon22 — Sat, 25 Dec 2021 20:58:39 GMT

Since I have no idea what I am doing but I do want to begin to learn, I wrote code to extract the length and width of a rectangle and set those variables to len and wid. I had to do it step by step and I know there are faster ways out there, but I am starting somewhere. The next goal is to add numbers centered in the rectangle and then count them (if two rectangles' lengths and width are the same then it will give them the same number). Any advise for this code would be greatly appreciated, (even if it's just explaining better ways of obtaining the data). I don't expect to be able to accomplish my goals over one weekend but I have been obsessing over this lol.

;;Program that prompts user to pick area, then stores length and width to variable;; (defun c:Rectanglenwid() (setq pt1(getpoint)) (setq pt2 (entlast)) (command "_.BPoly" pt1 "") (setq poly(entlast)) (setq pbd(entget poly)) (foreach sublist pbd (if (= (car sublist) 10) (setq list1(cons (cdr sublist) list1)))) (setq list1x(car(car list1))) (setq list1y(cadr(car list1))) (setq list2x(car(caddr list1))) (setq list2y(cadr(caddr list1))) (setq len(abs (- list1x list2x))) (setq wid(abs (- list1y list2y))) );end

Re: Automatic length, width and area calculation of rectangle into tabular form.

edCLUK9 — Wed, 23 Feb 2022 16:27:12 GMT

I'm not an Autodesk guy but a marketing guy. A "Square inch analysis" is done to analyze the Value of block of common advertised products. i.e. measure the space and divide the sqin into the sales (or profit ).

This is typically done manually by a clerk measuring the sides, computing the sqin and entering into a spreadsheet.

Per the attached, I would like to "automate" this process. We produce multiple catalogs varying from 65 to 184 pages several times a year and it behooves us to manually do all of these calculations for every issue.

Per the thread i "googled" you seem to have a handle on automating these calculations - perhaps by custom code or an organic part of the program built in.

Refer to my attached image;

In the best of all worlds, I would like to "mark up" the blocks by page, scan the pages and create a spreadsheet of all of the sqin by marked area.

Attached is one of 184 catalog pages to give a sense of the problem.

By the way, Solving this problem would find HUGE interest in the Catalog industry who all experience the identical problem. It could be sold as an online service or a standalone app.

Re: Automatic length, width and area calculation of rectangle into tabular form.

Woon22 — Wed, 23 Feb 2022 18:24:09 GMT

The program Bluebeam has an area calculator built into it, if you use Bluebeam you can use the measurement tool to create a rectangle over the area and set the scale so that 1"=1" so if you have the catalogs scanned this may be an option. Maybe that'll help?

Re: Automatic length, width and area calculation of rectangle into tabular form.

pbejse — Wed, 23 Feb 2022 18:47:16 GMT

@edCLUK9 wrote:

Attached is one of 184 catalog pages to give a sense of the problem.

...

Its not much of a problem if theres a pattern that we can follow and organize.

Dont tell me all you have are scanned pages of the catalog? You could've at least use a scanner with OCR capability.

Re: Automatic length, width and area calculation of rectangle into tabular form.

edCLUK9 — Wed, 23 Feb 2022 19:36:53 GMT

I have .pdf of the entire catalog.

Re: Automatic length, width and area calculation of rectangle into tabular form.

Sea-Haven — Thu, 24 Feb 2022 05:32:52 GMT

Going back a step what software made the catalog ? Or do you only have the pdf.

Very limited like photoshop etc but each section may be something that software can output.

Like Pbe if red lines can be recognised as CAD lines somehow then may be doable. Else just bring in page and draw a sequence of rectangs with a few smarts like where to start next. But 180 times phew !

Re: Automatic length, width and area calculation of rectangle into tabular form.

Kyle.Pederson — Thu, 24 Feb 2022 19:51:52 GMT

@pbejse Would it be possible to have this lisp shown as instead of Number 1, Number 2 etc shown as Section A, Section B etc?

Re: Automatic length, width and area calculation of rectangle into tabular form.

edCLUK9 — Thu, 24 Feb 2022 20:18:53 GMT

Yes can do it that way