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

LISP. Подготовка подосновы · 13.04.2011, 20:25

Набор команд, опубликованных в теме Подоснова
Желательно ознакомиться с указанной темой или как минимум с описанием
Описание команд

Код:

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

BGLAYDEL - Удаление выключенных и замороженных слоев с примитивами
BG1BLEXP - Взрывает блоки, состоящие из одного примитива (возможно другого блока)
BGBLEXP  - Взрывает блок и все блоки, входящие в него, превращая видимые атрибуты в текст
BGBLEXP1 - Взрывает блоки 1-го уровня, превращая видимые атрибуты в текст
BGBLDYNEXP1 - Взрывает динамические блоки 1-го уровня, превращая видимые атрибуты в текст
BGBLEXP1NOATT - Взрывает блоки 1-го уровня, у которых нет видимых атрибутов
BGBLXCLIP - Показывает подрезанные блоки
BGBLDYN2A - Преобразовывает динамические блоки в анонимные
BGBLDYN2S - Преобразовывает динамические блоки в статические
BGBLALLDYN2A - Преобразовывает ВСЕ динамические блоки в анонимные    
BGBLALLDYN2S - Преобразовывает ВСЕ динамические блоки в статические  
BGBLXCLIPEXP - взорвать подрезанный блок
BGCB - копирует одно из вхождений блока в блок с новым именем 
BGRB - переименовывает одно из вхождений блока в блок с новым именем
M2U - Преобразовать MINSERT в Unnamed блок
M2B - Преобразовать MINSERT в блок
U2B - Преобразовать UNNAMED в блок
U2BM - Преобразовать UNNAMED в блок множественный выбор
UX - Взорвать UNNAMED блок
=======================================
BGRGB2ACI - Изменяет цвет с RGB на ACI
BGAll2RGB - Изменяет ACI цвет в его RGB эквивалент
BGCOLOR - Задает выбранный цвет всем объектам
BGCOLORCMD - Задает выбранный цвет всем объектам с запросом в командной строке
BGCOLORXREF - Меняет цвет выбранных внешних сылок (только в текушем сеансе)
BGCOLBL - Установка "послою" цвета примитивов подосновы. Если цвет задан явно- создается новый слой !Новое с версии 3.0
BGResetXRef -Сброс настроек слоев выбранных внешних ссылок на установленные в исходном файле
BGBLCC - Изменяет цвет выбранных блоков
BGENCC - Изменяет цвет выбранного элемента блока
BGCATT - Изменяет цвет атрибутов выбранных блоков
BGCBL2 - Изменяет цвет в блоках 2 и более уровня (вложенных блоках)
BGBLFIX - Нормализация блоков (цвет, слой, взрываемость и т.п.)
BGCFT   - Конвертирует все поля в обычный текст
BGCFTSEL - конвертирование полей в обычный текст в выбранных примитивах
BGHATCHDEL - Удаление штриховки

Текущая версия 3.13a
Отличие версий 3.3 и 3.6 и выше - переписана функция взрыва блоков (команды BGBLEXP...)
В версии 3.3 - вариант из expresstools. Сохраняются поля при взрыве. Медленная обработка при большом количестве блоков
В версии 3.6 функция bg:BURST-ONE заменена функцией Lee Mac LM:burst. На порядок быстрее, если атрибут многострочный и включена маскировка - получаем маскированный мтест.
Поля не сохраняются.

Код:

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

