[Обученец]

Команда: (defun c:mypurge() (repeat 3 (vla-purgeall (vla-get-activedocument
(vlax-get-acad-object)))) (command "_.-purge" "_r" "" "_n") (vla-AuditInfo
(vla-get-ActiveDocument (vlax-get-acad-object)) :vlax-false)
(_> mypurge

Почему так?! Надо ^C^C(defun c:mypurge() (repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))) (command "_.-purge" "_r" "" "_n") (vla-AuditInfo (vla-get-ActiveDocument (vlax-get-acad-object)) :vlax-false);mypurge;) . ПРИЧЕМ с пробелом после последней скобки, чтобы не останавливалось.

[Qvinto]

так я повесил макрос на кнопку, и он мне такое выдает после запуска.

[Обученец]

Мда с кнопки выдает, а при вставке в командную строку - нет. Надо ждать MIPа, т.к. я не знаю что удалять надо из записи (предполагаю, что дело в defun...).

[Qvinto]

так это макрос для кнопки
^C^C(defun c:mypurge() (repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))) (command "_.-purge" "_r" "" "_n") (vla-AuditInfo (vla-get-ActiveDocument (vlax-get-acad-object)) :vlax-false);mypurge;)
можно и в лисп засунуть, и лиспом запускать.

[MIP]

Проблемма решается просто.
Первоначальный код

^C^C(defun c:mypurge() (repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))) (command "_.-purge" "_r" "" "_n") (vla-AuditInfo (vla-get-ActiveDocument (vlax-get-acad-object))));mypurge;

Обратите внимание что ;mypurge; находится за скобками - это вызов функции mypurge определяемой в

(defun c:mypurge() (repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))) (command "_.-purge" "_r" "" "_n") (vla-AuditInfo (vla-get-ActiveDocument (vlax-get-acad-object))))

В моем посте предлагалось заменить часть кода

Код:

(vla-AuditInfo (vla-get-ActiveDocument (vlax-get-acad-object)))

на

Код:

(vla-AuditInfo (vla-get-ActiveDocument (vlax-get-acad-object)) :vlax-false)

В конечном итоге код выглядит следующим образом

^C^C(defun c:mypurge() (repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))) (command "_.-purge" "_r" "" "_n") (vla-AuditInfo (vla-get-ActiveDocument (vlax-get-acad-object)) :vlax-false));mypurge;

а не

^C^C(defun c:mypurge() (repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))) (command "_.-purge" "_r" "" "_n") (vla-AuditInfo (vla-get-ActiveDocument (vlax-get-acad-object)) :vlax-false);mypurge;)

Вот и все!

можно и в лисп засунуть, и лиспом запускать.

Можно, в принципе что и делает макрос, он именно инициализирует и запускает Лисп программу.

[Обученец]

Получается, что я запутал всех немного, но благодаря MIP похоже разобрались. Тема оказалась интересной, теперь буду только так чистить чертежи от не нужного мусора.

[Qvinto]

Команда: (defun c:mypurge() (repeat 3 (vla-purgeall (vla-get-activedocument
(vlax-get-acad-object)))) (command "_.-purge" "_r" "" "_n") (vla-AuditInfo
(vla-get-ActiveDocument (vlax-get-acad-object)) :vlax-false))
C:MYPURGE

Команда: mypurge
_.-purge
Тип неиспользуемых объектов
[Блоки/Рзмстили/Слои/типыЛин/мАтериалы/Пстили/Формы/Тстили/Млстили/тблстИли/визУ
альные стили/Зарегприл/Все]: _r Имена удаляемых элементов <*>: Запрашивать
подтверждение на удаление каждого элемента? [Да/Нет] <Д>: _n Удаление
зарегистрированное приложение "ACAD_EXEMPT_FROM_CAD_STANDARDS".
Удаление зарегистрированное приложение "AcAecLayerStandard".
Удаление зарегистрированное приложение "AcLayerTools".
Удалено 3 зарегистрированные приложения.

Команда:

Проверка заголовка

Проверка таблиц

Проверка объектов, проход 1

Проход 1: проверено объектов: 2900
Проверка объектов, проход 2

Проход 2: проверено объектов: 2900
Проверка блоков

Проверено блоков: 3

Всего найдено ошибок: 0, исправлено: 0

Стерто 0 объектов

Команда: nil

Вот такое мне выдает при применении кода. У меня вопрос.
А почему в конце Команда: nil
Это остановка цикла, или ошибка? Или каких то аргументов не хватает?

[MIP]

А почему в конце Команда: nil
Это остановка цикла, или ошибка? Или каких то аргументов не хватает?

Ничего страшного, все команды написанные на Лисп в конце своей работы возвращают значение последней выполненной функции, в этом случае возвращаемое значение nil.
Если не хочешь чтобы оно выводилось замени макрос на

^C^C(defun c:mypurge() (repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))) (command "_.-purge" "_r" "" "_n") (vla-AuditInfo (vla-get-ActiveDocument (vlax-get-acad-object)) :vlax-false) (princ));mypurge;

[Немо]

