| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > LISP. Префикс, суффикс , замена текста мультивыноски

LISP. Префикс, суффикс , замена текста мультивыноски

Ответ
Поиск в этой теме
Непрочитано 30.12.2021, 13:43 #1
LISP. Префикс, суффикс , замена текста мультивыноски
gizmo_zx
 
Проектировщик ЭО,ЭМ, ЭОС
 
Нижний Новгород
Регистрация: 18.07.2007
Сообщений: 246

Бодрого дня.
Помогите подправить 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)
)
Просмотров: 1622
 
Непрочитано 30.12.2021, 14:00
1 | #2
Nike

Шаражпроектхалтурмонтаж
 
Регистрация: 29.10.2004
Талды-Париж
Сообщений: 6,199


Код:
[Выделить все]
 (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)
)
Nike вне форума  
 
Автор темы   Непрочитано 30.12.2021, 15:36
#3
gizmo_zx

Проектировщик ЭО,ЭМ, ЭОС
 
Регистрация: 18.07.2007
Нижний Новгород
Сообщений: 246
<phrase 1= Отправить сообщение для gizmo_zx с помощью Skype™


Кажется "vl-string-translate" меняет каждый символ, а не весь набор целиком ?
gizmo_zx вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > LISP. Префикс, суффикс , замена текста мультивыноски

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
LISP. Замена текстового стиля VVA Готовые программы 292 16.04.2022 08:39
LISP. Не отображается часть полки мультивыноски kacugu LISP 2 16.05.2016 08:52
LISP Объединение нескольких объектов многострочного текста в один Cren LISP 8 26.02.2016 08:57
LISP. Выравнивание текста по двум точкам. Krieger Готовые программы 10 24.12.2011 16:02
Изменение форматированного текста посредством lisp Tramp LISP 4 03.03.2006 11:28