0 Members and 1 Guest are viewing this topic.
(defun C:go22 () (cond ((setq sset (ssget '((0 . "TEXT"))) a 0) (while (setq ent (ssname sset a)) (setq entl (entget ent) a (1+ a)) (entmod (subst (cons 1 (strcat (cdr (assoc 1 entl)) "(22)")) (assoc 1 entl) entl) )))) (princ))
(defun C:CHT () (if (setq ss (ssget '((0 . "TEXT") (1 . "*X*")))) (while (setq e (ssname ss 0)) (setq str (cdr (assoc 1 (setq ed (entget e)))) str (strcat str "(E)") ) (entmod (subst (cons 1 str) (assoc 1 ed) ed)) (entupd e) (ssdel e ss) );while (prompt "No Text to be changed..") ) (princ))