У меня все  работает! Отличная штука, спасибо за нее всем писавшим!

[Qvinto]

А я что-то не очень доволен.
Вставляю блок в чертеж, затем удаляю его. Провожу чистку. А код мне не сообщает, что удалил что-то лишнее. Почему?
И еще: Захожу в редактор блоков, редактируем блок, не выхожу из редактора провожу чистку. Все примитивы чертежа удаляются, а блок остается.
Не нравиться мне это совсем.

[Немо]

Захожу в редактор блоков, редактируем блок, не выхожу из редактора провожу чистку. Все примитивы чертежа удаляются, а блок остается.

Точно, есть такое! Но еще ни разу так сам не делал. Даже в голову не приходило редактировать блок и одновременно чистить чертеж. Надо все по порядку. Плохо конечно, но считаю не критично.

[Qvinto]

Даже в голову не приходило редактировать блок и одновременно чистить чертеж.

В голову должно все приходить. Случаи то ведь разные бывают.

[Немо]

Не спорю. Кстати на запуск команды _purge выдает:

Команда: _purge ** Команда _PURGE недопустима в редакторе блоков. **

Разработчики ушли от данной проблемы запрещением очистки чертежа при редактировании блока.

[MIP]

А я что-то не очень доволен.
Вставляю блок в чертеж, затем удаляю его. Провожу чистку. А код мне не сообщает, что удалил что-то лишнее. Почему?

А что нужно чтобы сообщало? Макрос с программой сделаны чтобы удалять все неиспользуемое в чертеже автоматически без лишних вопросов.
Если хотите видеть что будет удалено запускайте просто команду _.purge и смотрите какие элементы есть в чертеже но не используются, и удаляйте только то что надо.

И еще: Захожу в редактор блоков, редактируем блок, не выхожу из редактора провожу чистку. Все примитивы чертежа удаляются, а блок остается.
Не нравиться мне это совсем.

Здрасте приехали! Нельзя запустить команду по очистке чертежа находясь в редакторе блоков, т.к. по сути выполняется другая команда. Так же нельзя запустить очистку и при редактировании внешних ссылок. Так устроена система.

Точно, есть такое! Но еще ни разу так сам не делал. Даже в голову не приходило редактировать блок и одновременно чистить чертеж. Надо все по порядку. Плохо конечно, но считаю не критично.

Трудно чистить и резать апельсин одновременно.

В голову должно все приходить. Случаи то ведь разные бывают.

А что мешает выйти из редактора блоков и почистить чертеж? В принципе если простматривать логику то при вызове команды "Очистить" должна завершится команда "Редактор блоков" с вопросом о сохранении внесенных в блок изменений и запуститься команда "Очистить". В принципе оно так и работает для многих простых команд Автокада, но как я понимаю есть тонкости в самом редакторе блоков.

[Qvinto]

А что нужно чтобы сообщало?

Так хочу знать чего и сколько он удаляет. Зачем тогда выдавать сообщение: Стерто 0 объектов? Или эти сообщения о проверке чертежа?
Тогда пускай так и будет. Раз там все нормально работает.

если Вы не зарегистрированы, то
пройдите регистрацию

[natalia.natalia]

AutoCAD. Большой вес файла. Функции purge и ...

автор: natalia.natalia

20 Октября 2024 года, 07:52

Перенос 3D модели из AutoCAD в SolidWorks

автор: Pokemon

15 Октября 2024 года, 12:26

Где скачать демоверсию Autodesk AutoCAD Elec...

автор: Znatok

21 Сентября 2024 года, 22:27

Кто работал в ABViewer?

автор: Trust Me

19 Сентября 2024 года, 17:29

Шрифты для AutoCAD. Обмен шрифтами между про...

автор: Fenix88

12 Сентября 2024 года, 16:47

Помощь в настройке нанокада

автор: Вера Р.

12 Сентября 2024 года, 08:13

Искажение шрифта GOST Type A

автор: doctorRaz

23 Июня 2024 года, 09:43

Кто заменит Autodesk?

автор: doctorRaz

06 Мая 2024 года, 13:55

Сложный тип линии. Не отображается у других ...

автор: Антониони

06 Мая 2024 года, 11:27

Как соединить провод с элементом схемы ровно...

автор: Андрей11

23 Апреля 2024 года, 20:23

Переворачивается динамичный блок

автор: Антониони

19 Марта 2024 года, 07:08

Autocad 2024. Долгий первый запуск после пер...

автор: Mclaud 72

09 Марта 2024 года, 00:51

AutoCAD. Использование блоков с атрибутами д...

автор: Posetitel

27 Февраля 2024 года, 14:19

Revit Server 2020-2024 - Установка, настройк...

автор: Mike_Moke

26 Февраля 2024 года, 15:10

Транспонирование (Перенос данных таблицы из ...

автор: Файруза

26 Февраля 2024 года, 14:12

[1345]

Сейчас на форумах: гостей - 1345, пользователей - 11 Имена присутствующих пользователей: Shvet, Артуриан 11, APT, Земский, AnPo, Posetitel, Проектант 63, Regina, doctorRaz, 222SokoL222, Ernaton