Mirror Block

I've got this code (see below) that will rotate a selected block 180
degrees.
I'd like to modify it to MIRROR a selected block, regardless of it's angle,
but I just can't seem to be able to put 2 + 2 together.

Code:

(defun DXF (code lst)
(cdr (assoc code lst))
)

(defun C:BlockRot ( / objEnt ent entList ins)
(if (setq objEnt (entsel "Select block to auto-rotate... "))
(progn
(setq ent (entget (setq entList (car objEnt))))
(setq ins (DXF 10 ent))
(command "rotate" objEnt "" ins "180")
)
(princ "\n Nothing selected.  Please try again.")
)
(princ)
)

TIA

 

See if this link helps.

http://discussion.autodesk.com/thread.jspa?threadID=364430

Tim

 

nope.

 

I guess you would have to find a second point, useing the first as the insertion point of the block, along the angle you want. Then mirror your block along that axis. I guess it depends on the block, with how you get your second point. Just some food for thought. I guess you could get the rotation angle of the block, then find a point pependicular to that, but how would you know if to mirror it on the "x" or "y" axis?

Sorry I can't be more help. Maybe if you can explain a little more as far as what you expect it to do.
Tim

 

Or he could just 'negativize' the assoc41,42,43 (x,y,z) of the insert
entity.

insertion point of the block, along the angle you want. Then mirror your
block along that axis. I guess it depends on the block, with how you get
your second point. Just some food for thought. I guess you could get the
rotation angle of the block, then find a point pependicular to that, but how
would you know if to mirror it on the "x" or "y" axis?

 

"Negativize"???
What I ended up doing was getting the location of a hidden attrbute and
using that as a second (reference) point with which to mirror.
Works pretty slick.

 

Cool, glad you got it to work.

Tim

 

Matt:

I haven't tried this enough to know if there may be any unseen problems.

(defun c:MirX (/ enam InsObj Xscal)
(setq enam (car (entsel "\nSelect Insert...")))
(if (= (cdr (assoc 0 (entget enam))) "INSERT")
(progn
(setq InsObj (vlax-ename->vla-object enam))
(setq Xscal (vla-get-xscalefactor InsObj))
(if (minusp Xscal)
(vla-put-xscalefactor Insobj (abs Xscal))
(vla-put-xscalefactor Insobj (- (abs Xscal) (* (abs Xscal) 2)))
)
)
(alert "Selected entity not an INSERT!")
)
(princ)
)

(defun c:MirY (/ enam InsObj Yscal)
(setq enam (car (entsel "\nSelect Insert...")))
(if (= (cdr (assoc 0 (entget enam))) "INSERT")
(progn
(setq InsObj (vlax-ename->vla-object enam))
(setq Yscal (vla-get-yscalefactor InsObj))
(if (minusp yscal)
(vla-put-yscalefactor Insobj (abs Yscal))
(vla-put-yscalefactor Insobj (- (abs Yscal) (* (abs Yscal) 2)))
)
)
(alert "Selected entity not an INSERT!")
)
(princ)
)

Don

 

I'll take a look at it when I get a free minute or two.
Thanks for the post.

--
I support two teams: The Red Sox and whoever beats the Yankees.