need to add dxf group of 75 '(75 . 0)
(defun C:TEST () (and (setq mtext (car(entsel "\nSelect Mtext to change columns type: "))) (setq lst (entget mtext)) (= (cdr(assoc 0 lst)) "MTEXT") (setq lst (if (assoc 75 lst) (subst (cons 75 0) (assoc 75 0) lst) (append lst (list(cons 75 0))) ) ) (entmod lst) ) (princ) )
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register
Start with some of our most frequented solutions to get help installing your software.