rpttxt

[Nel_Zelpher]

What ever happened to the lisp routine rpttxt.

You know the one we all relied on back in 2014 era autocad.

looked something like this;

(defun c:RPTTXT (/ cmd data ss mem name deflt string snapp)
 (setq cmd (getvar "cmdecho")
       snapp (getvar "snapmode"))
 (setvar "cmdecho" 0)
 (prompt "\n\nMake unlimited selections...\n")
 (setq ss (ssget))
 (setq mem 0)
 (repeat (sslength ss)
    (setq name (ssname ss mem))
    (setq deflt (cdr (assoc 1 (setq data (entget name)))))
    (redraw name 3)
    (command "ddedit" name "")
    (redraw name 4)
    (setq mem (1+ mem))
 )
 (setvar "cmdecho" cmd)
 (setvar "snapmode" snapp)
 (princ)
)
;********************************************************************
(princ)

What ever happened to that?

Why does it not work anymore, and where is the replacement?

[rhesusminus · Accepted solution]

The command DDEDIT does no longer work in AutoCAD. (Also, the variable "mem" is now protected, so I renamed it to "memb")

Try this:

(defun c:RPTTXT (/ cmd data ss memb name deflt string snapp)
(setq cmd (getvar "cmdecho")
snapp (getvar "snapmode"))
(setvar "cmdecho" 0)
(prompt "\n\nMake unlimited selections...\n")
(setq ss (ssget))
(setq memb 0)
(repeat (sslength ss)
(setq name (ssname ss memb))
(setq deflt (cdr (assoc 1 (setq data (entget name)))))
(redraw name 3)
(command "textedit" name "")
(redraw name 4)
(setq memb (1+ memb))
)
(setvar "cmdecho" cmd)
(setvar "snapmode" snapp)
(princ)
)
;********************************************************************
(princ)

[Nel_Zelpher · Accepted solution]

You sir are worth every cent.