[编程交流] 需要有关边界框Mo的帮助

(DEFUN C:CEN (/ *ERROR* oldsnap oldos)
 (defun *error* (msg)
   (if oldos (setvar "osmode" oldos))
   (if oldsnap (setvar "snapmode" oldsnap))
   (if msg (prompt msg))
   (princ)
 )
(setvar "cmdecho" 0)
(setq oldsnap (getvar "snapmode")
(setq oldos (getvar "osmode"))
(princ "\nSelect Object(s) to CENTER within the titleblock. ")
(SETQ CENT3R (SSGET ))
(command "snap" "s" "s" "")
(setvar "snapmode" 0)
(SETQ P1 (GETpoint "\nFirst corner of rectangle: "))
(setvar "osmode" 0)
(setq p2 (getCORNER P1 "\nSecond corner of rectangle: "))
(COMMAND "MOVE" CENT3R "" "m2p" p1 p2 "M2P" "0,0" "12,9")
(command "snap" "s" "i" "")
(setvar "snapmode" oldsnap)
(setvar "OSMODE" OLDOS)
(SETQ CENT3R NIL)
(*ERROR* NIL)
(PRINT)
)

(defun c:test ( / OBJ Point1 Point2 ) 
(vl-load-com) 
(princ "\nSelect an object: ") 
(setq OBJ (vlax-ename->vla-object (ssname (ssget) 0))) 
(if OBJ 
(progn 
;;OBJ is a vla-object 
;;Point1 is the lower left point of the bounding box around the object 
;;Point2 is the upper right point of the bounding box around the object 
(vla-getboundingbox OBJ 'Point1 'Point2) 
;;Point1 and Point2 are returned as a safearray and need to be converted to a list 
(setq Point1 (vlax-safearray->list Point1)) 
(setq Point2 (vlax-safearray->list Point2)) 
(princ (strcat "\n The lower left corner is " (rtos (car Point1) 2 2) ", " (rtos (cadr Point1) 2 2))) 
(princ (strcat "\nThe upper right corner is " (rtos (car Point2) 2 2) ", " (rtos (cadr Point2) 2 2))) 
) 
) 
(princ) )

(defun c:cen ( / s l )
   (and (setq s (ssget "_:L"))
        (setq l (LM:ssboundingbox s))
        (command "_.move" s ""
            "_non"  (apply 'mapcar (cons '(lambda ( a b ) (/ (+ a b) 2.0)) l))
            "_non" '(6.0 4.5)
        )
   )
   (princ)
)
;; Selection Set Bounding Box  -  Lee Mac
;; Returns a list of the lower-left and upper-right WCS coordinates of a
;; rectangular frame bounding all objects in a supplied selection set.
;; s - [sel] Selection set for which to return bounding box
(defun LM:ssboundingbox ( s / a b i m n o )
   (repeat (setq i (sslength s))
       (if
           (and
               (setq o (vlax-ename->vla-object (ssname s (setq i (1- i)))))
               (vlax-method-applicable-p o 'getboundingbox)
               (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list o 'a 'b))))
           )
           (setq m (cons (vlax-safearray->list a) m)
                 n (cons (vlax-safearray->list b) n)
           )
       )
   )
   (if (and m n)
       (mapcar '(lambda ( a b ) (apply 'mapcar (cons a b))) '(min max) (list m n))
   )
)
(vl-load-com) (princ)