[Ingpro]

Помогите, пожалуйста изменить цвет в лиспе с зелёного на жёлтый. Лисп заменяет зелёный цвет МТекста на По слою.
Код с зелёным цветом работает

Код:

[Выделить все]

 ;;;Text Green ->Bylayer
(defun C:TGB ( / ss txt )
  (if (setq ss (ssget "_:L:S:E" '((0 . "*TEXT"))))
    (progn
      (setq txt (ssname ss 0))
      (if (= (cdr(assoc 62 (entget txt))) 3)
    (entmod
      (subst (cons 62 256)(assoc 62 (entget txt))(entget txt)))
    (entmod
      (if (assoc 62 (entget txt))
      (subst (cons 62 3)(assoc 62 (entget txt))(entget txt))
      (append (entget txt)(list(cons 62 3)))
        )
       )
     
    )
      )
    )
  (princ)
  )

Пытаюсь заменить на жёлтый, но что-то неправильно...

Код:

[Выделить все]

 ;;;Text Yellow ->Bylayer
(defun C:TYB ( / ss txt )
  (if (setq ss (ssget "_:L:S:E" '((0 . "*TEXT"))))
    (progn
      (setq txt (ssname ss 0))
      (if (= (cdr(assoc 62 (entget txt))) 2)
    (entmod
      (subst (cons 62 256)(assoc 62 (entget txt))(entget txt)))
    (entmod
      (if (assoc 62 (entget txt))
      (subst (cons 62 2)(assoc 60 (entget txt))(entget txt))
      (append (entget txt)(list(cons 62 2)))
        )
       )
     
    )
      )
    )
  (princ)
  )

Выбирает объект, но не перекрашивает по слою...

[Ingpro]

Сообщение от StupidDuck koMon, немного добавил пустой ввод. если для Ingpro будет полезно

StupidDuck, спасибо, поясните, пожалуйста, для чего. Просто разницы в работе программ из #18 и #20 не заметно...
Я так понимаю, если промахнулся, ничего не выбрал или выбрал не текст...