Как взорвать все блоки на листах разом.

zmejsan · 08.11.2014, 21:48

Дорогие знатоки случилась вот такая штука с которой я не смог справиться самостоятельно:
В модели работаю с блоками (обычными, динамическими) с таблицами и расчетами в них. А в листах имеются таблицы ссылающиеся на таблицы в модели и денамические блоки. С этим со всем работать умею только я. И в компании требуют это все взрывать перед сдачей. Работа трудоемкая и долгая. Нужно сделать так чтобы при нажатии 1 кнопки запустился процесс поиска и взрыва. Причем не просто взорвать блоки динамические командой автокада а командой экспрестулса. т.е. все отребуты при это перевести в текст.
Надеюсь будут хоть какие нибудь идеи для сокращения моего времени. Все заранее спасибо!!!

Dakar · 08.11.2014, 22:04

а быстрым выбором вхождения блоков выбрать и применить к ним экспрестулс не получиться?

zmejsan · 08.11.2014, 22:10

Цитата:

Сообщение от Dakar

а быстрым выбором вхождения блоков выбрать и применить к ним экспрестулс не получиться?

Оно можно, только в модели или в поли листа а одновременно и там и там я не знаю как. Если есть такая возможность подскажите поподробнее.

Dfds · 08.11.2014, 22:13

Какая именно программа?

zmejsan · 08.11.2014, 22:14

Цитата:

Сообщение от Dfds

Какая именно программа?

AutoCad 2010

Dfds · 08.11.2014, 22:24

Воспользуйся командой ВЗОРВАТЬ

zmejsan · 08.11.2014, 22:26

Цитата:

Сообщение от Dfds

Воспользуйся командой ВЗОРВАТЬ

Dfds, дорогой друг. Возможно ты недочитал или не понял о чем я спрашиваю. Суть не в том как зворвать, а в том чтобы это сделать везде (в модели, во всех листах) нажатием одной кнопки.....

Dfds · 08.11.2014, 22:46

Цитата:

Сообщение от zmejsan

Dfds, дорогой друг. Возможно ты недочитал или не понял о чем я спрашиваю. Суть не в том как зворвать, а в том чтобы это сделать везде (в модели, во всех листах) нажатием одной кнопки.....

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

zmejsan · 08.11.2014, 22:47

Цитата:

Сообщение от Dfds

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

Спасибо, но не в тему... Это не все так просто как вам кажется.

Сергей812 · 08.11.2014, 22:48

Например, слепить лисп типа такого (написано на коленке - но смысл понятен)

Код:

[Выделить все]

 (defun c:ExplodeAllSheet ( / NameAddSheet)
(setq NewListLayouts (layoutlist))
(foreach NameAddSheet NewListLayouts
   (progn
       (setvar "ctab" NameAddSheet)
       ...
   )
)

вместо многоточия вставите нужный код - что хотите сделать с объектами на активном листе

zmejsan · 08.11.2014, 22:49

я с лиспами как раз та и не в ладах. Если подскажете и поможете буду примного благодарен))

Dfds · 08.11.2014, 22:53

Все гениальное просто

Сергей812 · 08.11.2014, 23:13

Цитата:

Сообщение от Dfds

Все гениальное просто

Не все так просто. Сначала по нормальному файл надо сохранить в особую папку для выдачи (чтобы случайно не выдать внешникам рабочие варианты чертежей), потом обработать ссылки и т.д (смотрим шапку темы). Вроде есть методы преобразования динблоков в статику (никогда не использовал)-т.е., возможно, не обязательно все расчленять. А под конец еще почистить чертеж и проверку сделать. В коде лишь перебирает листы в активном чертеже. И вполне возможно, что это надо делать через Active-X.
А если чертежей много и собраны через подшивку? в общем вещь индивидуальная..

zmejsan, В принципе, выше все написал.

Кулик Алексей aka kpblc · 09.11.2014, 08:49

Если руками - то ИМХО через экспортирование листов в модель и последующим burst. И то не факт, что получится красиво

VVA · 09.11.2014, 13:37

Цитата:

Сообщение от zmejsan

А в листах имеются таблицы ссылающиеся на таблицы в модели и денамические блоки. С этим со всем работать умею только я.

Надеюсь с обычными блоками в компании уже научились работать?
Тогда предлагаю следующий алгоритм
1. LISP. Подготовка подосновы
2. BGCFT - Конвертирует все поля в обычный текст
3. BGBLALLDYN2S - Преобразовывает ВСЕ динамические блоки в статические

zmejsan · 09.11.2014, 13:41

Цитата:

Сообщение от VVA

Надеюсь с обычными блоками в компании уже научились работать?
Тогда предлагаю следующий алгоритм
1. LISP. Подготовка подосновы
2. BGCFT - Конвертирует все поля в обычный текст
3. BGBLALLDYN2S - Преобразовывает ВСЕ динамические блоки в статические

Проблема только одна: при использовании данных лиспов нужно выбирать блоки, а они на разных листах.

Сергей812 · 09.11.2014, 13:48

Цитата:

Сообщение от zmejsan

Проблема только одна: при использовании данных лиспов нужно выбирать блоки, а они на разных листах.

Возникает резонный вопрос - в вашей компании рисуют прямо на листах? Откуда там появились куча связей и динблоков?

zmejsan · 09.11.2014, 13:53

Цитата:

Сообщение от Сергей812

Возникает резонный вопрос - в вашей компании рисуют прямо на листах? Откуда там появились куча связей и динблоков?

Нет)) Так черчу только я. И на листах динамически сделаны рамки, условные обозначения и другая мелочь. А в модели я могу с помощью быстрый выбор выбрать все блоки и взорвать. Даже сделать макрос на кнопку-это не сложно. А вот в листах....

skkkk · 09.11.2014, 14:04

То ли из-за нелюбви взрывать блоки форумчане не хотят подсказать, то ли я чего-то не пойму, но ведь все решается одной строчкой. Я имею в виду выбор блоков на всем чертеже: и в модели, и в листах. Вот эта строчка:

Код:

[Выделить все]

(sssetfirst nil (ssget "_X" '((0 . "INSERT"))))

Она заминирует все блоки

zmejsan · 09.11.2014, 14:12

Цитата:

Сообщение от skkkk

То ли из-за нелюбви взрывать блоки форумчане не хотят подсказать, то ли я чего-то не пойму, но ведь все решается одной строчкой. Я имею в виду выбор блоков на всем чертеже: и в модели, и в листах. Вот эта строчка:

Код:

[Выделить все]

(sssetfirst nil (ssget "_X" '((0 . "INSERT"))))

Не совсем понял данной команды. Ввожу-выделяет блоки на листе, взрываю, а на другом листе все по прежнему. Она как бы показывает сколько есть блоков в файле но выделяет только те что видит. Подскажите возможно я делаю чтото не так

Сергей812 · 09.11.2014, 14:13

Цитата:

Сообщение от skkkk

То ли из-за нелюбви взрывать блоки форумчане не хотят подсказать, то ли я чего-то не пойму, но ведь все решается одной строчкой. Я имею в виду выбор блоков на всем чертеже: и в модели, и в листах. Вот эта строчка:

Это или в модели, или в одном листе. И речь, если судить по топику ветки - идет не только о расчленении блоков) Насчет самой операции расчленения блоков - сейчас это стало своего рода символом дилетанства, имхо.. не разбираясь, все расчленить и рисовать в примитивах. Еще и в нулевом слое желательно)

----- добавлено через ~4 мин. -----

Цитата:

Сообщение от zmejsan

Нет)) Так черчу только я. И на листах динамически сделаны рамки, условные обозначения и другая мелочь.

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

