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

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Как добавить префикс к однострочному тексту в AutoCAD 2016

Как добавить префикс к однострочному тексту в AutoCAD 2016

Ответ
Поиск в этой теме
Непрочитано 26.05.2015, 20:02 #1
Как добавить префикс к однострочному тексту в AutoCAD 2016
andrey_artphoto
 
Регистрация: 26.06.2013
Сообщений: 9

Есть топосъемка. На ней точки возле которых прописаны имена и высоты. Вот надо к некоторым выбранным мною высотам добавить текст "в. каб." (верх кабеля). Как это можно осуществить в AutoCAD 2016? В AutoCAD 2010 я это делал в текстовом редакторе MtmdEdit. Он открывал выбранные мной высоты в текстовом редакторе в столбик и я дописывал нужное мне значение. Но в AutoCAD 2016 он не работает.
Просмотров: 5968
 
Непрочитано 26.05.2015, 20:55
1 | #2
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 762


из поиска http://forum.dwg.ru/showthread.php?t=42739&page=6
Код:
[Выделить все]
 
(defun c:dobavit-v-txt (/ prefiks-txt sufiks-txt spisok harkt-primitiva i)
 (initget 1)
 (setq prefiks-txt (getstring T "префикс: "))
 (initget 1)
 (setq sufiks-txt (getstring T "суффикс: "))
 (princ)
 (setq spisok (ssget '((0 . "*text"))))
 (setq i 0)
 (while (< i (sslength spisok))
 (setq harkt-primitiva (entget (ssname spisok i)))
 (setq soderzhimoe (cons 1 (strcat prefiks-txt (cdr (assoc 1 harkt-primitiva)) sufiks-txt)))
 (setq harkt-primitiva (subst soderzhimoe (assoc 1 harkt-primitiva) harkt-primitiva))
 (entmod harkt-primitiva)
 (setq i (1+ i))
 )
 (princ)
)
freese вне форума  
 
Автор темы   Непрочитано 27.05.2015, 00:01
#3
andrey_artphoto


 
Регистрация: 26.06.2013
Сообщений: 9


Спасибо за помощь! Замечательно! Всё работает.
Ну а теперь как бы еще ускорить процесс? Можно сделать так, чтобы не было запросов на ввод текста, а сразу осуществлялась вставка нужного мне текста в конец строки?

----- добавлено через ~28 мин. -----
Смог самостоятельно только исключить поле "префикс". Осталось выключить запрос на ввод суфикса, а просто применять записанную в lisp константу суффикса.
andrey_artphoto вне форума  
 
Непрочитано 27.05.2015, 10:47
#4
freese

ingénieur
 
Регистрация: 21.07.2008
Сообщений: 762


нужно призвать гуру лиспа
freese вне форума  
 
Непрочитано 27.05.2015, 13:04
#5
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,091


Цитата:
Смог самостоятельно только исключить поле "префикс".
Если это смог, то непонятно, почему остальное ниасилил:
Код:
[Выделить все]
 (defun c:dobavit-v-txt (/ prefiks-txt sufiks-txt spisok harkt-primitiva i)
 ;(initget 1)
 ;(setq prefiks-txt (getstring T "префикс: "))
 ;(initget 1)
 ;(setq sufiks-txt (getstring T "суффикс: "))
(setq sufiks-txt "просто добавь чуть-чуть суффикса")
 (princ)
 (setq spisok (ssget '((0 . "*text"))))
 (setq i 0)
 (while (< i (sslength spisok))
 (setq harkt-primitiva (entget (ssname spisok i)))
; (setq soderzhimoe (cons 1 (strcat prefiks-txt (cdr (assoc 1 harkt-primitiva)) sufiks-txt)))
 (setq soderzhimoe (cons 1 (strcat (cdr (assoc 1 harkt-primitiva)) sufiks-txt)))
 (setq harkt-primitiva (subst soderzhimoe (assoc 1 harkt-primitiva) harkt-primitiva))
 (entmod harkt-primitiva)
 (setq i (1+ i))
 )
 (princ)
)
kp+ вне форума  
 
Автор темы   Непрочитано 27.05.2015, 17:11
#6
andrey_artphoto


 
Регистрация: 26.06.2013
Сообщений: 9


То что надо!
andrey_artphoto вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Как добавить префикс к однострочному тексту в AutoCAD 2016

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Видеоуроки AutoCAD kosmax AutoCAD 173 17.02.2017 15:08
запуск программы из AutoCADа kminas Программирование 19 15.06.2012 13:42
Информация по идентификационным кодам программ в сетевых лицензиях Autodesk KSI AutoCAD 1 14.09.2009 15:59
как добавить стандартные в AutoCAD Махноград Поиск литературы, чертежей, моделей и прочих материалов 16 17.05.2008 23:59
AutoCAD 2006: Как добавить панельки? vn AutoCAD 14 30.03.2006 12:57