Rotate block?

How can i rotate a block about its basepoint using a macro, just want to
click button and block then rotates 180 degrees about its basepoint.

thanks

 

You can try this out:

(defun c:rb (/ c ss ang flag a ename ent)

(setq c (getstring "\nBlock name or ENTER to select items: ")
ss (if (= c "") (ssget) (ssget "X" (list (cons 2 c))) )
flag nil c 0)
(initget "New")
(prompt "\nEnter NEW for new rotation angle or enter amount to rotate;")
(setq ang (getangle "\n\nNEW/<Angle to rotate>: "))
(if (= ang "New") (setq flag T ang (getangle "\nNew angle: ")))
(repeat (sslength ss)
(setq ent (entget (setq ename (ssname ss c))) c (1+ c))
(if (= "INSERT" (field 0 ent))
(command "rotate" ename "" (field 10 ent)
(rtd (if (not flag) ang (- ang (field 50 ent)) ))))
)
(princ))

(defun FIELD (val ent) (cdr (assoc val ent)))

 

(defun c:rotblk ()
(while (not (setq ename (entsel "\nSelect block to rotate: "))))
(setq
ename (car ename)
ent (entget ename)
)
(if (= (cdr (assoc 0 ent)) "INSERT")
(progn
(setq
pt (cdr (assoc 10 ent))
ang (cdr (assoc 50 ent))
)
(setq ang (if (<= ang pi) (+ ang pi) (- ang pi)))
(setq ent (subst (cons 50 ang) (assoc 50 ent) ent))
(entmod ent)
)
(alert "Object selcted is not a block")
)
(princ)
)

 

Problem with rotating a block by the 50 code is if there are any attributes
include they don't turn. Why not use the rotate command?

 

It does....

 

Maybe you are replying to Jim Claypool's post instead?

 

Sorry for not reading enough to see the "command" "rotate". I only saw the
50 code. Gotta quit scanning and start reading! ;-)