skkkk · 09.11.2014, 14:20

Ах вот в чем тут дело, а я думаю сижу тут, что самый умный

. На кнопочку-то на детонаторе я-то и не нажал! А оказалось, надо еще провода протягивать на листы

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

Сергей812 · 09.11.2014, 14:25

Интересно, если пост #10 скрестить с постом #19, добавив команду расчленения блоков - работать будет?)

zmejsan · 09.11.2014, 14:25

Цитата:

Сообщение от skkkk

То ли из-за нелюбви взрывать блоки форумчане не хотят подсказать, то ли я чего-то не пойму, но ведь все решается одной строчкой. Я имею в виду выбор блоков на всем чертеже: и в модели, и в листах. Вот эта строчка:

Код:

[Выделить все]

(sssetfirst nil (ssget "_X" '((0 . "INSERT"))))

Она заминирует все блоки

Хорошая команда. Я не знал про нее. Подкрепил к кнопке перед взрывом и немного ускорило мне это. Спасибо!

Сергей812 · 09.11.2014, 14:27

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

Valery Brelovsky · 09.11.2014, 15:12

Вобще из конторы в которой не работают с блоками, а тех кто работае заставляют взрывать вместо того что бы хоть одну кнопку выучить и взрывать самому, заставляют автора взрывать блоки, бежать нужно, всёравно это будет не работа а мучение. У меня тут одна умная рвёт всё подряд, я стал закрывать блоки от возможности взрывать.

zmejsan · 09.11.2014, 15:14

Цитата:

Сообщение от Valery Brelovsky

Вобще из конторы в которой не работают с блоками, а тех кто работае заставляют взрывать вместо того что бы хоть одну кнопку выучить и взрывать самому, заставляют автора взрывать блоки, бежать нужно, всёравно это будет не работа а мучение. У меня тут одна умная рвёт всё подряд, я стал закрывать блоки от возможности взрывать.

А я и ищу как раз)) Можете подсказать мне где лучше

Сергей812 · 09.11.2014, 15:28

Offtop:

Цитата:

Сообщение от zmejsan

А я и ищу как раз)) Можете подсказать мне где лучше

Главное, помните - в первую очередь выгоняют из шаражек тех, кто не вписывается в общую корпоративную струю - чтобы не наводил смуту

Если будете нажатием трех кнопок делать работу половины отдела за неделю-сживут..

skkkk · 09.11.2014, 20:40

Вот, для всеобщего взрыва всех блоков во всех пространствах:

Код:

[Выделить все]

 (defun C:ALLSPACESBURST	(/ layout-list current-tab ss)
  (setq	layout-list
		    (mapcar 'cdr
			    (vl-remove-if-not
			      (function
				(lambda (x) (= (car x) 3))
			      ) ;_ end of function
			      (dictsearch (namedobjdict) "ACAD_LAYOUT")
			    ) ;_ end of vl-remove-if-not
		    ) ;_ end of mapcar
	current-tab (getvar "CTAB")
  ) ;_ end of setq
  (repeat (setq i (length layout-list))
    (setvar "CTAB" (nth (setq i (1- i)) (reverse layout-list)))
    (setq
      ss (ssget	"_X"
		(list (cons 0 "INSERT") (cons 410 (getvar "CTAB")))
	 ) ;_ end of ssget
    ) ;_ end of setq
    (sssetfirst nil ss)
    (if	ss
      (C:BURST)
    ) ;_ end of if
  ) ;_ end of repeat
  (setvar "CTAB" current-tab)
) ;_ end of defun

Программа откроет по очереди все вкладки чертежа, включая модель, и взорвет в каждой их них все блоки, которые сможет, командой BURST, затем вернется на первоначально открытую вкладку. Проверок никаких не делал, поэтому сначала лучше разблокировать слои, на которых есть блоки. Бегло потестировал, некоторые блоки команда BURST почему-то не взрывает, пишет: "Невозможно расчленить этот блок." С чем это связано - не разбирался. Тестируем, в общем, если что - подправлю. Главное - случайно не нажать в том чертеже в котором не надо. Может вопрос в начале добавить, типа "Вы уверены?"??

Andrey_13 · 09.11.2014, 21:08

Код:

[Выделить все]

  (setq	layout-list
		    (mapcar 'cdr
			    (vl-remove-if-not
			      (function
				(lambda (x) (= (car x) 3))
			      ) ;_ end of function
			      (dictsearch (namedobjdict) "ACAD_LAYOUT")
			    ) ;_ end of vl-remove-if-not
		    ) ;_ end of mapcar
	current-tab (getvar "CTAB")
  ) ;_ end of setq

Возвращает список вкладок листов? Можно заменить на более изящное

Код:

[Выделить все]

 (layoutlist)

zmejsan · 09.11.2014, 21:12

