Hi guys, I've got a few(2) questions:
1. Why this work
(vla-GetBoundingBox o 'll 'ur)
But these don't
(vlax-invoke-method o 'GetBoundingBox 'll 'ur)
(vlax-invoke o 'GetBoundingBox 'll 'ur)
Getting the BBox's centroid
2. Is there a way to get rid of the Lst quote,
(setq Lst (mapcar 'vlax-safearray->list (list ll ur)))
(setq cen (mapcar '(lambda (a b) (/ (+ a b) 2.)) (car Lst) (cadr Lst)))
Without using this (obviously):
(setq cen
(mapcar '(lambda (a b) (/ (+ a b) 2.))
(car (mapcar 'vlax-safearray->list (list ll ur)))
(cadr (mapcar 'vlax-safearray->list (list ll ur)))
)
)
With something like:
(setq cen (apply '(lambda (x) ????? ) (mapcar 'vlax-safearray->list (list ll ur))))