[gizmo_zx]

Бодрого дня.
Помогите подправить LISP для замены текста мультивыноски
Префикс и суффикс работаю нормально, хотелось бы еще еще добавить запрос:
что заменить
на что заменить
Сам в LISp полный ноль.
Неожиданно не работает стандартная замена текста в Nanocad для мультивыносок

Код:

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

 
;(C) CAD Studio  - www.cadstudio.cz
(defun C:PSfixTxt (/ ss ssl obj sPrefix sSuffix)
 (vl-load-com)
 (princ "\nSelect Texts, Mtexts, MLeaders: ")
 (setq ss (ssget '((0 . "TEXT,MTEXT,MULTILEADER")))
       sPrefix (getstring "\nEnter prefix: " T)
       sSuffix (getstring "\nEnter suffix: " T)
 )
 (setq ssl (sslength ss))
 (repeat ssl
  (setq ssl (1- ssl))
  (setq obj (vlax-ename->vla-object (ssname ss ssl)))
  (vla-put-textstring obj (strcat sPrefix (vla-get-textstring obj) sSuffix))
 )
 (princ)
)

[Nike]

Код:

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

 (defun C:PSfixTxt (/ ss ssl obj sPrefix sSuffix)
 (vl-load-com)
 (princ "\nSelect Texts, Mtexts, MLeaders: ")
 (setq ss (ssget '((0 . "TEXT,MTEXT,MULTILEADER")))
       sPrefix (getstring "\nEnter prefix: " T)
       sSuffix (getstring "\nEnter suffix: " T)
       replableText (getstring "\nEnter replaceable text: " T)
       replmentText (getstring "\nEnter replacement text: " T)
 )
 (setq ssl (sslength ss))
 (repeat ssl
  (setq ssl (1- ssl))
  (setq obj (vlax-ename->vla-object (ssname ss ssl)))
  (vla-put-textstring obj (strcat sPrefix (vla-get-textstring obj) sSuffix))
  (vla-put-textstring obj (vl-string-translate replableText replmentText (vla-get-textstring obj)))
 )
 (princ)
)

[gizmo_zx]

Кажется "vl-string-translate" меняет каждый символ, а не весь набор целиком ?