Друзья большое спасибо! Маленькая просьба. немогли бы собрать все в один файл и сказать как пользоваться. Я с лиспами вообще не лады(((
Еще просьба взрывать блоки с переводом отребутов в текст. И взорвать все таблицы как обычным взрывом. Т.е. упростить все до линий и текста. Большое спасибо!

Кулик Алексей aka kpblc · 09.11.2014, 21:13

skkkk, посмотри: команда burst обращается к внутренней функции burst-one. Так что можно и ее попробовать использовать по мере надобности.

Сергей812 · 09.11.2014, 21:43

Цитата:

Сообщение от skkkk

Главное - случайно не нажать в том чертеже в котором не надо. Может вопрос в начале добавить, типа "Вы уверены?"??

Может, лучше сначала скопировать/сохранить как в %имя файла%_burst.dwg ?

----- добавлено через ~41 мин. -----
Типа такого

Код:

[Выделить все]

 ( vl-load-com )
	( setq lDoc (vla-get-activedocument (vlax-get-acad-object)) )
	( setq lFullNameFile (vla-get-fullname lDoc))
	( setq lNewNameFile (strcat ( vl-filename-directory lFullNameFile) "\\"
		( vl-filename-base lFullNameFile) "_burst" ( vl-filename-extension lFullNameFile)) )
  	( vla-SaveAs lDoc lNewNameFile acNative)

давно уже не рассчитываю - что пользователь что-то читает..)

VVA · 09.11.2014, 23:39

Цитата:

Сообщение от skkkk

"Невозможно расчленить этот блок."

два варианта :
1. блоку "запрещено" взрываться (vla-get-explodable)
2. не равные коэффициенты по x y z
+
3. В штатной команде есть много глюков и при большом кол-ве блоков может долго выполняться. см Express Tools Bugs ( Ошибки Express Tools )
еще полезная ссылка
4. Нюансы _EXPLODE (РАСЧЛЕНИТЬ)

Valery Brelovsky · 10.11.2014, 14:25

Цитата:

Сообщение от zmejsan

Т.е. упростить все до линий и текста

Есть ещё _wmfin всё упростится и текст до линий.

Composter · 12.11.2014, 16:43

еще немного советов.
после того как вам тут соберут лисп ,который будет все делать.
далее закидываете в какую нить папку , создаете батник в нем пишете аля

Код:

[Выделить все]

FOR %%f in (D:\111\*.dwg) DO START /wait C:\"Program Files"\"AutoCAD 2009"\acad.exe "%%f" /b D:\111\222.scr

222.src это обычный текстовый файл переименованный в котором будет только надпись "ALLSPACESBURST" (без кавычек, если так будет в конце обзываться конечный лисп)
не забудьте добавить этот лисп в автозагрузку
ну и в конце лиспа надо добавить

Код:

[Выделить все]

 (vla-save(vla-get-activedocument(vlax-get-acad-object)))
(vla-quit(vlax-get-acad-object))

тогда при запуске батника будут открываться все файлы dwg по очереди в этой папке , врываться все блоки (если вам допишут до конца лисп),сохранятся и закрываться. а вы сможете пойти чайку попить

zmejsan · 12.11.2014, 16:57

Спасибо за совет, но лисп мой ни как не напишут... Сложно наверное.

skkkk · 12.11.2014, 19:02

Цитата:

Сообщение от Andrey_13

Возвращает список вкладок листов? Можно заменить на более изящное

Да, именно их возвращает. Согласен, можно, забыл я об этой функции, просто такая конструкция в моих функциях получает список объектов любых словарей: не только список листов, но и список групп, фильтров слоев, стилей мультивыносок, мультилиний и т.д. Более универсально просто, а так, спасибо, учту.

Цитата:

Сообщение от Кулик Алексей aka kpblc

skkkk, посмотри: команда burst обращается к внутренней функции burst-one. Так что можно и ее попробовать использовать по мере надобности.

Насколько я понял, она тоже не повзрывает блоки в другом пространстве, тогда какой в этом смысл? Или я не так понял? Сейчас нет возможности проверить. Но по возможности попробую.

Цитата:

Сообщение от Сергей812

Может, лучше сначала скопировать/сохранить как в %имя файла%_burst.dwg ?

Думаю, это не лишено смысла.

Цитата:

Сообщение от VVA

два варианта :

Спасибо, Володь, тут все теперь предельно понятно. Кроме одного. Взрывать все-таки невзрываемые блоки или нет? Это к вопросу о Правильном Техническом Задании.

Цитата:

Сообщение от VVA

3. В штатной команде есть много глюков и при большом кол-ве блоков может долго выполняться. см Express Tools Bugs ( Ошибки Express Tools )
еще полезная ссылка

За эти ссылки особое спасибо. Очень приятно осознавать, что VVA и Do$ утёрли нос америкосов.

Цитата:

Сообщение от VVA

4. Нюансы _EXPLODE (РАСЧЛЕНИТЬ)

Ну это ты вообще... как шахматист. На несколько ходов вперёд

. Я еще споткнуться не успел, а уже все тут мне на блюдечке с золотой каёмочкой.

Цитата:

Сообщение от Valery Brelovsky

Есть ещё _wmfin всё упростится и текст до линий

В смысле связка _WMFOUT -> _WMFIN?

Цитата:

Сообщение от Composter

будут открываться все файлы dwg по очереди в этой папке , врываться все блоки (если вам допишут до конца лисп),сохранятся и закрываться.

Вот это вообще сможет стать опасной гранатой в руках какой-нибудь обезьяны. Ясное дело, эта обезьяна может и просто файлы все поудалять или вообще компьютер уронить с четвертого этажа, но я бы под таким подписываться не стал.

Цитата:

Сообщение от zmejsan

лисп мой ни как не напишут...

zmejsan, а как продвигается тестирование лиспа из #29? Как работает? Медленно ли? А не быстрее ли с замененным burst.lsp из ссылок VVA в #34? Какие замечания и предложения кроме обработки таблиц? Сложно-то - не сложно, но когда от "Заказчика" не слышно обратной связи, то и делать вроде как нечего, не так ли? Может, вообще уже и не надо...

zmejsan · 21.11.2014, 21:53

skkkk, спасибо за старания! Я писал в посте #31, что я не умею пользоваться лиспами. Попробовал, но не заработало. Если не сложно сварганить готовый лисп и написать какую команду вводить для работы буду примного благодарен.
За труд СПАСИБО!!!

Сергей812 · 21.11.2014, 23:01

Цитата:

Сообщение от zmejsan

Попробовал, но не заработало. Если не сложно сварганить готовый лисп и написать какую команду вводить для работы буду примного благодарен

Что не заработало то? И по вашему в посте #29 не готовый лисп?

skkkk · 21.11.2014, 23:24

Цитата:

Сообщение от zmejsan

Я писал в посте #31, что я не умею пользоваться лиспами.

zmejsan, вроде по другим темам я понял, что это уже устаревшая информация, потому как лисп там шел на "ура"

. Как использовать лисп-код, см. здесь. Только нужно брать код без номеров строк, для этого нужно нажать Выделить все, а затем кнопку Копировать, которая появится справа вверху зоны с кодом, ограниченной тэгом Код.

Цитата:

Сообщение от Сергей812

в посте #29 не готовый лисп?

Ну, готовым бы я его не назвал, поскольку

Цитата:

Сообщение от skkkk

Проверок никаких не делал

и

Цитата:

Сообщение от skkkk

Бегло потестировал

но планирую "допилить" при выявлении замечаний и предложений. Однако взорвать взрываемые блоки на всех вкладках он уже должен суметь.
P.S.: А может быть и такое, что Express Tools не установлены. Что пишет в комстроке?

Сергей812 · 22.11.2014, 00:02

Цитата:

Сообщение от skkkk

Ну, готовым бы я его не назвал, поскольку

Готовым - в плане того, что он оформлен в виде готовой лисп-функции/команды, т.е. который уже можно скопировать в *.lsp файл, загрузить и опробовать. А не просто кусок примера-кода)

Franco13 · 25.11.2015, 00:09

Цитата:

Сообщение от skkkk

Вот, для всеобщего взрыва всех блоков во всех пространствах

Мне этот код очень помог.
Но, у меня также похожая задача, мне нужно взорвать весь mtext на всех листах и в модели. Сам в программировании не понимаю, сам исходный код не смогу изменить.

skkkk · 25.11.2015, 08:12

Цитата:

Сообщение от Franco13

мне нужно взорвать весь mtext на всех листах и в модели

Код:

[Выделить все]

 (defun C:EXPLODEALLMTXT (/ layout-list current-tab i k ss)
	(setq layout-list
		(mapcar 'cdr
			(vl-remove-if-not
				(function
					(lambda (x) (= (car x) 3))
				) ;_ end of function
			    (dictsearch (namedobjdict) "ACAD_LAYOUT")
			) ;_ end of vl-remove-if-not
		) ;_ end of mapcar
		current-tab (getvar "CTAB")
	) ;_ end of setq
	(repeat (setq i (length layout-list))
		(setvar "CTAB" (nth (setq i (1- i)) (reverse layout-list)))
		(if	(setq ss (ssget	"_X" (list (cons 0 "MTEXT") (cons 410 (getvar "CTAB")))))
			(repeat (setq k (sslength ss))
				(vl-cmdf "_.EXPLODE" (ssname ss (setq k (1- k))) "")
			) ;_ end of repeat			
		) ;_ end of if
	) ;_ end of repeat
	(setvar "CTAB" current-tab)
) ;_ end of defun

Franco13 · 25.11.2015, 19:00

skkkk
У меня не работает почему то..

sertor · 25.11.2015, 19:33

Цитата:

Сообщение от Franco13

Franco13

Все работает. А Вы правильно копируете код?

Franco13 · 25.11.2015, 19:54

sertor
Именно так и делал. Сейчас сделал тестовый файл, за одно применение лиспа почему то разбивает только по одному mtextу из листа и из модели.

sertor · 25.11.2015, 20:04

Цитата:

Сообщение от Franco13

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

Да, согласен. Проверку работоспособности проверял именно по одному образцу текста в модели и в листе.

VVA · 25.11.2015, 23:37

Цитата:

Сообщение от sertor

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

цитата из справки по команде _EXPLODE (РАСЧЛЕНИТЬ))

