topic Re: Bounding box with offset code help in Visual LISP, AutoLISP and General Customization Forum

Bounding box with offset code help

atrotto — Mon, 04 Dec 2023 19:46:08 GMT

Hello folks,

I'm just getting started with AutoLISP / Active X, and I cannot figure out why this isn't working. The bottom left corner of the rectangle drew with offset when I was testing with just mno, but when I replicated it with mxo, the code stops working. The bulk of this code is borrowed, leaving honorable mention in the comments.

;;Foamstamp.lsp ;;Bounding code borrowed from BlackBox on CadTutor (defun c:FoamStamp (/ eName mn mx mno mxo) (vl-load-com) (if (setq eName (car (entsel "\n >> Select Object >> "))) (progn (vla-getboundingbox (vlax-ename->vla-object eName) 'mn 'mx) (vl-cmdf "._rectang" ( (setq mno (mapcar (lambda (a)(- a 0.25))(vlax-safearray->list mn))) (setq mxo (mapcar (lambda (b)(+ b 0.25))(vlax-safearray->list mx))) ) ) (princ) ) ) )

Re: Bounding box with offset code help

ВeekeeCZ — Mon, 04 Dec 2023 19:48:19 GMT

It must be '(lambda... or (function (lambda...

Re: Bounding box with offset code help

atrotto — Mon, 04 Dec 2023 19:50:19 GMT

Thanks, figured it was something simple...

Re: Bounding box with offset code help

ВeekeeCZ — Mon, 04 Dec 2023 19:55:51 GMT

But this way would be more readable

(defun c:FoamStamp (/ eName mn mx mno mxo)
  (vl-load-com)
  (if (setq eName (car (entsel "\n  >>  Select Object  >> ")))
    (progn
      (vla-getboundingbox (vlax-ename->vla-object eName) 'mn 'mx)
      (vl-cmdf "._rectang"
	       (mapcar '+ (vlax-safearray->list mn) '(-0.25 -0.25))
	       (mapcar '+ (vlax-safearray->list mx) '(+0.25 +0.25)))))
  (princ)
  )

Re: Bounding box with offset code help

atrotto — Mon, 04 Dec 2023 20:02:38 GMT

Even better. I was going down a rabbit hole with lambda mostly because it was the Neat New Thing I read about on the Autodesk resource. Thank you so much.

Re: Bounding box with offset code help

Kent1Cooper — Mon, 04 Dec 2023 20:13:19 GMT

@ВeekeeCZ wrote:

....
	       (mapcar '+ (vlax-safearray->list mn) '(-0.25 -0.25))
	       (mapcar '+ (vlax-safearray->list mx) '(+0.25 +0.25)))))
....

A small thing, but it seems a little odd to add negative numbers to the coordinates.... [And the plus signs on the numbers for the upper right are not needed.] How about:

(mapcar '- (vlax-safearray->list mn) '(0.25 0.25))

(mapcar '+ (vlax-safearray->list mx) '(0.25 0.25)))))

Re: Bounding box with offset code help

ВeekeeCZ — Mon, 04 Dec 2023 20:25:37 GMT

That is what I like about it. Directly see that it goes left and down. Don't have to think about what is subtracted from what... But I guess it's just a matter of personal preference.

Re: Bounding box with offset code help

atrotto — Mon, 04 Dec 2023 20:26:00 GMT

@bee @Kent1Cooper

Secondary question, does get-boundingbox work with multiple selected entities? As in, could I feed this code multiple objects, and would it be able to make a large bounding box around them?

Re: Bounding box with offset code help

ВeekeeCZ — Mon, 04 Dec 2023 20:27:36 GMT

See this:

http://www.lee-mac.com/ssboundingbox.html

Re: Bounding box with offset code help

Kent1Cooper — Mon, 04 Dec 2023 20:42:06 GMT

@atrotto wrote:

.... does get-boundingbox work with multiple selected entities? As in, could I feed this code multiple objects, and would it be able to make a large bounding box around them?

Not this Topic's code directly, but in addition to @ВeekeeCZ 's link, I also have a routine that will do that, called DrawBoundingBoxMult.lsp, >here<. I imagine there are more out there for the Searching. Any of them would need to be adjusted similarly to this topic if you want the box outboard of the actual extents by some distance.

Re: Bounding box with offset code help

atrotto — Fri, 08 Dec 2023 14:00:58 GMT

Hello, I started looking into this code, but the way Lee approaches handling creating the polyline has me scratching my head as to where to sneak in the offset. Ideally, I'd like to do it in the testcode he gave, so that I could reference the bounding box protocol in a few other programs that would have different offsets.
Am I right in saying that I can't just jam the calculation into his block creating the point coordinates starting at line 21?

Re: Bounding box with offset code help

ВeekeeCZ — Fri, 08 Dec 2023 15:41:55 GMT

Your line is this one

(setq box (LM:ssboundingbox sel))

(setq box (:offset box))

So add one more line below it and figure out the :offset function. It does not necessarily be a function, possibly just an expression that does the offset to coords saved as a list in box variable.

Re: Bounding box with offset code help

Sea-Haven — Sat, 09 Dec 2023 06:12:58 GMT

Like BeekeeCZ the 'box'

(setq box (LM:SSBOUNDINGBOX (ssget))) !pts ((20.0 38.0 0.0) (179.0 201.0 0.0)) so offset pts (car box) & (cadr box)

is 2 points as a list, so can apply the offset.