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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > AutoLisp последовательная нумерация текстов.

AutoLisp последовательная нумерация текстов.

Ответ
Поиск в этой теме
Непрочитано 22.10.2019, 17:23 #1
AutoLisp последовательная нумерация текстов.
DEM
 
YngIngKllr
 
СПб
Регистрация: 29.03.2005
Сообщений: 12,968

Добрый день!
Давно я не программировал в Лиспе.
Нужно сделать следующее.
Я выбираю текст 1.
Выбираю текст 2, текст 2 заменяется текстом 1 и добавляется номер участка.(вот тут загвоздка)
Цикл повторяется 5 раз.
Вот что у меня получилось пока...

Код:
[Выделить все]
 (defun c:3 (/ ss txt ss2 pr n kol txt3)
    (prompt "\nВыберете текст 1")
	(setq txt(vla-get-TextString(vlax-ename->vla-object (car (entsel)))))
	(setq n 0)

	
	
	(repeat 5
	(setq n (+ n 1))
	(prompt "\nВыберете текст2‚:")
	(setq ss2 (ssget '((0 . "TEXT,MTEXT"))))

	)
	

)
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
Просмотров: 1181
 
Непрочитано 22.10.2019, 17:58
#2
koMon


 
Блог
 
Регистрация: 26.09.2017
Сообщений: 1,665


Код:
[Выделить все]
 (defun c:t3 (/ ss1 txt ss2 pr n kol txt3)
	(setq n 0)
	(repeat 5
		(prompt "\nВыберите текст1: ")
		(while (null (setq ss1 (ssget "_:S" '((0 . "TEXT, MTEXT"))))))
		(setq txt (vla-get-textstring (vlax-ename->vla-object (ssname ss1 0))))
		(setq n (1+ n))
		(prompt "\nВыберите текст2: ")
		(while (null (setq ss2 (ssget "_:S" '((0 . "TEXT, MTEXT"))))))
		(vla-put-textstring (vlax-ename->vla-object (ssname ss2 0)) (strcat txt " Н/У"))
	)
)
koMon вне форума  
 
Автор темы   Непрочитано 22.10.2019, 18:19
#3
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,968


(vla-put-textstring (vlax-ename->vla-object (ssname ss2 0)) (strcat txt " Н/У"))
ВОт тут не хватает предыдущего текста который был при выборе 2

----- добавлено через ~4 ч. -----
разобрался
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > AutoLisp последовательная нумерация текстов.

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Литература по AutoLISP на русском языке PeterPeter LISP 43 22.09.2015 10:33
Сквозная нумерация страниц в текстовом документе Microsoft Word lenozzy Прочее. Программное обеспечение 1 14.10.2014 15:19
Автоматическая нумерация текстов dorofei Программирование 8 18.01.2007 09:31