Цитата:

Примечание:Если используется какой-либо пакет или функция ObjectARX®, то за один раз можно выполнить расчленение только одного объекта.

Код:

[Выделить все]

(if ss
  (vl-cmdf "_EXPLODE" ss "")
 ) ;_ end of if

В #34 давал ссылку на особенности использования команды _EXPLODE при вызове из Lisp-функций

Franco13 · 26.11.2015, 07:50

VVA
Подскажите, как изменить код чтобы работал с пакетным расчленением.

skkkk · 26.11.2015, 09:45

Цитата:

Сообщение от VVA

В #34 давал ссылку на особенности использования команды _EXPLODE при вызове из Lisp-функций

Прошу прощения, упустил я этот момент, точнее, забыл о нем, и тоже тестировал на файле, в котором создал по одному Мтексту на каждом из пространств.
Исправил в #44.

posetitel · 15.08.2017, 11:57

Цитата:

Сообщение от Andrey_13

Код:

[Выделить все]

  (setq	layout-list
		    (mapcar 'cdr
			    (vl-remove-if-not
			      (function
				(lambda (x) (= (car x) 3))
			      ) ;_ end of function
			      (dictsearch (namedobjdict) "ACAD_LAYOUT")
			    ) ;_ end of vl-remove-if-not
		    ) ;_ end of mapcar
	current-tab (getvar "CTAB")
  ) ;_ end of setq

Возвращает список вкладок листов? Можно заменить на более изящное

Код:

[Выделить все]

 (layoutlist)

заменил указанные строчки на команду и лисп перестал работать

skkkk · 15.08.2017, 20:46

Надо заменить на

Код:

[Выделить все]

 (setq layout-list (layoutlist))

----- добавлено через ~58 мин. -----
Кстати, вспомнил, что немного это изящество не полностью соответствует изначальной задумке. Эта функция (layoutlist) возвращает только список листов, а в mapcar в данном случае собирает список, в котором есть еще и модель. Поэтому менять эти строки не нужно.

posetitel · 16.08.2017, 08:55

понятно, спасибо
а как сделать объединение в лиспе следующих действий:
1) Выполнить команду BGCFT - Конвертирует все поля в обычный текст (из лиспа подосновы, была на форуме тема)
2) Выполнить команду BGBLALLDYN2S - Преобразовывает ВСЕ динамические блоки в статические (тоже от туда)
3) Выполнить команду ALLSPACESBURST - взрывает все блоки (лисп из темы)
4) Выполнить команду ОЧИСТИТЬ
5) Сохранить файл в этой же папке с добавлением к имени файла приписки типа "_взорв"

VVA · 16.08.2017, 20:12

Не иначе как для заказчика

я помочь смогу после 26. В отпуске

posetitel · 17.08.2017, 09:14

для него самого ) буду ждать 26 августа или добрых форумчан, которые смогут пораньше)

VVA · 29.08.2017, 18:11

Цитата:

Сообщение от posetitel

а как сделать объединение в лиспе следующих действий:
1) Выполнить команду BGCFT - Конвертирует все поля в обычный текст (из лиспа подосновы, была на форуме тема)
2) Выполнить команду BGBLALLDYN2S - Преобразовывает ВСЕ динамические блоки в статические (тоже от туда)
3) Выполнить команду ALLSPACESBURST - взрывает все блоки (лисп из темы)
4) Выполнить команду ОЧИСТИТЬ
5) Сохранить файл в этой же папке с добавлением к имени файла приписки типа "_взорв"

Как то так. BGTOOLS и ALLSPACESBURST должны быть загружены

Код:

[Выделить все]

(defun C:ARMAGEDON ()
;;;BGTOOLS и ALLSPACESBURST должны быть загружены
;;; http://forum.dwg.ru/showthread.php?p=1671168#post1671168
(vl-load-com)
(bg:progress-clear)
(bg:progress-init "Работаю..." 6)
(bg:progress 1)
(ConvField->Text nil) ;_(C:BGCFT) Без запроса
(bg:progress 2)
(C:BGBLALLDYN2S)
(bg:progress 3)
(bg:blfix (cons 49444 (tablelist "BLOCK"))) ;_устанавливаем у всех блоков разрешить расчленение - Да
(bg:progress 4) 
(C:ALLSPACESBURST)
(bg:progress 5)  
(repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object))))
(bg:progress 6)
(vla-SaveAs
  (vla-get-activedocument (vlax-get-acad-object))
  (strcat
    (getvar "DWGPREFIX")
    (vl-filename-base(getvar "DWGNAME"))
    "_взорв"
    (vl-filename-extension(getvar "DWGNAME"))
    )
    acNative
  )
)

