TEXTBOX - LISP function

With text objects, there is a textbox. How do you get the extents of MTEXT
objects? Or the extents of Dimension text objects?

--
____________________
Bill DeShawn
Please reply to group only
Thank you
http://my.sterling.net/~bdeshawn

 

Have you tried the getboundingbox method?

 

(eval getboundingbox)
nil

--
____________________
Bill DeShawn
Please reply to group only
Thank you
http://my.sterling.net/~bdeshawn

message news:41f155ce$1_3@newsprd01...

 

Bill,
Its a method, not a function. Example:

(vla-getboundingbox(vlax-ename->vla-object (car(entsel))) 'llc 'urc)

 

And the return values are stored in llc and urc.
They can be returned with
(safearray-value llc)
and
(safearray-value urc)

 

Perhaps this will give you a starting point (no pun intended)

Code:

(defun GetBoundingBox ( object / p1 p2 )
(vl-catch-all-apply
'vlax-invoke-method
(list object 'GetBoundingBox 'p1 'p2)
)
(if p1
(mapcar 'vlax-safearray->list
(list p1 p2)
)
)
)

 

or

Code:

(defun GetBoundingBox ( object / p1 p2 )
(vl-catch-all-apply
'vlax-invoke-method
(cons object '(GetBoundingBox p1 p2))
)
(if p1
(mapcar 'vlax-safearray->list
(list p1 p2)
)
)
)

if you prefer.

 

or

Code:

(defun GetBoundingBox ( object / p1 p2 )
(vl-catch-all-apply
'(lambda ()
(vlax-invoke-method
object
'GetBoundingBox
'p1
'p2
)
)
)
(if p1
(mapcar 'vlax-safearray->list
(list p1 p2)
)
)
)

if you prefer.