;;;	Версии:
;;;	1.0 - исправлены ошибки burst - при наследовании типа линии поблоку, показ скрытых атрибутов и наследования типа линии блока
;;;	                                если в блок примитив входил не на 0 слое, тип линии поблоку.
;;;	      добавлена обработка Burst LineWeight
;;;	1.1  изменение цвета блока при наличии атрибутов (см ;;; Change VVA 12.09.2008)
;;;	...
;;;	1.4  Обработка стилей мультилиний
;;;	1.11 ChangeAllObjectsColor - Обработка размеров, leader и mtext с явным заданием цвета.
;;;	     BGBLEXP - обработка видимостей динамических блоков (если в видимости включены атрибуты)
;;;	     BG1BLEXP - Обабатываются блоки, состоящие из одного элемента и
;;;	     - имя блока A$C*
;;;	     - или любое другое имя и этот один элемент другой блок
;;;	1.12 - Не удаляет блоки, расположенные на выключенном/ замороженном слое
;;;	       и имеющие хотя бы 1 примитив на включенном слое, отличном от "0"
;;;	2.0  - BGBLEXP - исправлена ошибка со списком
;;;	2.1  - обработка блоков внешних ссылок ChangeXrefAllObjectsColor
;;;	2.2  - команда BGCFT
;;;	2.3  - add BGCOLORXREF and BGRGB2ACI
;;;	2.4  - Обработка многострочных атрибутов
;;;     2.5  - Добавленна gc:FieldCode ChangeAllObjectsColor ChangeXrefAllObjectsColor - обработка Unicode символов
;;;     2.6  - Добавленны команды BGBLDYN2A BGBLDYN2S
;;;     2.7  - Добавлена обработка предварительного выбора
;;;     2.8  - Баги с обработкой атрибутов и visibility
;;;     2.9 - Команда BGBLDYNEXP1 
;;;     2.9.1 - добавлена ф-ция bg:massoc
;;;     2.10  - Конвертация динамических блоков  bg:DynToStatic. Сохранение и восстановление значений атрибутов
;;;     2.11 - Изменения в bg:get-all-atts (обработка UNICOD символов в значениях атрибутов)
;;;              добавлена команда BGHATCHDEL
;;;             ChangeAllObjectsColor - change table text and grid color
;;;    2.12  - Учтен lineweight для атрибутов. Изменен BgBlFIX
;;;    2.13  - Добавлена функция BG:GET-TEXTSTRING (как замена vla-get-textstring. Т.к. неверно возвращает строку при наличии юникод символов)
;;;    2.14  - Добавлена команда BGAll2RGB Изменена ClearFieldInAllObjects
;;;    2.15  - Небольшие изменения в BGAll2RGB. добавлены BGCB и BGRB
;;;;   2.16  - BGCBL2 теперь работает с RGB и ACI цветами
;;;;   2.17  - BGBLCC  теперь работает с RGB и ACI цветами + мелкие изменения
;;;;   2.18  - Учтено предложение http://forum.dwg.ru/showpost.php?p=949149&postcount=102
;;;;           Добавлена команда BGBLXCLIPEXP
;;;;   2.19  - Команда BGBLFIX. Добавлена опция игнорирования блокированных слоев
;;;    2.22  - Добавлены опции Одинаковые масштабы и Разрешить расчленение
;;;    2.23 - Внесены изменения в команду BGBLXCLIPEXP
;;;    2.24  - Отредактирована команда UX (вложенность анонимных блоков)
;;;    2.25  - Fix BGBLCC и BGCBL2 command. Add BGCFTSEL
;;;    2.26  - BGCFT - добавлена обработка формата текста в таблице. Добавлены команды BGBLALLDYN2A и BGBLALLDYN2S
;;;    2.27  - в командах U2B ,UX добавлена обработка блоков с именем *E
;;;    2.28  - BGCFT - исправлена ошибка + изменения в function bg:DynToStatic
;;;    2.29  - Исправлен недочет ClearFieldInThisObject
;;;    2.30    Fixed minor bugs in function ClearFieldInThisObject   http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/vla-get-textstring-u-symbols/td-p/4365165
;;;    2.31    BGCFT добавлена очистка полей в размерах  ( http://forum.dwg.ru/showthread.php?p=1335110#post1335110 )
;;;    2.32    изменения в bg:get-TextString (http://forum.dwg.ru/showpost.php?p=1386990&postcount=235)
;;;    2.33    изменения в bg:get-TextString (http://forum.dwg.ru/showpost.php?p=1386990&postcount=252) 
;;;    2.34    BGBLFIX обработка именованных стилей печати
;;;    2.35    BGBLEXP изменения
;;;    2.36    изменения в команде UX http://forum.dwg.ru/showthread.php?p=1421560#post1421560
;;;    2.37    BGCFT исправлена ошибка при обработке заблокированных ячеек таблицы
;;;    2.38    BGLAYDEL исправлена ошибка с востановлением слоев
;;;    2.40    Изменения в ф-ции bg:FieldCode. Добавлена ф-ция bg:GetObjectIDString mark VVA 2015-12-07
;;;    2.41    Изменения в ф-ции ClearFieldInThisObject. Обработка значений размеров над и под размерной линией. Mark VVA 2016-01-04
;;;    3.0    Добавлена команда BGCOLBL
;;;            Установка послою цвета примитивов подосновы. Если цвет задан явно- создается новый слой
;;;    3.1    BGBLEXP - сохранение полей в атрибутах
;;;   3.2    BGCFT игнор
;;;   3.3    Исправление в команде M2B
;;;   3.4    Исправление fix bg:explode-block (исключение обработки внешних ссылок)
;;;   3.5    BG:BURST-ONE измененая для сохранения постоянных атрибутов
;;;   3.6    добавлено bg:del-constraint в BGBLEXP
;;;   3.7    изменения в команде M2B
;;;   3.8    Изменения в bg:FieldCode (http://forum.dwg.ru/showpost.php?p=1754063&postcount=467)
;;;   3.9    Изменения BGLAYDEL. Слои удаляются командой _-LAYDEL
;;;   3.10   Добавлена команда BGCOLORCMD
;;;;  3.11   Изменения BGLAYDEL
;;;;  3.12   Изменения в функции mip_MTEXT_Unformat (VVA 2021-12-24)
;;;;          https://forum.dwg.ru/showthread.php?p=1975506#post1975506
;;;;   3.12a   Изменения в функции bg:hatch-delete-form-Block (VVA 2022-05-13)
;;;;            https://forum.dwg.ru/showpost.php?p=1991289&postcount=624

Полезные ссылки
C2L - Color to Layer или еще здесь
COLORFL - Color From Layer
PFL - Properties From Layer

engngr · 13.04.2021, 23:58

Цитата:

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

Допустим у меня на топосъемке куча блоков, которые внутри блоков, которые внутри блоков и внутри этого блока находится...

Зачем тебе сон внутри сна внутри сна внутри сна? Покажи-ка.

RNB · 19.04.2021, 13:55

Цитата:

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

Скажите пожалуйста а как с топосъемки убрать все объекты со слоя 0 на другой слой? Допустим у меня на топосъемке куча блоков, которые внутри блоков, которые внутри блоков и внутри этого блока находится полилиния на слое 0 ))) Взрывать блоки не вариант

Местной командой BGBLFIX можно шарахнуть все объекты в блоках на свойства "по блоку". Не поможет ли?

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

Цитата:

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

Скажите пожалуйста а как с топосъемки убрать все объекты со слоя 0 на другой слой? Допустим у меня на топосъемке куча блоков, которые внутри блоков, которые внутри блоков и внутри этого блока находится полилиния на слое 0 ))) Взрывать блоки не вариант