posetitel · 15.11.2017, 16:43

Уважаемые программисты, и автор кода VAA, подскажите, как в этот лисп еще добавить команду удаления слоя с подписями?
Слой с подписями при выполнении лиспа нужно выбрать (например, по аналогии с командой "слойудал"), если слой не выбран, то не удалять слои. Ну т.е. запускаем лисп, предлагается выбрать слой с подписями, выбираем его (или жмем Esc), дальше лисп как и был написан в предыдущем сообщении, т.е. взрываются блоки, чистится чертеж и сохраняется в отдельный файл

VVA · 15.11.2017, 17:11

Как-то так. Без проверки

Код:

[Выделить все]

(defun C:ARMAGEDON ()
;;;BGTOOLS и ALLSPACESBURST должны быть загружены
;;; http://forum.dwg.ru/showthread.php?p=1671168#post1671168
(vl-load-com)
(VL-CATCH-ALL-APPLY
  '(lambda( / lay)
     (if(setq lay(mydcl "Выберите слой для удаления" (acad_strlsort(vl-remove "0"(tablelist "LAYER")))))
       (progn
         (if (= (getvar "CLAYER") lay)(setvar "CLAYER" "0"))
         (bg:layer-status-save)
         (vla-put-Freeze (vla-item (vla-get-Layers (vla-get-ActiveDocument(vlax-get-acad-object))) lay) :vlax-true)
         (bg:delete-from-layer)
         (bg:layer-status-restore)
         )
       )
     )
  )  
(bg:progress-clear)
(bg:progress-init "Работаю..." 6)
(bg:progress 1)
(ConvField->Text nil) ;_(C:BGCFT) Без запроса
(bg:progress 2)
(C:BGBLALLDYN2S)
(bg:progress 3)
(bg:blfix (cons 49444 (tablelist "BLOCK"))) ;_устанавливаем у всех блоков разрешить расчленение - Да
(bg:progress 4) 
(C:ALLSPACESBURST)
(bg:progress 5)  
(repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object))))
(bg:progress 6)

(vla-SaveAs
  (vla-get-activedocument (vlax-get-acad-object))
  (strcat
    (getvar "DWGPREFIX")
    (vl-filename-base(getvar "DWGNAME"))
    "_взорв"
    (vl-filename-extension(getvar "DWGNAME"))
    )
    acNative
  )
)
(defun mydcl (zagl info-list / fl ret dcl_id)
      ;;;Use
      ;;;(mydcl "Test" '("1" "2" "3" "4"))
      (vl-load-com)
      (if (null zagl)
        (setq zagl "Выбор")
      ) ;_ end of if
      (setq fl (vl-filename-mktemp "mip" nil ".dcl"))
      (setq ret (open fl "w"))
      (mapcar
        '(lambda (x) (write-line x ret))
        (list "mip_msg : dialog { "
              (strcat "label=\"" zagl "\";")
              " :list_box {"
              "alignment=top ;"
              "width=51 ;"
              "allow_accept = true;"
              "tabs = \"16 32\";"
              "tab_truncate = true;"
              (if (> (length info-list) 26)
                "height= 26 ;"
                (strcat "height= " (itoa (+ 3 (length info-list))) ";")
              ) ;_ end of if
              "is_tab_stop = false ;"
              "key = \"info\";}"
              "ok_cancel;}"
        ) ;_ end of list
      ) ;_ end of mapcar
      (setq ret (close ret))
      (if (and (not (minusp (setq dcl_id (load_dialog fl))))
               (new_dialog "mip_msg" dcl_id)
          ) ;_ end of and
        (progn
          (start_list "info")
          (mapcar 'add_list info-list)
          (end_list)
          (set_tile "info" "0")
          (setq ret (car info-list))
          (action_tile
            "info"
            "(setq ret (nth (atoi $value) info-list))"
          ) ;_ end of action_tile
          (action_tile
            "cancel"
            "(progn(setq ret nil)(done_dialog 0))"
          ) ;_ end of action_tile
          (action_tile "accept" "(done_dialog 1)")
          (start_dialog)
        ) ;_ end of progn
      ) ;_ end of if
      (unload_dialog dcl_id)
      (vl-file-delete fl)
      ret
    ) ;_ end of defun

== Аналог ALLSPACESBURST от Lee Mac'a отсюда

Код:

[Выделить все]

(defun c:explodeall ( / explode layouts )
   (setq layouts (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
         explode t
   )
   (while explode
       (setq explode nil)
       (vlax-for layout layouts
           (vlax-for obj (vla-get-block layout)
               (and
                   (= "AcDbBlockReference" (vla-get-objectname obj))
                   (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-explode (list obj))))
                   (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-delete  (list obj))))
                   (setq explode t)
               )
           )
       )
   )
   (princ)
)
(vl-load-com) (princ)

posetitel · 15.11.2017, 17:21

Пишет "необрабатываемое исключение" С0000005 (Access Violation reading 0x0018) по адресу 25D0340Bh
автокад чуть ли не с фатальной ошибкой вылетает.
При чем слой удалять необходимо перед выполнением предыдущего лиспа, иначе некоторе подписи бывают в блоке и они останутся в памяти чертежа, т.к. очистка уже выполнялась раньше. Я так понял здесь удаление слоя происходит в конце.

VVA · 15.11.2017, 17:37

posetitel, Поставил в начало. Обновил #59

posetitel · 15.11.2017, 17:42

Команда: ARMAGEDON _-LAYER
Текущий слой: "0"
Задайте параметр [?/Создать/Установить/Новый/переименоватЬ/Вкл/Откл/Цвет/Тип/вЕс/Прозрачность/Материал/пеЧать/Заморозить/Разморозить/Блок/рАзблок/Конфигурация/опИсание/соГласовать]: _Unlock
Список имен слоев для разблокирования или <выбрать объекты>: Шаблон_Рамка_модель Задайте параметр [?/Создать/Установить/Новый/переименоватЬ/Вкл/Откл/Цвет/Тип/вЕс/Прозрачность/Материал/пеЧать/Заморозить/Разморозить/Блок/рАзблок/Конфигурация/опИсание/соГласовать]:
Команда: _LAYDEL
Выберите объект на слое для удаления или [Имя]: _NAME
Введите имя слоя или [?]: Шаблон_Рамка_модель
Выбранные слои: Шаблон_Рамка_модель.
Выберите объект на слое, который требуется удалить, или [Имя/оТменить]:
******** ПРЕДУПРЕЖДЕНИЕ********

Имеется 4 определений блоков, которые вставляются на слой(и) для удаления.
Блок(и) будут переопределены, а объекты, входящие в слой(и),
будут удалены из определения(й) блока(ов).

Сейчас произойдет удаление слоя "Шаблон_Рамка_модель" из этого чертежа.

