Match Text LISP routine not working in V12

Eric Paradis

The text below I am trying to call from a macro button :

The button code is this: 

^c^c_mt (mt because the code below is meant to use a shortcut. 

The lisp file in the support folder is named TEXTMATCH.LSP. 

What am I doing wrong? - Thanks 

(defun c:matchtext (/ cEnt mEnt)

(if (and (setq cEnt (car (nentsel "\nSelect Source Text: ")))
(member (cdr (assoc 0 (entget cEnt)))
'("TEXT" "MTEXT" "ATTRIB")))
(progn
(redraw cEnt 3)
(while (and (setq mEnt (car (nentsel "\nSelect Destination Text: ")))
(member (cdr (assoc 0 (entget mEnt)))
'("TEXT" "MTEXT" "ATTRIB")))
(entmod (subst (assoc 1 (entget cEnt))
(assoc 1 (entget mEnt))
(entget mEnt))))
(redraw cEnt 4))
(princ "\n<!> Incorrect Selection <!>"))
(princ))

Roy Klein Gebbinck

Both the lisp and the macro work OK. Maybe you haven't loaded the lisp file?
Some useful info: http://www.b-k-g.nl/loading-lisp-programs.html

Walter - B. Zegenhagen

try: ^C^C(load"textmatch");_mt

Good luck!

Stephan Bartl

"Match Text LISP routine not working in V12"

What exactly is not working?  What error msg? What IS happening?

Eric Paradis

I apologize - 

^C^C(load"textmatch");_mt works perfectly.