Topic: SS-GETBOUNDINGBOX doesn't work well!

[cjw]

The code is simply.

Code: [Select]

(defun CJW-SS-GETBOUNDINGBOX (SS / BMAX BMIN E I PTLIST)
  (vl-load-com)
  (repeat (setq I (sslength SS))
    (setq E (ssname SS (setq I (1- I))))
    (vla-getboundingbox
      (vlax-ename->vla-object E)
      'BMIN
      'BMAX
    )
    (setq BMIN (vlax-safearray->list BMIN)
  BMAX (vlax-safearray->list BMAX)
    )
    (setq PTLIST (cons BMAX PTLIST))
    (setq PTLIST (cons BMIN PTLIST))
  )
  (list
    (apply 'mapcar (cons 'min PTLIST))
    (apply 'mapcar (cons 'max PTLIST))
  )
)

;;;(setq 2PTLIST (CAI-SS-GETBOUNDINGBOX (ssget)))
;;;(command "._rectang" "_none" (car 2PTLIST) "_none" (cadr 2PTLIST))



How to make the oblique rectang? see the picture below:

[CAB]

If it's text you are after try this:

Code: [Select]

;;  Align a group of text or mtext objects along there X or Y axis
;;  User picks Master text & then text to align under it
;;  Does not change the text alignment or justification or combine text
;;  Uses the justification of the Master text to set alignment
;;  This routine simply moves & rotates the text
;;  Will allow Master text on any angle
http://www.theswamp.org/index.php?topic=25824.0

[CAB]

Here is another one:

My Text Box Routine is ready for prime time.
It will create the boxes shown in the picture.
It supports mtext and dtext, rotated or not & UCS other that world.
It supports groups of dtext or mtext.

http://www.theswamp.org/index.php?topic=7003.0

[cjw]

CAB,Thank you!
you always know the answer...
Thank you very much!!!

[CAB]

You're welcome.