Мультикопия текста с одновременной правкой
Мультикопия текста с одновременной правкой.
Работатет с Text, Mtext, Attdef.
Базовую точку при копировании выбираем сами.
Обрабатывается ввод enter или ПКМ для завершения команды.
___________
Обновил прогу, теперь редактируются и атрибуты в блоках.
Копируется любой набор объектов с переносом базовой точки в последнюю указанную. В этом наборе находятся текстовые объекты и предлагается по порядку их отредактировать.
2 варианта запуска, макрос на кнопку:
если надо редактировать текст
^C^C(if (eq Kr_Copy_and_Edit nil) (load "Kr_Copy_and_Edit.vlx"));(defun c:Kr () (Kr_Copy_and_Edit t));Kr
есле не надо редактировать текст (просто копируем)
^C^C(if (eq Kr_Copy_and_Edit nil) (load "Kr_Copy_and_Edit.vlx"));(defun c:Kr () (Kr_Copy_and_Edit nil));Kr
____________
Обновил под новые версии AutoCAD
Работатет с Text, Mtext, Attdef.
Базовую точку при копировании выбираем сами.
Обрабатывается ввод enter или ПКМ для завершения команды.
___________
Обновил прогу, теперь редактируются и атрибуты в блоках.
Копируется любой набор объектов с переносом базовой точки в последнюю указанную. В этом наборе находятся текстовые объекты и предлагается по порядку их отредактировать.
2 варианта запуска, макрос на кнопку:
если надо редактировать текст
^C^C(if (eq Kr_Copy_and_Edit nil) (load "Kr_Copy_and_Edit.vlx"));(defun c:Kr () (Kr_Copy_and_Edit t));Kr
есле не надо редактировать текст (просто копируем)
^C^C(if (eq Kr_Copy_and_Edit nil) (load "Kr_Copy_and_Edit.vlx"));(defun c:Kr () (Kr_Copy_and_Edit nil));Kr
____________
Обновил под новые версии AutoCAD
Комментарии
Авторизоваться
Всем спасибо. Исправил. Теперь не мусорит.
Вообщето это Автокадовский баг команды "_Copy", которую я использую в проге. Я сделал соответсвующую поправку на этот баг, но если вдруг автодеск её исправит, то эта поправка начнет делать нежелательный результат.
Всем спасибо. Исправил. Теперь не мусорит.
Вообщето это Автокадовский баг команды "_Copy", которую я использую в проге. Я сделал соответсвующую поправку на этот баг, но если вдруг автодеск её исправит, то эта поправка начнет делать нежелательный результат.
2. Запускаем команду, выбираем объект на заблокированном слое - опять караул!
Русским по белому написано - Specify base point
дальше внимание or [Displacement]
Так что вы птичку нашу не обижайте (Матроскин).
<1. Запускаем команду, выбираем объект, нажимаем пробел и кричим - мама роди меня обратно.>
Исправил
<2. Запускаем команду, выбираем объект на заблокированном слое - опять караул!>
А что надо с ним делать, если он на заблокированном слое? На то он блокируется чтоб его не трогали. Внес проверку слоя.
<И зачем ругать комманду copy.>
Согласен. Погорячился. Мож тогда и оставить надпись
Большое спасибо за прекрасную программу! Долго пользовался, но появился АКАД-2015 в котором она не работает. Нет ли возможности и желания адаптировать программу под этот АКАД? Заранее благодарю!
Адаптировал)