Продолжить? [Да/Нет] <Нет>: _Y
Переопределение блока "Рамка_и_штамп_лист".
Переопределение блока "Рамка_и_штамп_модель".
Переопределение блока "*U4".
Переопределение блока "*U5".

Идет удаления слоя "Шаблон_Рамка_модель".
Слои 1 удалены.
Команда: ; ошибка: Возникло исключение: 0xC0000005 (Нарушение доступа)
; предупреждение: раскрутка пропущена для исключение

дальше лисп не выполняется

VVA · 15.11.2017, 17:58

Судя по логу слой удалился. Поэтому сделай 2 кнопки (2 разные команды). Удаления слоя и чистки. и пользуйся старой версией

skkkk · 15.11.2017, 18:21

По мне, так куда удобнее выключить все ненужные слои перед чисткой, а затем - BGLAYDEL

VVA · 15.11.2017, 18:27

Немного изменил код в #59
Пробуй снова

----- добавлено через 32 сек. -----

Цитата:

Сообщение от skkkk

По мне, так куда удобнее выключить все ненужные слои перед чисткой, а затем - BGLAYDEL

По такому пути и пошел, только слой заморозил

skkkk · 15.11.2017, 19:21

Я имел в виду, что для заказчика порой многие слои не нужны. Разного рода вспомогательные и т.д. Более того, зачастую лишние слои даже "запрещены", а в файле куча ненужных слоев, которые вообще непонятно как удалить, искать объекты, в том числе внутри блоков, и т.д. Поэтому, программа по удалению определенного слоя не очень эффективна. Лучше - отключить все ненужное и поудалять это. А нужное - пообъединять с "разрешенными" слоями командой _LAYMRG

posetitel · 15.11.2017, 20:22

Новый код на рабочем месте протестирую.
Всегда удалял командой СЛОЙУДАЛ, при ее вызове слой выбирается мышкой, поэтому думал, что добавить одну команду в лисп будет несложно. Но раз появились такие сложности (заморозка всех слоев, потом удаление их), лисп не с первого раза заработал, то проще, действительно, по старинке.
А вот лисп по взрыванию блоков, о чем собственно тема, взрывает только однократно, т.е. если в блоке есть еще один блок, то внутренний блок не расчленяется. Как сделать (какую команду скопировать), чтобы блоки взрывались хотя бы трижды? При этом, например, текст не распадался на отдельные буквы.

skkkk · 15.11.2017, 21:16

Цитата:

Сообщение от posetitel

ак сделать (какую команду скопировать), чтобы блоки взрывались хотя бы трижды?

Вероятно, должен сработать тройной (C:ALLSPACESBURST). Не проверял. Сколько времени это может занять на тяжелых файлах, предсказать трудно.

posetitel · 16.11.2017, 09:42

VVA, skkkk, спасибо
(по правилам вроде нельзя благодарить отдельным сообщением, а как удалить это сообщение - не знаю)

posetitel · 16.11.2017, 13:20

заметил такой глюк:
если в блоке атрибут скрытый или есть блок с параметром "видимость" и на разных видимостях есть атрибуты, то при выполнении лиспа C:ALLSPACESBURST эти атрибуты появляются на чертеже. так быть не должно. прилагаю файл

VVA · 16.11.2017, 14:59

posetitel, Попробуй в коде C:ALLSPACESBURST в строке №22 вместо (C:BURST) вписать (C:BGBLEXP)

posetitel · 16.11.2017, 15:54

оно! даже тройной запуск (C:ALLSPACESBURST) удалил, т.к. BGBLEXP делает все за один проход.

Duero · 01.10.2018, 14:48

туго с программированием. Можете подсказать куда в код дописать какие команды, что бы дополнительно взорвать блоки AutoDesk'ового СПДС, штриховки и Мтекст?
Забыл, еще по хорошему надо выделить все на чертеже и переместить на 0 слой с установкой цвета черного...

Boxa · 01.10.2018, 15:36

Цитата:

Сообщение от Duero

туго с программированием. Можете подсказать куда в код дописать какие команды, что бы дополнительно взорвать блоки AutoDesk'ового СПДС, штриховки и Мтекст?
Забыл, еще по хорошему надо выделить все на чертеже и переместить на 0 слой с установкой цвета черного...

А с какой целью это делать то? Зачем взрывать штриховки и мтексты?

Duero · 01.10.2018, 15:46

Увы, есть программа на разработчиков которой я не могу ни как повлиять, а они использую древние компоненты, которые могут отображать только файл DWG 2007, и только в виде разбитых примитивов, если не разбить текст или штриховку, то чертеж может "разбегаться"

posetitel · 07.11.2018, 11:31

Цитата:

Сообщение от VVA

Как-то так. Без проверки

Код:

[Выделить все]

(defun C:ARMAGEDON ()
;;;BGTOOLS и ALLSPACESBURST должны быть загружены
;;; http://forum.dwg.ru/showthread.php?p=1671168#post1671168
(vl-load-com)
(VL-CATCH-ALL-APPLY
  '(lambda( / lay)
     (if(setq lay(mydcl "Выберите слой для удаления" (acad_strlsort(vl-remove "0"(tablelist "LAYER")))))
       (progn
         (if (= (getvar "CLAYER") lay)(setvar "CLAYER" "0"))
         (bg:layer-status-save)
         (vla-put-Freeze (vla-item (vla-get-Layers (vla-get-ActiveDocument(vlax-get-acad-object))) lay) :vlax-true)
         (bg:delete-from-layer)
         (bg:layer-status-restore)
         )
       )
     )
  )  
(bg:progress-clear)
(bg:progress-init "Работаю..." 6)
(bg:progress 1)
(ConvField->Text nil) ;_(C:BGCFT) Без запроса
(bg:progress 2)
(C:BGBLALLDYN2S)
(bg:progress 3)
(bg:blfix (cons 49444 (tablelist "BLOCK"))) ;_устанавливаем у всех блоков разрешить расчленение - Да
(bg:progress 4) 
(C:ALLSPACESBURST)
(bg:progress 5)  
(repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object))))
(bg:progress 6)