Ну и, собственно, немножко поиска и то, что тебе нужно.
https://forum.dwg.ru/showthread.php?t=21492
Качаешь лисп norm-blocks_v3.lsp
Находишь в нем строчку (fun_property-set sub 'layer "0"), меняешь ноль на нужный тебе слой, кавычки НЕ трогаешь
Загружаешь лисп в чертеж, пользуешь команду (norm-blocks 1)
Радуешься и поишь хороших людей пивом
Единственное НО - все объекты в блоках перейдут на это чудесный слой.

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

Цитата:

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

Скажите пожалуйста а как с топосъемки убрать все объекты со слоя 0 на другой слой? Допустим у меня на топосъемке куча блоков, которые внутри блоков, которые внутри блоков и внутри этого блока находится полилиния на слое 0 ))) Взрывать блоки не вариант

Ну и непроверенное лично, но на вид, то что нужно
https://forum.dwg.ru/showpost.php?p=875063&postcount=6

UPD. Проверено! Работает! Не забываем при запуске команы (ch-lay имя_заменяемого_слоя имя_нужного_слоя) имена слоев указывать в кавычках

solar · 26.11.2021, 07:56

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

Кулик Алексей aka kpblc · 26.11.2021, 09:47

А какое это имеет отношение к теме топика?

