Area Adjust "ArqAdjustArea"

[lee_cheniere]

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 

[Sea-Haven]

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

[lee_cheniere]

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.

[ВeekeeCZ]

You can try to contact the developer by email from HERE 

[lee_cheniere]

I have no REPLY... 😞

[ronjonp]

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)
)

[lee_cheniere]

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...

[ronjonp]

---

@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.

[TomBeauford]

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

[Sea-Haven]

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.

[nasir_sons]

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

[Sea-Haven]

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.

[nasir_sons]

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

[genbel]

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