(vla-SaveAs
  (vla-get-activedocument (vlax-get-acad-object))
  (strcat
    (getvar "DWGPREFIX")
    (vl-filename-base(getvar "DWGNAME"))
    "_взорв"
    (vl-filename-extension(getvar "DWGNAME"))
    )
    acNative
  )
)
(defun mydcl (zagl info-list / fl ret dcl_id)
      ;;;Use
      ;;;(mydcl "Test" '("1" "2" "3" "4"))
      (vl-load-com)
      (if (null zagl)
        (setq zagl "Выбор")
      ) ;_ end of if
      (setq fl (vl-filename-mktemp "mip" nil ".dcl"))
      (setq ret (open fl "w"))
      (mapcar
        '(lambda (x) (write-line x ret))
        (list "mip_msg : dialog { "
              (strcat "label=\"" zagl "\";")
              " :list_box {"
              "alignment=top ;"
              "width=51 ;"
              "allow_accept = true;"
              "tabs = \"16 32\";"
              "tab_truncate = true;"
              (if (> (length info-list) 26)
                "height= 26 ;"
                (strcat "height= " (itoa (+ 3 (length info-list))) ";")
              ) ;_ end of if
              "is_tab_stop = false ;"
              "key = \"info\";}"
              "ok_cancel;}"
        ) ;_ end of list
      ) ;_ end of mapcar
      (setq ret (close ret))
      (if (and (not (minusp (setq dcl_id (load_dialog fl))))
               (new_dialog "mip_msg" dcl_id)
          ) ;_ end of and
        (progn
          (start_list "info")
          (mapcar 'add_list info-list)
          (end_list)
          (set_tile "info" "0")
          (setq ret (car info-list))
          (action_tile
            "info"
            "(setq ret (nth (atoi $value) info-list))"
          ) ;_ end of action_tile
          (action_tile
            "cancel"
            "(progn(setq ret nil)(done_dialog 0))"
          ) ;_ end of action_tile
          (action_tile "accept" "(done_dialog 1)")
          (start_dialog)
        ) ;_ end of progn
      ) ;_ end of if
      (unload_dialog dcl_id)
      (vl-file-delete fl)
      ret
    ) ;_ end of defun

Пониму тему.
Подскажите, пожалуйста, как после удаления слоев в лисп добавить команды:
1) Сначала внедрить все ссылочные чертежи (вставленные и наложенные) в рабочий чертеж
2) Затем удалить неиспользуемые области подрезанных блоков (команда BGBLXCLIPEXP)
3) продолжить выполнение лиспа, т.е. чистку ненужных слоев и взрывание блоков

allar8 · 01.02.2019, 14:52

Народ за ранее прошу прощения, за то что не прочитал все сообщения по этой теме, мож решение уже тут и есть - сориентируйте тогда пожалуйста
В чертеже есть много разных блоков. Во всех стоит запрет на расчленение. Нужно все разбить, но не очень удобно заходить в каждый блок и ставить расрешение на расчленение поштучно. Можно ли сразу каким нить лиспом, командой или переменной пакетно разом разрешить расчленение разных блоков

alex101000 · 01.02.2019, 15:21

VVA · 01.02.2019, 15:38

LISP. Подготовка подосновы

Цитата:

BGBLFIX - Нормализация блоков (цвет, слой, взрываемость и т.п.)

allar8 · 01.02.2019, 15:58

Цитата:

Сообщение от VVA

BGBLFIX - Нормализация блоков (цвет, слой, взрываемость и т.п.)

Спасибо большое - не знал что новая версия вышла. У меня была 3.3 - там вроде не было этого

posetitel · 24.05.2023, 14:54

Цитата:

Сообщение от VVA

Как-то так. Без проверки

Код:

[Выделить все]

(defun C:ARMAGEDON ()
;;;BGTOOLS и ALLSPACESBURST должны быть загружены
;;; http://forum.dwg.ru/showthread.php?p=1671168#post1671168
(vl-load-com)
(VL-CATCH-ALL-APPLY
  '(lambda( / lay)
     (if(setq lay(mydcl "Выберите слой для удаления" (acad_strlsort(vl-remove "0"(tablelist "LAYER")))))
       (progn
         (if (= (getvar "CLAYER") lay)(setvar "CLAYER" "0"))
         (bg:layer-status-save)
         (vla-put-Freeze (vla-item (vla-get-Layers (vla-get-ActiveDocument(vlax-get-acad-object))) lay) :vlax-true)
         (bg:delete-from-layer)
         (bg:layer-status-restore)
         )
       )
     )
  )  
(bg:progress-clear)
(bg:progress-init "Работаю..." 6)
(bg:progress 1)
(ConvField->Text nil) ;_(C:BGCFT) Без запроса
(bg:progress 2)
(C:BGBLALLDYN2S)
(bg:progress 3)
(bg:blfix (cons 49444 (tablelist "BLOCK"))) ;_устанавливаем у всех блоков разрешить расчленение - Да
(bg:progress 4) 
(C:ALLSPACESBURST)
(bg:progress 5)  
(repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object))))
(bg:progress 6)

