Match Properties lisp

[jsnow]

Can someone make this match properties lisp work for me so I can use it in 2009? It use to work in 2006 and we recently upgraded. I have been using it for years (before they ever put a matchprop in Autocad) and I just can't make my mind switch it way of thinking, I am a old dog. I wanted to load it into my acaddoc.lsp file, also something new for me.

 

Here is what I used to use it needs a small tweek but I was never a programmer. I used to activate it using mm

 

(command "undo" "g")

(setq

e nil

shigh (getvar "highlight")

sblip (getvar "blipmode")

ss1 nil

)

(setvar "blipmode" 0)

(while (not ss1) (prompt "\nSelect Objects to change: ") (prin1)

(setq ss1 (ssget))

)

(while (not e) (setq e (entsel "\nSelect Entity to match: ")))

(setvar "highlight" 0)

(setq en (entget (car e)) col (cdr (assoc 62 en)))

(setq lay (cdr (assoc 8 en)) lt (cdr (assoc 6 en)))

(setq lts (cdr (assoc 48 en)))

(if (not col)(setq col "bylayer"))

(if (not lt)(setq lt "bylayer"))

(if (not lts)(command "change" ss1 "" "p" "c" col "la" lay "lt" lt "S" "1" "")

(command "change" ss1 "" "p" "c" col "la" lay "lt" lt "s" lts ""))

(setvar "blipmode" sblip) (setvar "highlight" shigh)

(command "undo" "e") (prin1)

(SETQ e NIL ss1 NIL en NIL col NIL lay NIL lt NIL lts NIL)

[bsamc2000]

This was tested and verified in AutoCAD 2008 & 2010. It should work in 2009. I hope this helps.

 

(defun c:mm ( / e ss1 en col lay lt lts )
 (command "undo" "g")
 (setq e nil 
       shigh (getvar "highlight") 
       sblip (getvar "blipmode") 
       ss1 nil
 )
 (setvar "blipmode" 0)
 (while (not ss1)
   (prompt "\nSelect Objects to change: ")
   (prin1) 
   (setq ss1 (ssget))
 )
 (while (not e)
   (setq e (entsel "\nSelect Entity to match: "))
 )
 (setvar "highlight" 0)
 (setq en (entget (car e))
       col (cdr (assoc 62 en))
 )
 (setq lay (cdr (assoc 8 en))
       lt (cdr (assoc 6 en))
 )
 (setq lts (cdr (assoc 48 en)))
 (if (not col)
   (setq col "bylayer")
 )
 (if (not lt)
   (setq lt "bylayer")
 )
 (if (not lts)
   (command "change" ss1 "" "p" "c" col "la" lay "lt" lt "S" "1" "")
   (command "change" ss1 "" "p" "c" col "la" lay "lt" lt "s" lts "")
 )
 (setvar "blipmode" sblip)
 (setvar "highlight" shigh)
 (command "undo" "e")
 (prin1)
)

[jsnow]

It worked great!! Sometimes the old stuff is just better than the new.

 

Thanks again