Topic: Mirror, yes/no

[pmvliet]

I have a few users who are annoyed by AutoCad when you do the mirror command and then it promts them whether you would like to erase the original or keep it. They would like it to erase the original.
So they would like a mirror, which would erase the original
and then they would like a mirror copy which would keep the original.

I am thinking a lisp routine but wondering what other would suggest or give some hints...

pieter

[M-dub]

Make it easier...create a simple macro.  That way they can make their own little buttons.  Sometimes, I think the same way, but I think it always has to ask.  I mean, I don't ALWAYS "want fries with that"...

^C^Cmirror;\\;\\y;

Allows only for two selections or a window / crossing.

[Keith™]

I posted a bit once called MIRDO.LSP

Check out this thread

[ELOQUINTET]

here's the copy/mirror one

Code: [Select]

;;; CMI.lsp
;;; To Copy and mirror selected entities
;;;
;;; by Terrance Kesteloot and Rod Potter
;;; credit to Steve Smith Compuserve I.D.:72611,2544

(DEFUN ssmake (sslist)
  (SETQ theset (SSADD))
  (FOREACH ent sslist (SSADD (HANDENT ent) theset))
)

(DEFUN C:CMI ()
  (SETQ cecho (GETVAR "CMDECHO"))

  ;;turn off command line echo
  (SETVAR "CMDECHO" 0)
  (SETQ theset nil
thelist nil
  )

  ;;obtain last entity in database
  (SETQ startent (ENTLAST))

  (PROMPT "Entity(s) copy and mirror routine")
  (PROMPT "\nCopying...")

  ;;create selection set
  (SETQ sset (SSGET))

  (SETQ bpt (GETPOINT "\nEnter base point for copy..."))

  (COMMAND "copy" sset "" bpt pause)
  (SETQ npt (GETVAR "LASTPOINT"))

  ;;build selection set list of newly copied entities
  (SETQ thelist (LIST (CDR (ASSOC 5 (ENTGET startent)))))
  (SETQ nextone startent)
  (WHILE nextone
    (PROGN
      (SETQ nextone (ENTNEXT nextone))
      (IF nextone
(SETQ thelist (CONS (CDR (ASSOC 5 (ENTGET nextone))) thelist))
      )
    )
  )
  ;;list of entity handles for copied group
  (SETQ thelist (CDR (REVERSE thelist)))
  (ssmake thelist)

  (PROMPT
    "\nMirroring - select second point of mirror line for new objects..."
  )
  (COMMAND "mirror" theset "" npt pause)

  ;;turn off highlight
  (SETVAR "highlight" 0)

  ;;reset command line echo to original state
  (SETVAR "CMDECHO" cecho)

  ;;turn highlight back on
  (SETVAR "HIGHLIGHT" 1)

  ;;clean finish
  (PRINC)
)




[t-bear]

Keith....

I've been using mirdo.lsp constantly since you posted it, what, two-three years ago on CADalog....?  Just so you know, I'd go nuts without it!  Thanks again.....

[ELOQUINTET]

ditto i look at others going nuts without it in my office. most of them have it on their machines but they draft by habit so have forgotten how useful some of the add ons are. kudos keith

[pmvliet]

Thanks everyone for the quick response.
It will all make the users Happy

Pieter

[Keith™]

Keith....

I've been using mirdo.lsp constantly since you posted it, what, two-three years ago on CADalog....?  Just so you know, I'd go nuts without it!  Thanks again.....

Well, I feel warm and fuzzy now...

[Slim©]

Ya look a little FUZZY, not to warm tho.

[Keith™]

Well, that is only because I was havin' a bad hair day...

[Trev]

Just so you know, I'd go nuts without it!

t-bear I thought you already were nuts.    
I must have been grossly miss informed  

[t-bear]

Well that's two of us that's corn-fuzed....I thought you were "grossly MALformed....."
Go figure.

Ain't it gittin close to your bed time over there, old timer?

[Keith™]

He's been burning the midnight oil...