[编程交流] 随参考点旋转

;;----------------------------------------------------------------------------;;
;; ROTATE WITH REFERENCE
(defun C:RH (/ SS)
  (if (setq  SS (ssget ":L"))
    (vl-cmdf "_.Rotate" SS "" Pause "R" "@" Pause Pause)
    (prompt "\nNothing Selected or Entity's on Locked Layer")
  )
  (princ)
)
;;----------------------------------------------------------------------------;;
;; ROTATE MULTIPLE ENTITY'S AROUND MIDPOINT
(defun C:ROB (/ SS LL UR MPT)
  (vl-load-com)
  (if (setq SS (ssget ":L"))
    (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))
      (setq obj (vlax-ename->vla-object ent))
      (vla-getboundingbox obj 'minpt 'maxpt)
      (setq LL (vlax-safearray->list minpt)
            UR (vlax-safearray->list maxpt)
            MPT (mapcar '/ (mapcar '+ LL UR) '(2 2 2))
      )
      (vl-cmdf "_.Rotate" ent "" "_non" MPT pause)
    )
  )
  (princ)
)