topic Re: Area Adjust "ArqAdjustArea" in Visual LISP, AutoLISP and General Customization Forum

Area Adjust "ArqAdjustArea"

lee_cheniere — Tue, 01 Sep 2020 11:35:10 GMT

Looking for an lisp/addin that will adjust a closed polyline to and defined sq. footage.

Used one call ArqAdjustArea by Woopaloo but is is no long available in the app store...

Link to video of this old app

Re: Area Adjust "ArqAdjustArea"

Sea-Haven — Sat, 29 Aug 2020 00:03:36 GMT

lee-mac.com has a good area lisp and it uses fields so if adjust pline area adjusts.

Re: Area Adjust "ArqAdjustArea"

lee_cheniere — Tue, 05 Oct 2021 13:55:49 GMT

Yeah I browsed all his LSP files and none do what that LSP could do, unfortunately, I guess it will be lost forever.

That was such a great LSP should have backed it up dagggggggg it.

Re: Area Adjust "ArqAdjustArea"

ВeekeeCZ — Tue, 05 Oct 2021 14:44:19 GMT

You can try to contact the developer by email from HERE

Re: Area Adjust "ArqAdjustArea"

lee_cheniere — Tue, 05 Oct 2021 15:45:12 GMT

I have no REPLY... 😞

Re: Area Adjust "ArqAdjustArea"

ronjonp — Tue, 05 Oct 2021 16:28:52 GMT

Give this a try:

(defun c:scaletoarea (/ _getarea a a2 ll o s ur) ;; RJP » 2020-06-30 (defun _getarea (e / a) (if (vl-catch-all-error-p (setq a (vl-catch-all-apply 'vlax-curve-getarea (list e)))) 0 a ) ) (if (and (setq s (ssget ":L")) (setq a (getreal "\nEnter desired area: "))) (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))) (if (> (setq a2 (_getarea e)) 0) (progn (vla-getboundingbox (setq o (vlax-ename->vla-object e)) 'll 'ur) (setq ll (mapcar '+ (vlax-safearray->list ll) (vlax-safearray->list ur))) (vlax-invoke o 'scaleentity (mapcar '/ ll '(2 2 2)) (sqrt (/ a a2))) ) ) ) ) (princ) )

Re: Area Adjust "ArqAdjustArea"

lee_cheniere — Tue, 05 Oct 2021 17:22:45 GMT

Beggars can't be choosers. that works pretty well.

Still going to miss the ability to pick what edge to move to get the desired shape.

Thanks...

Re: Area Adjust "ArqAdjustArea"

ronjonp — Tue, 05 Oct 2021 22:25:28 GMT

@lee_cheniere wrote:

Beggars can't be choosers. that works pretty well.

Still going to miss the ability to pick what edge to move to get the desired shape.

Thanks...

Glad you can use it. 🙂

Just watched the video .. that would be quite a bit more complicated to code.

Re: Area Adjust "ArqAdjustArea"

TomBeauford — Wed, 06 Oct 2021 00:04:58 GMT

This works pretty well: https://www.cadtutor.net/forum/topic/70140-lisp-to-scale-by-moving-only-one-side/page/2/?tab=comments#comment-563855

Re: Area Adjust "ArqAdjustArea"

Sea-Haven — Wed, 06 Oct 2021 03:28:54 GMT

In land development software there are a number of lot creation tools. Like move side, swing line, frontage, all resulting in matching required area. I know these used to be in Civilcad software many years ago. Not sure if CIV3D has some. Has been asked before. The link is very close for moving 1 side.

Re: Area Adjust "ArqAdjustArea"

nasir_sons — Sat, 14 May 2022 07:49:25 GMT

I have it but not compatible with latest AutoCAD versions, need to update...

Re: Area Adjust "ArqAdjustArea"

Sea-Haven — Sun, 15 May 2022 08:59:50 GMT

That leads to a msi installer I dont ever run those from forums like here same with VLX code as you have no idea what it does. Do you have a unpacked version.

Re: Area Adjust "ArqAdjustArea"

nasir_sons — Sun, 15 May 2022 09:04:33 GMT

Thank for reply, yes i have but it say the file type is not supported here...

Re: Area Adjust "ArqAdjustArea"

genbel — Sat, 17 Jun 2023 17:48:42 GMT

buongiorno, gentilmente mi puoi dire qualcosa su arqadjustArea: sei riuscito ad avere una versione decompressa?

l'installazione del msi mi da solo un file.fas