[编程交流] AUTOLISP插入块和rot

(defun c:spinblk (/ doc ss ll ur midpt)
 (vl-load-com)
 (if (and (ssget '((0 . "INSERT")))
   (setq doc (vla-get-activedocument
        (vlax-get-acad-object)
      )
   )
   (setq ss (vla-get-activeselectionset doc))
     )
   (progn
     (vlax-for ent ss
(vla-getboundingbox ent 'll 'ur)
(setq ll    (vlax-safearray->list ll)
      ur    (vlax-safearray->list ur)
      midpt (mapcar '/
      (mapcar '+
       ll
       ur
      )
      '(2.0 2.0 2.0)
     )
)
(vlax-invoke ent 'rotate midpt pi)
     )
   )
 )
 (princ)
)