(setq text "wirecut to size") (regapp "WCHOLE") (setq wctext '((-3 ("WCHOLE" (1000 . text))))) (setq new (append e1 wctext)) (entmod new) how to put (text "wirecut to size") after 1000 . is't use cons or what