Universal Text Edit
Hi All
I prefer to have one textedit command to rule it all hence I created one for AutoCAD. Since my transition to BricsCAD I wanted to replicate that lisp. Thanks to a service request and all the help from the Brics team, especially Torsten Moses I now have a lisp routine to rule all textedits. Below is my version if it helps others
(Defun q-start () (setq org-err error error q-finish) (setvar "cmdecho" 0))
(Defun q-finish () (setq error org-err) (princ))
(Defun C:TE ()
(q-start)
(if (setq ent (entget (car (setq ent_sel (entsel)))))
(cond
((wcmatch (cdr (assoc 0 ent)) "TEXT,MTEXT,DIMENSION,MULTILEADER,ATTDEF")(vle-edittextinplace (car ent_sel)))
((= (cdr (assoc 0 ent)) "INSERT")(vle-edittextinplace (car (nentselp (cadr ent_sel)))))
((= (cdr (assoc 0 ent)) "ACAD_TABLE")(vl-cmdf "tabledit" (cadr ent_sel)))
)
(prompt "\nYou missed, try again")
)
(q-finish)
)
Bye now