(vla-SaveAs
  (vla-get-activedocument (vlax-get-acad-object))
  (strcat
    (getvar "DWGPREFIX")
    (vl-filename-base(getvar "DWGNAME"))
    "_взорв"
    (vl-filename-extension(getvar "DWGNAME"))
    )
    acNative
  )
)
(defun mydcl (zagl info-list / fl ret dcl_id)
      ;;;Use
      ;;;(mydcl "Test" '("1" "2" "3" "4"))
      (vl-load-com)
      (if (null zagl)
        (setq zagl "Выбор")
      ) ;_ end of if
      (setq fl (vl-filename-mktemp "mip" nil ".dcl"))
      (setq ret (open fl "w"))
      (mapcar
        '(lambda (x) (write-line x ret))
        (list "mip_msg : dialog { "
              (strcat "label=\"" zagl "\";")
              " :list_box {"
              "alignment=top ;"
              "width=51 ;"
              "allow_accept = true;"
              "tabs = \"16 32\";"
              "tab_truncate = true;"
              (if (> (length info-list) 26)
                "height= 26 ;"
                (strcat "height= " (itoa (+ 3 (length info-list))) ";")
              ) ;_ end of if
              "is_tab_stop = false ;"
              "key = \"info\";}"
              "ok_cancel;}"
        ) ;_ end of list
      ) ;_ end of mapcar
      (setq ret (close ret))
      (if (and (not (minusp (setq dcl_id (load_dialog fl))))
               (new_dialog "mip_msg" dcl_id)
          ) ;_ end of and
        (progn
          (start_list "info")
          (mapcar 'add_list info-list)
          (end_list)
          (set_tile "info" "0")
          (setq ret (car info-list))
          (action_tile
            "info"
            "(setq ret (nth (atoi $value) info-list))"
          ) ;_ end of action_tile
          (action_tile
            "cancel"
            "(progn(setq ret nil)(done_dialog 0))"
          ) ;_ end of action_tile
          (action_tile "accept" "(done_dialog 1)")
          (start_dialog)
        ) ;_ end of progn
      ) ;_ end of if
      (unload_dialog dcl_id)
      (vl-file-delete fl)
      ret
    ) ;_ end of defun

А можно сюда дописать еще команду, чтобы созданный чертеж (тот чертеж, который получился путем выполнения лиспа, с именем DWGNAME_взорв.dwg) закрылся и открылся исходный, в котором остались невзорванные блоки, неудаленные слои, ну т.е. изначальный чертеж DWGNAME.dwg ?

VVA · 30.05.2023, 13:20

Цитата:

Сообщение от posetitel

А можно сюда дописать еще команду, чтобы созданный чертеж (тот чертеж, который получился путем выполнения лиспа, с именем DWGNAME_взорв.dwg) закрылся и открылся исходный, в котором остались невзорванные блоки, неудаленные слои, ну т.е. изначальный чертеж DWGNAME.dwg ?

Без проверки. Добавленные строки помечены ;_Add 2023_05_30

Код:

[Выделить все]

(defun C:ARMAGEDON ( / o_dwg)
;;;BGTOOLS и ALLSPACESBURST должны быть загружены
;;; http://forum.dwg.ru/showthread.php?p=1671168#post1671168
(vl-load-com)
(VL-CATCH-ALL-APPLY
  '(lambda( / lay)
     (if(setq lay(mydcl "Выберите слой для удаления" (acad_strlsort(vl-remove "0"(tablelist "LAYER")))))
       (progn
         (if (= (getvar "CLAYER") lay)(setvar "CLAYER" "0"))
         (bg:layer-status-save)
         (vla-put-Freeze (vla-item (vla-get-Layers (vla-get-ActiveDocument(vlax-get-acad-object))) lay) :vlax-true)
         (bg:delete-from-layer)
         (bg:layer-status-restore)
         )
       )
     )
  )  
(bg:progress-clear)
(bg:progress-init "Работаю..." 6)
(bg:progress 1)
(ConvField->Text nil) ;_(C:BGCFT) Без запроса
(bg:progress 2)
(C:BGBLALLDYN2S)
(bg:progress 3)
(bg:blfix (cons 49444 (tablelist "BLOCK"))) ;_устанавливаем у всех блоков разрешить расчленение - Да
(bg:progress 4) 
(C:ALLSPACESBURST)
(bg:progress 5)  
(repeat 3 (vla-purgeall (vla-get-activedocument (vlax-get-acad-object))))
(bg:progress 6)
(setq o_dwg (strcat(getvar "DWGPREFIX")(getvar "DWGNAME"))) ;_Add 2023_05_30
(vla-SaveAs
  (vla-get-activedocument (vlax-get-acad-object))
  (strcat
    (getvar "DWGPREFIX")
    (vl-filename-base(getvar "DWGNAME"))
    "_взорв"
    (vl-filename-extension(getvar "DWGNAME"))
    )
    acNative
  )
 (vla-activate(vla-open (vla-get-documents (vlax-get-acad-object))(findfile o_dwg) :vlax-false)) ;_Add 2023_05_30
 )
(defun mydcl (zagl info-list / fl ret dcl_id)
      ;;;Use
      ;;;(mydcl "Test" '("1" "2" "3" "4"))
      (vl-load-com)
      (if (null zagl)
        (setq zagl "Выбор")
      ) ;_ end of if
      (setq fl (vl-filename-mktemp "mip" nil ".dcl"))
      (setq ret (open fl "w"))
      (mapcar
        '(lambda (x) (write-line x ret))
        (list "mip_msg : dialog { "
              (strcat "label=\"" zagl "\";")
              " :list_box {"
              "alignment=top ;"
              "width=51 ;"
              "allow_accept = true;"
              "tabs = \"16 32\";"
              "tab_truncate = true;"
              (if (> (length info-list) 26)
                "height= 26 ;"
                (strcat "height= " (itoa (+ 3 (length info-list))) ";")
              ) ;_ end of if
              "is_tab_stop = false ;"
              "key = \"info\";}"
              "ok_cancel;}"
        ) ;_ end of list
      ) ;_ end of mapcar
      (setq ret (close ret))
      (if (and (not (minusp (setq dcl_id (load_dialog fl))))
               (new_dialog "mip_msg" dcl_id)
          ) ;_ end of and
        (progn
          (start_list "info")
          (mapcar 'add_list info-list)
          (end_list)
          (set_tile "info" "0")
          (setq ret (car info-list))
          (action_tile
            "info"
            "(setq ret (nth (atoi $value) info-list))"
          ) ;_ end of action_tile
          (action_tile
            "cancel"
            "(progn(setq ret nil)(done_dialog 0))"
          ) ;_ end of action_tile
          (action_tile "accept" "(done_dialog 1)")
          (start_dialog)
        ) ;_ end of progn
      ) ;_ end of if
      (unload_dialog dcl_id)
      (vl-file-delete fl)
      ret
    ) ;_ end of defun

posetitel · 30.05.2023, 13:55

Спасибо, лисп работает, но если можно, попрошу небольшую отладку:
после выполнения лиспа остается открытый взарванный чертеж и открывается нормальный рабочий чертеж.
Если самому не закрыть взорванный, то повторно лисп не сработает.
Доработка - это закрыть сохраненный взорванный чертеж.
Идея то была как раз, чтобы когда выполнил всю работу с чертежом, сохранил его, взорвал для передачи, и тут как раз попалась на глаза досадная очепятка, вот чтобы не заходить заново в рабочий, просто еще разок взорвал, т.е. пересохранил прошлый взорванный и радуешься результату).
Понимаю, что это уже будет правка исходной идеи кода, т.к. первоначально как раз и оставался открытым взорванный чертеж (вот как раз на нем если попадаются на глаза опечатки, начинается поиск исходника, повторное открытие и т.д.)

doctorraz · 30.05.2023, 14:24

Цитата:

Сообщение от posetitel

Доработка - это закрыть сохраненный взорванный чертеж

Взорвать
Saveas
Undo

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Поменяли плоттер. Как заменить разом плоттер на всех листах, в параметрах листов, на другой плоттер?	Palomnic	AutoCAD	5	14.12.2012 12:41
Динамические блоки при копировании перестают быть динамическими.	Voland	Динамические блоки	11	04.07.2012 10:51
ЛИСП слои цвета преобразование	Gotch	LISP	97	08.11.2011 10:22
Разбиение черечежа откоса на геологические блоки в VBA	Skyper	Программирование	1	18.03.2010 08:54
Взорвать все блоки файла сразу	Red Nova	AutoCAD	9	26.05.2009 11:16

08.11.2014, 21:48		#1
Как взорвать все блоки на листах разом. zmejsan Регистрация: 27.06.2013 Сообщений: 58 Дорогие знатоки случилась вот такая штука с которой я не смог справиться самостоятельно: В модели работаю с блоками (обычными, динамическими) с таблицами и расчетами в них. А в листах имеются таблицы ссылающиеся на таблицы в модели и денамические блоки. С этим со всем работать умею только я. И в компании требуют это все взрывать перед сдачей. Работа трудоемкая и долгая. Нужно сделать так чтобы при нажатии 1 кнопки запустился процесс поиска и взрыва. Причем не просто взорвать блоки динамические командой автокада а командой экспрестулса. т.е. все отребуты при это перевести в текст. Надеюсь будут хоть какие нибудь идеи для сокращения моего времени. Все заранее спасибо!!!
Просмотров: 30893