I've seen this repeated a couple of times, and feel compelled to comment :
(defun getboundingbox (obj / minpt maxpt)
(vla-getboundingbox obj 'minpt 'maxpt)
(mapcar 'vlax-safearray->list (list minpt maxpt))
(setq llc (vlax-safearray->list minpt)
urc (vlax-safearray->list maxpt)
)
(list llc urc)
)
This procedure has superfluous expressions ,
If you want a list of the points, this is sufficient.
(defun getboundingbox (obj / minpt maxpt)
(vla-getboundingbox obj 'minpt 'maxpt)
(mapcar 'vlax-safearray->list (list minpt maxpt))
)
.. and ronjonp ,
perhaps the first item in the locals variable declaration list should be *error* not *error