solar · 26.11.2021, 09:56

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

trir · 26.11.2021, 10:02

поменяй шрифт в текстовых стилях

engngr · 26.11.2021, 10:44

Цитата:

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

поменяй шрифт в текстовых стилях

+ smt и change text styles

solar · 26.11.2021, 11:41

к сожалению, не всё меняется

Кулик Алексей aka kpblc · 26.11.2021, 12:59

Сначала в поиск, потом - в отдельную тему, если ничего не найдешь (в чем лично я сильно сомневаюсь)

KrugloKot · 09.12.2021, 17:20

Получили файл от исполнителя в формате двг. В данном файле все собрано в один блок и называется он *U...... Разобрался, взорвал. Но внутри данного файла еще порядка двух сотен блоков. Они все такую же проблему в имени имеют.
Практически уверен что это специальная защита "из вредности". Не в первый раз.
Вопрос один - как так можно сделать (сделать все блоки неименованными)?
Вопрос два - как применить команду U2B ко всем неименованным блокам?

P.S. Огромное спасибо авторам лиспа. только при помощи Вас смогли снять защиту с другого файла.

kp+ · 09.12.2021, 23:02

1) например, ES_Convert.
2) как вариант - вместо U2B можно использовать U2BM.

Walkmax · 01.02.2022, 11:20

Получаю такое сообщение на команду BGCFT.

Код:

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

Converting Field in неверный тип аргумента: lentityp #<VLA-OBJECT IAcadAttributeReference 000001ea0f017da8>Ошибка Automation. Неверный слой

Как результат - поля без изменений.

VVA · 01.02.2022, 12:55

Walkmax, нужен dwg файл

Walkmax · 01.02.2022, 13:18

Чертеж1.dwg
В данном файле код:

Код:

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

Converting Field in неверный тип аргумента: lentityp #<VLA-OBJECT IAcadAttributeReference 000001bd847939b8>Ошибка Automation. Неверный слой

отличается только ---bd847939b8---

VVA · 01.02.2022, 13:52

Walkmax, Не смог посторить ошибку. Autocad 2020

----- добавлено через 35 сек. -----
Какая версия BGTOOLS? На сришноте 3.12

Walkmax · 01.02.2022, 15:47

ACADVER = "24.0s (LMS Tech)"
Background tools v.3.12

ACADVER = "24.1s (LMS Tech)"
Background tools v.3.12

Код:

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

Converting Field in неверный тип аргумента: lentityp #<VLA-OBJECT IAcadAttributeReference 000002a1bedb0688>Ошибка Automation. Неверный слой

Похоже не работает на 2021 и 2022, проверил на 2020 - работает.
Требуется обновление.

Поймал источник, если в автозагрузке висит это, то BGCFT и BGCFTSEL не работают.

VVA · 07.02.2022, 23:01

Walkmax, я пока болею, проверить не могу. По кодам отличалась функция bg:FieldCode. Обновил код по ссылке
Без проверки, если будут баги, сообщи

Walkmax · 08.02.2022, 13:16

VVA, спасибо.
Проверил - работает.
Выздоравливай!

zZombie · 05.03.2022, 12:14

Не планируете обрабатывать свойство "прозрачность"?

VVA · 12.03.2022, 12:07

Цитата:

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

Не планируете обрабатывать свойство "прозрачность"?

А что с ним нужно делать?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Научите лиспу на примере (или как kpblc, VVA и компания пытаются обучить чайника лиспу)	Red Nova	LISP	4555	24.03.2024 13:44
{Конкурс} Lisp. Задачки для студентов	gomer	LISP	10	05.01.2011 16:33
LISP на команду 3dcorbit	Малюк	LISP	2	30.09.2009 14:18
Запуск Lisp команды в новом документе	BlackHarp	LISP	1	26.03.2009 23:06
загрузка DOS прог через LISP	Gaa	LISP	15	12.08.2005 19:19

	Реклама i