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

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

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

Ответ
Поиск в этой теме
Непрочитано 13.04.2011, 20:25 23 | #1
LISP. Подготовка подосновы
VVA
 
Инженер LISP
 
Минск
Регистрация: 11.05.2005
Сообщений: 6,788

Набор команд, опубликованных в теме Подоснова
Желательно ознакомиться с указанной темой или как минимум с описанием
Описание команд
Код:
[Выделить все]
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 - Задает выбранный цвет всем объектам
BGCOLORXREF - Меняет цвет выбранных внешних сылок (только в текушем сеансе)
BGCOLBL - Установка "послою" цвета примитивов подосновы. Если цвет задан явно- создается новый слой !Новое с версии 3.0
BGResetXRef -Сброс настроек слоев выбранных внешних ссылок на установленные в исходном файле
BGBLCC - Изменяет цвет выбранных блоков
BGENCC - Изменяет цвет выбранного элемента блока
BGCATT - Изменяет цвет атрибутов выбранных блоков
BGCBL2 - Изменяет цвет в блоках 2 и более уровня (вложенных блоках)
BGBLFIX - Нормализация блоков (цвет, слой, взрываемость и т.п.)
BGCFT   - Конвертирует все поля в обычный текст
BGCFTSEL - конвертирование полей в обычный текст в выбранных примитивах
BGHATCHDEL - Удаление штриховки
Текущая версия 3.9
Отличие версий 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

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

Вложения
Тип файла: zip bgtools 3.3.zip (53.6 Кб, 1517 просмотров)
Тип файла: zip bgtools 3.9.zip (55.5 Кб, 390 просмотров)

__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 30.05.2019 в 17:11. Причина: См #513-#514
Просмотров: 236476
 
Непрочитано 13.04.2011, 20:49
#2
Sleekka

-
 
Регистрация: 24.07.2005
Москва
Сообщений: 1,453


Эх дополнить бы еще эту подборку моим MaskSoft, но я не меценат и некогда сейчас выдерать все это из моих кодов, наполнять библиотечными функциями.
мне просто не понятно почему никому в голову не приходила идея сделать выгрузку/загрузку xref по маске описанной в текстовом объекте чертежа. Тогда можно загружать выгружать нужно количество подоснов одним кликом (реально одним). Это еще быстрее чем фильтры слоев, которые работают по маске названия слоя, только там нужно сначала выбрать фильтр, потом Ctrl+A и замораживать а потом проводить обратную процедуру. Конечно и для слоев у меня было, с них все и началось, и есть еще несколько процедур для того чтобы работа с подосновами стала еще более комфортной.
Sleekka вне форума  
 
Автор темы   Непрочитано 13.04.2011, 21:00
#3
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Sleekka Посмотреть сообщение
и есть еще несколько процедур для того чтобы работа с подосновами стала еще более комфортной
Хотя бы озвучь что они делают
Цитата:
Сообщение от Sleekka Посмотреть сообщение
мне просто не понятно почему никому в голову не приходила идея сделать выгрузку/загрузку xref по маске описанной в текстовом объекте чертежа
Если найдешь время, то опиши поподробнее. Можно в личку. С подосновами работаем плотно, поэтому может пригодиться по работе
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 13.04.2011, 21:07
#4
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 9,828


"Нормализация блоков" мне не нравится принципиально. Не хочу все блоки файла нормализировать, то есть превращать их составляющие в слой 0 и так далее. Хочу нормализировать определенные блоки, по клику, а все сразу только как опцию. Среди блоков может быть целый кусок с другого чертежа, и ему "нормализация" повредит.
Vova вне форума  
 
Непрочитано 14.04.2011, 10:22
#5
Nike

Шаражпроектхалтурмонтаж
 
Регистрация: 29.10.2004
Талды-Париж
Сообщений: 5,869


VVA, спасибо за замечательную подборку программ!

По нормализации блоков согласен с Вовой - надо бы добавить опцию "Выбранные блоки"
Nike вне форума  
 
Непрочитано 27.04.2011, 16:49
#6
Вовочка

пищевая технология
 
Регистрация: 02.06.2009
Киев
Сообщений: 281
<phrase 1=


Подписываюсь под словами Вовы и Найка.
Вовочка вне форума  
 
Непрочитано 04.05.2011, 19:50
#7
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, а как кнопка должна выглядеть чтобы в правильном порядке все выполнялось
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 04.05.2011, 19:55
#8
Вовочка

пищевая технология
 
Регистрация: 02.06.2009
Киев
Сообщений: 281
<phrase 1=


dextron3, авторы описывали порядок следования команд. И как по мне, каждый случай индивидуальный.

Цитата:
Сообщение от dextron3 Посмотреть сообщение
в правильном порядке

Цитата:
Сообщение от VVA Посмотреть сообщение
Желательно ознакомиться с указанной темой или как минимум с описанием
Вовочка вне форума  
 
Непрочитано 05.05.2011, 06:39
#9
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, Не могу найти команду которая разделяет по слоям в зависимости от цвета и толщины линий?
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 05.05.2011, 12:16
#10
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


нет такой команды
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 05.05.2011, 14:54
#11
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, а планируется?
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 05.05.2011, 15:01
#12
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Нет, так как пока не понятны
Цитата:
Сообщение от dextron3 Посмотреть сообщение
зависимости от цвета и толщины линий
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 05.05.2011, 16:43
#13
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


Задание:
Есть файл где добрый архитектор нарисовал все в нулевом или другом слое, но для красоты рисовал окна синим, двери коричневым, стены белые, мебель бордовый, ну и т.п. суть в том что в одном слое

Алгоритм:

1. Лисп проверяет наличие цветов задействованные в чертеже
2. Создает данное количество слоев с назавнием соотвествующим присвоенному цвету: red, orange, black и т.п.
3. Раскидывает все по слоям

если красным цветом нарисваны линии разной толщины то создаются слои: red020, red015 и т.п.

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


очень бы пригодилось, посоветуйтесь у вас в отделе, была бы нужная вещь для тех кто использует архитектурные чертежи, а именно овешники вкашники электрики
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 06.05.2011, 10:10
#14
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


А если цвет красный и вес поблоку?
А если цвет красный и вес послою?
А если цвет красный и вес поумолчанию?
А если цвет RGB?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 06.05.2011, 11:16
#15
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, поясните поподробнее

имелось ввиду red020 слой автоматически красный байлайер
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 06.05.2011, 16:03
#16
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 9,828


Цитата:
Сообщение от dextron3 Посмотреть сообщение
Есть файл где добрый архитектор нарисовал все в нулевом или другом слое, но для красоты рисовал окна синим, двери коричневым, стены белые, мебель бордовый, ну и т.п. суть в том что в одном слое
1. Вряд-ли арх красил "для красоты" Он хотел отделить одно от другого. Просто ему недостает автокадовской грамотности использовать слои. Создать лисп, который-бы вместо него чертил по-классике вряд-ли возможно. Разве что под конкретного арха, пока он не изменил свой стиль черчения. Проще ему подсказать как лучше сделать.
2. А как ты можешь править чужой файл? После этого чья фамилия будет стоять в штампе? А может, он применяет особый стиль печати, учитывающий нюансы с цветом?
В статье про создание подосновы говорится как исправить сделанное архом, но при этом создается новый файл, за который его первоначальный автор уже не несет ответственности.
Vova вне форума  
 
Непрочитано 06.05.2011, 17:10
#17
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


Vova, а в чем он будет новый если его просто выправить для смежных разделов
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 06.05.2011, 21:03
#18
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 9,828


Если файл переделывается по технологии, описанной в статье, то хотя-бы удалением ненужной смежникам информации. Я считаю, если ты прикоснулся к моему файлу, сохранил его (даже ничего не поменяв) то я за него уже не отвечаю. По дате сохранения файла видно, что это не то, что вам передали. Когда мой файл оказывается кем-то сохрaнен после меня, всегда разыскиваю данного товарища и спрашиваю, что он в нем сделал. Как правило, отвечают что случайно нажали на Save. Но я хотя-бы бегло, перепроверяю.
Vova вне форума  
 
Непрочитано 09.05.2011, 15:35
#19
Apex-E

Руководитель
 
Регистрация: 06.07.2010
Россия, Пермь
Сообщений: 12
<phrase 1= Отправить сообщение для Apex-E с помощью Skype™


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

Последний раз редактировалось Apex-E, 09.05.2011 в 15:46.
Apex-E вне форума  
 
Непрочитано 09.05.2011, 16:11
#20
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,605


СПДС GraphiCS оперирует собственными объектами, и обрабатывать их надо командами СПДС GraphiCS.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 09.05.2011, 17:50
#21
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


В геониксе есть команда для преобразования объектов геоникса в объекты Автокада. Думаю в СПДС должно быть что-то подобное
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 10.05.2011, 18:09
#22
Apelsinov

Проектировщик ВК. LISP-любитель.
 
Регистрация: 15.12.2003
Москва
Сообщений: 1,117
<phrase 1=


Тут в одной теме Vova порекомендовал мне внести свои предложения/пожелания по данной теме. Я попробую.

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

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

0. Я ни разу не сталкивался с проблемой нахождения объектов подосновы на листе, хотя chspace из ET никто не отменял.

1. Вручную. Открываем все слои (unlock) и той части чертежа, которая нас интесует, и морозим все выключенные слои.

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

3. Вручную.Удаляем те объекты на чертеже, которые нам не нужны - тут поле для творчества, ибо требования к подложкам разные, разные варианты создания архитектуры и т.д. Как правило, удаляются размеры, кроме осевых, удаляются пояснительные надписи на чертеже.

4. Программно. Из чертежа удаляются пустые тексты, переименовываются слои, содержащие русские буквы, файл пуржится и аудитится.

после загрузки этого http://dwg.ru/dnl/9487
код: (apel-com '(APEL-FILE-DWG_PURGE))

4. Программно.Чертеж обесцвечивается, т.е. всем объектам присваивается цвет byblock - это позволяет впоследствии задать подложке тот цвет, который необходимо, и это очень удобно, например, если надо сравнить две подложки одного этажа, выполненные в разное время. Производится это действо специальной программкой которая обрабатыват все объекты , в т.ч. внутри блоков, атрибуты, мультитексты, составные части размеров и т.д

после загрузки этого http://dwg.ru/dnl/9487
код: (apel-com '(APEL-MOD-SELSET_COLOR 0))

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

Это то как это есть у меня сейчас. не идеал, но меня это вполне устраивает, времени отнимает не много, срабатывает на большей части чертежей.

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

Предложения по программе представленой тут, и проблемы с которыми сталкиваюсь в своей методике я, возможно какие-то вопросы уже решены в программах, прошу извинить:
1. Нужна все-же одна команда а не несколько.
2. Не нужно разбивать блоки, это теоретически невозможно сделать с любыми блоками корректно, а значит станет источником проблем.
3. Есть проблема с прокси-объектами, попадающимися в чертеже, это отдельная тема, часть из них можно разбить, но не всегда.
4. Иногда в файлах попадаются wipeouts - это проблема.
5. Частенько объекты в исходнике располагаются в 3d, и это часто не удобно.
6. Типы линий, используемые архитекторами, часто созданы некорректно, либо неверно задан их масштаб, это часто бывает проблемой.
7. Огромное количество объектов,многократное наслоение, излишняя детализация, это часто очень проблематично исправить.
8. Области очень частой штриховки либо заливка - можно решить программным удалением, но часто необходимы контуры, значит нужно обрабатывать такие области. Это же касается толстых полилиний.
9. Мультилинии - теоретически невозможно обрабатывать, только разбивать.
10. Шрифты, не найденные, слишком тяжелые, или слишком выделяющиеся - не всегда нормальный результат при простой замене, нужно смотреть вручную.
__________________
apel.fas
Apelsinov вне форума  
 
Непрочитано 12.05.2011, 09:41
#23
Вовочка

пищевая технология
 
Регистрация: 02.06.2009
Киев
Сообщений: 281
<phrase 1=


VVA, а предварительный выбор для нормализации блоков будете делать? Спасибо
Вовочка вне форума  
 
Автор темы   Непрочитано 12.05.2011, 09:56
1 | #24
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Буду, и наверное сделаю диалог для выбора опций, но позднее
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 13.05.2011, 03:35
#25
Krovlaf

геология, геодезия
 
Регистрация: 29.05.2009
Хабаровск
Сообщений: 179


А есть к функциям bgtools готовые иконки для кнопок?
Krovlaf вне форума  
 
Автор темы   Непрочитано 13.05.2011, 09:49
#26
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


пока нет
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 13.05.2011, 15:54
#27
Krovlaf

геология, геодезия
 
Регистрация: 29.05.2009
Хабаровск
Сообщений: 179


Можно конкурс объявить на создание лучшего тулбара...
Krovlaf вне форума  
 
Непрочитано 23.05.2011, 21:16
#28
Oliver_88

"ценный кадр"
 
Регистрация: 02.12.2010
Сообщений: 115
<phrase 1=


Скачал ради интереса попробовать. Теперь по мере надобности буду пользоваться. BGBLEXP хорошо работает. А BGCOLOR меняет цвет только части объектов и выдает ошибку:no function definition: LIB:MASSOC.
Oliver_88 вне форума  
 
Автор темы   Непрочитано 24.05.2011, 10:08
#29
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Oliver_88, Спасибо за дефектацию. Исправил #1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 24.05.2011, 19:29
#30
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, а будет удобный тулбар?
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 01.06.2011, 16:47
#31
Eddicordo

КИП и А
 
Регистрация: 28.04.2010
Киев
Сообщений: 99
<phrase 1=


VVA, При взрыве
Команда: BGBLEXP
Взрываю дин блок на котором имеется маскировка, поверх маскировки наложеный атрибут с текстом.
При разбивке маскировка накладывается поверх текста. Должно быть наобород. Текст, под текстом маскировка.
Есть решение. Все что записанно в атрибутах заного прописывается поверх маскировки. Как то так.
А в общем прога по взрыву отличная
Eddicordo вне форума  
 
Автор темы   Непрочитано 01.06.2011, 18:22
#32
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Файлик к студию
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 02.06.2011, 14:35
#33
Eddicordo

КИП и А
 
Регистрация: 28.04.2010
Киев
Сообщений: 99
<phrase 1=


VVA,
Звиняйте что долго не отвечал.
Вот блок
Вложения
Тип файла: dwg
DWG 2004
Чертеж3.dwg (47.7 Кб, 5488 просмотров)
Eddicordo вне форума  
 
Автор темы   Непрочитано 03.06.2011, 09:29
#34
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Eddicordo, Если взорвать блок просто explode, то атрибут также уйдет вниз. Поэтому в bgblexp варианта выхода не вижу. Могу предложить это Send to back все заливки во всех блоках Наверное включу в этот сборник
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 03.06.2011, 15:03
#35
Eddicordo

КИП и А
 
Регистрация: 28.04.2010
Киев
Сообщений: 99
<phrase 1=


VVA,
Вот я и говорю что есть вариант выполнения взрыва уважаемым Frigate учасника форума. Он реализовал взрыв таким образом.
1) Сначала взрывает сам блок.
2) Запоминает всю запись в атрибутах.
3) Программо вставляет на места атрибутов text на передний план.

Цитата:
Сообщение от VVA Посмотреть сообщение
Могу предложить это Send to back все заливки во всех блоках Наверное включу в этот сборник
Хотя может твой вариант будет более корректный.
Ждем обновления сборника
Eddicordo вне форума  
 
Непрочитано 09.06.2011, 15:20
#36
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,683
Отправить сообщение для Do$ с помощью Skype™


Не ожидал, что вот это:
Код:
[Выделить все]
BGBLFIX - Нормализация блоков
будет размеры тоже обрабатывать.
Причем, после обработки они изменили цвет, но если их пошевелить - снова возвращали себе исходный.
Лог:
Код:
[Выделить все]
Command: BGBLFIX
 
Нормализовать в блоке [Типлиний/Веслиний/Цвет/ВСЕ] <ВСЕ> :
 
Содержимое блока изменить на [поСлою/поБлоку] <поБлоку>:
 
Изменить слой примитивов на 0? [Yes/No] <No>:
Regenerating model.
 
Command: _.Redraw
Command:
Изменено 2 блоков
Вложения
Тип файла: dwg
DWG 2004
BG_Dimension.dwg (37.8 Кб, 5474 просмотров)

Последний раз редактировалось Do$, 09.06.2011 в 16:52.
Do$ вне форума  
 
Автор темы   Непрочитано 17.06.2011, 21:12
#37
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Eddicordo Посмотреть сообщение
Вот я и говорю что есть вариант выполнения взрыва уважаемым Frigate учасника форума. Он реализовал взрыв таким образо
Пробуй версию 2.10
Do$, Размеры представляют из себя анонимные *DNNN блоки. Поэтому так ипроисходит. После отпуска планирую переписать BGBLFIX, тогда исключу и размеры
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 22.07.2011, 14:33
#38
ASLYS

Delineante
 
Регистрация: 26.12.2006
Ростов-на-Дону/Madrid
Сообщений: 397
<phrase 1=


VVA, подборка команд просто незаменимая, огромное спасибо!
часто пользуюсь BGRGB2ACI, сейчас понадобилось наоборот поменять в блоках цвет ACI на RGB (нужно заменить цвет red на 255,0,0)
можете добавить в этот сборник?
ASLYS вне форума  
 
Непрочитано 29.07.2011, 02:00
#39
Eddicordo

КИП и А
 
Регистрация: 28.04.2010
Киев
Сообщений: 99
<phrase 1=


VVA,
Здравствуй.
Короче обнаружил глюк взрыва дин блока в котором присутствует атрибут.
Если в атрибуте прописано что то типа "метр в кубе" или "в квадрате", то при взрыве вместо символа "м3" (в кубе) пишется квадратик или вопросительный знак.
И это не есть хорошо. Поскольку программа удобна для взрыва всего что есть на чертеже, а как правило без верхнего индекса не обойтись. Либо просматривай что взрываешь и после взрыва проверяй все ли отлично взорвал, и корректируй вручную все верхние индексы
Eddicordo вне форума  
 
Автор темы   Непрочитано 29.07.2011, 11:12
#40
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Eddicordo Файлик приложи
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 02.08.2011, 18:00
#41
ssn

Инженер проектировщик (раздел ТМ - фриланс)
 
Регистрация: 06.12.2003
Воронеж
Сообщений: 1,213
Отправить сообщение для ssn с помощью Skype™


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

PS^ если цвет задан явно, то впринципе и MERGE не меняет цветсти... значит надо просто задать всем примитивам цвета явно.

Последний раз редактировалось ssn, 02.08.2011 в 18:13.
ssn вне форума  
 
Автор темы   Непрочитано 02.08.2011, 18:13
#42
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


ssn,
1. Нужен Лисп для перевода цвета объекта пост #4
2. MERGE
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 02.08.2011, 18:14
#43
ssn

Инженер проектировщик (раздел ТМ - фриланс)
 
Регистрация: 06.12.2003
Воронеж
Сообщений: 1,213
Отправить сообщение для ssn с помощью Skype™


спасибо.
оперативненько однако....
ssn вне форума  
 
Непрочитано 12.08.2011, 12:38
#44
ssn

Инженер проектировщик (раздел ТМ - фриланс)
 
Регистрация: 06.12.2003
Воронеж
Сообщений: 1,213
Отправить сообщение для ssn с помощью Skype™


а нельзя ли лисп из поста 42 немного откоректировать, что бы была возможность сразу при переопределении параметров цвета, тощины и прочего ещё и переносить объект на определённый слой (который можно было бы выбрать на чертеже допустим)
если выбор примитива есть - все объекты на этот слой, если выбор пустой - просто переназначение свойств...
получится почти команда MERGE...
В идеале это бы конечно срастить эти две команды в одну. просто когда очень много слоёв команда MERGE тоже запарая (выбор каждого слоя отдельно)
ssn вне форума  
 
Непрочитано 19.08.2011, 09:59
#45
Eddicordo

КИП и А
 
Регистрация: 28.04.2010
Киев
Сообщений: 99
<phrase 1=


Всем привет
VVA,
Звиняй что так долго проподал.
Выкладываю файлик с блоком где при взрыве не корректно взрываются символы с верним и нижним индексами
Вложения
Тип файла: dwg
DWG 2004
Ошибка взрыва.dwg (48.8 Кб, 4318 просмотров)
Eddicordo вне форума  
 
Непрочитано 05.10.2011, 18:46
#46
shartal


 
Регистрация: 12.08.2009
Сообщений: 338


При наличии в блоке маскировки, после расчленения любой из указанных команд, меняется произвольным образом порядок прорисовки- часто она вылазит на верх. И если в чертеже несколько блоков перекрывающих друг друга, после расчленения предстоит невероятная работа по раскладке всего по порядку. Самое странное, вставки одного и того же блока расчленяются по разному.
shartal вне форума  
 
Автор темы   Непрочитано 05.10.2011, 18:56
#47
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


shartal, Выложи пример файла
Eddicordo, Верхние и нижние индексы починил. Пока не выкладываю, переделываю FixBlok. Диалог готов, осталось код немного доработать
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 05.10.2011, 21:10
#48
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 9,828


Там некоторая смесь языков. Будет-ли в итоговой программе диалог на англ и как вызывать его на нужном языке?
Vova вне форума  
 
Автор темы   Непрочитано 05.10.2011, 22:16
#49
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Диалог будет на русском, если кодовая страница ANSI_1251, в остальных случаях английский. Смесь - чтобы прикинуть как будет смотреться диалог.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 06.10.2011, 10:23
#50
shartal


 
Регистрация: 12.08.2009
Сообщений: 338


Файл с блоком. Блок несколько урезан, атрибуты решеткой, но в реальности они должны быть, и обычным burst блок нельзя обработать. После burst маскировка сохраняет положение. А вот в рекомендованом на форуме Burst Upgraded с маскировкой та же беда.
Вложения
Тип файла: dwg
DWG 2010
Чертеж2.dwg (262.2 Кб, 4315 просмотров)
shartal вне форума  
 
Непрочитано 06.10.2011, 11:22
#51
angel-fear

инженер-электрик
 
Регистрация: 21.10.2010
Краснодар
Сообщений: 132


Цитата:
Сообщение от VVA Посмотреть сообщение
А MERGE это что, простите? Где эту команду откопать?
angel-fear вне форума  
 
Автор темы   Непрочитано 06.10.2011, 12:19
#52
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от angel-fear Посмотреть сообщение
А MERGE это что, простите? Где эту команду откопать?
Имелось ввиду Layer merge
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 06.10.2011, 13:57
#53
angel-fear

инженер-электрик
 
Регистрация: 21.10.2010
Краснодар
Сообщений: 132


А почему эта команда (laymrg) не предлагается при выборе по TAB? По какому принципу вообще этот выбор работает?
angel-fear вне форума  
 
Автор темы   Непрочитано 06.10.2011, 16:21
#54
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


angel-fear, Ты это о чем?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 03.11.2011, 15:43
#55
Kostinok

Инженер-электрик
 
Регистрация: 13.10.2007
Калининград
Сообщений: 151


VVA, здравствуйте

Команда "BGCOLORXREF", меняет цвет выбранной внешней ссылки, а как вернуть исходное состояние цвета?

Файл прилагаю, ссылка в файле "1136-11-ЭН.dwg" одноцветная, когда как исходный файл "11_02838_500_не_согл.dwg" разноцветный.
Вложения
Тип файла: zip 1136-11-ЭН.zip (465.9 Кб, 114 просмотров)
__________________
Можно сопротивляться вторжению армий, вторжению идей сопротивляться невозможно. /В. Гюго/
Kostinok вне форума  
 
Автор темы   Непрочитано 04.11.2011, 10:37
1 | #56
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


VISRETAIN тебе в помощь
1. Установи VISRETAIN в 0
2. В диспетчере ссылок обнови ссылку
3. Установи VISRETAIN в 1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 24.11.2011, 11:20
#57
Eddicordo

КИП и А
 
Регистрация: 28.04.2010
Киев
Сообщений: 99
<phrase 1=


VVA, Привет.

Цитата:
Сообщение от VVA Посмотреть сообщение
Eddicordo, Верхние и нижние индексы починил. Пока не выкладываю, переделываю FixBlok. Диалог готов, осталось код немного доработать
Не могли бы выложить исправленую версию программы с индексами? А то очень неудобно взрывать все и после отслеживать все индексы.
Благодарю. )
Eddicordo вне форума  
 
Автор темы   Непрочитано 24.11.2011, 12:04
#58
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Eddicordo,
Выложил, тестируй. Изменил команду BgBLFIX, правда толком еще не оттестировал. Так что тестируй так же
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 09.12.2011, 18:50
#59
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Обновлена до версии 2.13. Причина
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 12.12.2011, 17:25
#60
shartal


 
Регистрация: 12.08.2009
Сообщений: 338


Есть маленькая просьба, нельзя ли запрос о конвертации всех полей убрать. Хочу создать пакетный файл на обработку группы dwg, и вспылающий запрос не позволяет автоматизировать это.
shartal вне форума  
 
Автор темы   Непрочитано 12.12.2011, 17:58
#61
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от shartal Посмотреть сообщение
Хочу создать пакетный файл на обработку группы dwg, и вспылающий запрос не позволяет автоматизировать это.
Вызывай так
Код:
[Выделить все]
(ConvField->Text nil)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 13.12.2011, 12:20
#62
shartal


 
Регистрация: 12.08.2009
Сообщений: 338


Прошу прощения, как это в загрузке применить?
Выражение (autoload "bgtools" ' ("(ConvField->Text nil)")) не принимается.
shartal вне форума  
 
Автор темы   Непрочитано 13.12.2011, 12:36
#63
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


А как ты собирался с командами это делать?
Сделай промежуточный lsp файл или в bgtools допиши свою команду
Код:
[Выделить все]
(defun C:BGCFTALL ()(ConvField->Text nil))
и вызывай ее
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 13.12.2011, 13:51
#64
shartal


 
Регистрация: 12.08.2009
Сообщений: 338


Конечно. Спасибо.
shartal вне форума  
 
Автор темы   Непрочитано 01.03.2012, 15:51
#65
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Добавилось пару команд
Цитата:
Сообщение от ASLYS Посмотреть сообщение
VVA, подборка команд просто незаменимая, огромное спасибо!
часто пользуюсь BGRGB2ACI, сейчас понадобилось наоборот поменять в блоках цвет ACI на RGB (нужно заменить цвет red на 255,0,0)
можете добавить в этот сборник?
Добавилась команда BGAll2RGB

Цитата:
Сообщение от Kostinok Посмотреть сообщение
VVA, здравствуйте

Команда "BGCOLORXREF", меняет цвет выбранной внешней ссылки, а как вернуть исходное состояние цвета?
Цитата:
BGResetXRef -Сброс настроек слоев выбранных внешних ссылок на установленные в исходном файле
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 02.03.2012, 13:26
#66
ASLYS

Delineante
 
Регистрация: 26.12.2006
Ростов-на-Дону/Madrid
Сообщений: 397
<phrase 1=


Спасибо!!!

PS: у меня блоки второго уровня, BGRGB2ACI – работает с вложенными блоками, а
BGAll2RGB меняет цвет только снаружи. Еще не удалось взорвать/переименовать вложенный анонимный блок.
Вложения
Тип файла: dwg
DWG R14
PRUEBA.dwg (257.7 Кб, 4659 просмотров)
ASLYS вне форума  
 
Автор темы   Непрочитано 02.03.2012, 18:20
#67
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Обновил до версии 2.15
BGAll2RGB - работает с вложенными блоками
U2B - переименовывает анонимный блок верхнего уровня (можно вызывать в редакторе блоков). Задачи переименовывать вложенные анонимные блоки не стояло. Оно надо?
Добавил команды копирования и переименования (BGCD и BGRB) одного из вхождений блока (включая динамические), как продолжение этой темы
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 05.03.2012, 12:49
#68
ASLYS

Delineante
 
Регистрация: 26.12.2006
Ростов-на-Дону/Madrid
Сообщений: 397
<phrase 1=


Теперь все работает, супер!

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

u2b в редакторе блока выдает:
Comando: u2b
Select block:
New block name: 123
no function definition: TABLELIST

я для анонимных блоков использую другой лисп, но его тоже надо запускать из редактора блоков.
Вложения
Тип файла: lsp ren_ablk.lsp (1.2 Кб, 182 просмотров)
ASLYS вне форума  
 
Автор темы   Непрочитано 05.03.2012, 19:37
#69
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


ASLYS,
Обновил до 2.16
Цитата:
Сообщение от ASLYS Посмотреть сообщение
Т.е. белый цвет тоже меняется на RGB и не печатается
Внес изменения, что белый/черный (цвет 7) меняется в RGB на черный 0,0,0
Цитата:
Сообщение от ASLYS Посмотреть сообщение
В моем случае нужно что-то наподобии BGCBL2, только для RGB.
Обновил BGCBL2. Теперь можно цвета выбирать из ACI, RGB и альбомов цветов
Цитата:
Сообщение от ASLYS Посмотреть сообщение
no function definition: TABLELIST
Добавил
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 05.03.2012, 21:02
#70
ASLYS

Delineante
 
Регистрация: 26.12.2006
Ростов-на-Дону/Madrid
Сообщений: 397
<phrase 1=


То, что надо, отлично работает! Cпасибо!

PS после команды BGALL2RGB цвет 0,0,0 меняет на 76,0,0
ASLYS вне форума  
 
Непрочитано 07.03.2012, 08:25
#71
Jonas

конструктор машиностроитель
 
Регистрация: 14.05.2007
Новосибирск
Сообщений: 893


После команды BGBLDYN2S (преобразовывает блоки в статические) появляются описания блоков $BG$_ ........ _1... которые не удаляются.
Вопрос - так задумано или что то не так?
Jonas вне форума  
 
Автор темы   Непрочитано 07.03.2012, 09:56
#72
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


То, что появляется имя "$BG$_ ***" так и должно быть. Это имя статического блока.
Цитата:
Сообщение от Jonas Посмотреть сообщение
... которые не удаляются.
Блок не удаляется, если на него есть ссылка в модели, в листе, в описании другого блока. Специальных мер по "не удалению" блоков не предпринимается
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 13.03.2012, 14:45
#73
shartal


 
Регистрация: 12.08.2009
Сообщений: 338


Заметил особенность. Команда BGBLDYN2A преобразовывает все блоки во всех пространствах и листа и модели. А команды BGBLDYNEXP1, BGBLEXP1NOATT и BGBLEXP работают с объектами только текущего пространства. Возможно ли их действие расширить на весь файл?
shartal вне форума  
 
Непрочитано 23.03.2012, 10:29
#74
crosandr

Инженер-строитель
 
Регистрация: 09.07.2010
Санкт-Петербург
Сообщений: 1,774


Добрый день, у меня небольшой вопрос по команде BGHATCHDEL. Задача следующая. Есть блок в котором куча ненужной штриховки. Хочется эту штриховку оттуда удалить, чтоб оставить только линии. Команда BGHATCHDEL удаляет штриховку со всего чертежа даже если сказать ей, чтоб на замороженных и заблокированных слоях ничего не трогать (слои и замораживал, и блокировал естественно). Это баг или я что-то не так делаю?
crosandr вне форума  
 
Автор темы   Непрочитано 23.03.2012, 11:16
#75
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


crosandr, Скачай последнюю (2.16) версию. BGHATCHDEL сейчас спрашивает это
Миниатюры
Нажмите на изображение для увеличения
Название: bghd.png
Просмотров: 200
Размер:	12.6 Кб
ID:	77002  
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 23.03.2012, 11:35
#76
crosandr

Инженер-строитель
 
Регистрация: 09.07.2010
Санкт-Петербург
Сообщений: 1,774


Цитата:
Сообщение от VVA Посмотреть сообщение
Скачай последнюю (2.16) версию
работаю с этой версией
Цитата:
Сообщение от VVA Посмотреть сообщение
BGHATCHDEL сейчас спрашивает это
Цитата:
Сообщение от crosandr Посмотреть сообщение
Команда BGHATCHDEL удаляет штриховку со всего чертежа даже если сказать ей, чтоб на замороженных и заблокированных слоях ничего не трогать (слои и замораживал, и блокировал естественно).
так собственно об этом я и писал. Вроде и спрашиват, но удаляет во всем чертеже.
Приложил файл, в котором нужно удалить штриховку из блока test.
Вложения
Тип файла: dwg
DWG 2004
тест.dwg (109.2 Кб, 4643 просмотров)
crosandr вне форума  
 
Автор темы   Непрочитано 23.03.2012, 13:45
#77
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


crosandr,
Проверил. Все работает
Еще раз обращаю внимание, что речь идет о слоях.
У тебя в блоке TEST штриховка а 0 слое. В блоке A$C07DF5D4C на слое ZALIVKA
1. При загрузке bgtools в командной строке пишется
Цитата:
Background tools v.2.16 Наберите в командной строке:
2. Создал слой "Слой1". На нем нарисовал штриховку. Слой заблокировал.
3. Заблокировал слой "ZALIVKA"
3. Вызвал BGHATCHDEL и ответил НЕТ. Штриховка из блока TEST удалилась.
PS В будущем добавлю команду удаления штриховки их конкретного блока
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 23.03.2012, 13:53
#78
crosandr

Инженер-строитель
 
Регистрация: 09.07.2010
Санкт-Петербург
Сообщений: 1,774


Цитата:
Сообщение от VVA Посмотреть сообщение
Еще раз обращаю внимание, что речь идет о слоях.
У тебя в блоке TEST штриховка а 0 слое
все, понял, спасибо))
Переместил штриховку внутри блока на спецслой, остальные слои заблокировал и команда BGHATCHDEL удалила то, что нужно
crosandr вне форума  
 
Непрочитано 03.04.2012, 14:03
#79
Alex_80

ПГС
 
Регистрация: 24.11.2011
Сообщений: 31


На AutoCAD 2013 версия 2.10 команды BGBLDYN2A и BGBLDYN2S преобразовывают нормально. Обновил до версии 2.16. Атрибуты с полями стали ###.
BGBLDYN2A - Преобразовывает динамические блоки в анонимные
BGBLDYN2S - Преобразовывает динамические блоки в статические
Alex_80 вне форума  
 
Непрочитано 03.04.2012, 14:29
#80
Вовочка

пищевая технология
 
Регистрация: 02.06.2009
Киев
Сообщений: 281
<phrase 1=


Можно ли добавить к Бэкграунду программку "Взрыва подрезаного блока". Объясню, имеем подрезанный блок. Я его взрываю, и мне вылазит весь блок, а нужно, только то что подрезано
Вовочка вне форума  
 
Автор темы   Непрочитано 03.04.2012, 15:19
#81
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Alex_80, приложи файл, проверю (правда не на 2013)
Вовочка, Именно поэтому программа игнорирует подрезанные блоки, т.к. все возможные методы (express, vla-exlpode, _explode) игнорируют при взрыве подрезку.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 04.04.2012, 08:58
#82
Alex_80

ПГС
 
Регистрация: 24.11.2011
Сообщений: 31


Сохранил в 2007.
Вложения
Тип файла: dwg
DWG 2007
ТО.dwg (140.3 Кб, 3902 просмотров)
Alex_80 вне форума  
 
Непрочитано 05.04.2012, 09:45
1 | #83
TararykovDG

Программист-энтузиаст
 
Регистрация: 17.07.2009
Воронеж
Сообщений: 571


Цитата:
Сообщение от Вовочка Посмотреть сообщение
Можно ли добавить к Бэкграунду программку "Взрыва подрезаного блока". Объясню, имеем подрезанный блок. Я его взрываю, и мне вылазит весь блок, а нужно, только то что подрезано
Вовочка, попробуй так
Код:
[Выделить все]
 
; Обязательно загузить bgtools 2.16.lsp (так как в команде используются функции из этого пакета)
; Вызов: BGBLXCLIPEXP
(defun c:BGBLXCLIPEXP( / ent)
  (vl-load-com)
  ((lambda(ent actdoc)
     (vla-startundomark actdoc)
     (if (and ent
              (not (vl-catch-all-error-p ent))
              )
       ((lambda(obj)
          (if (bg:block-GetXclip (vlax-ename->vla-object obj)) ; bg:block-GetXclip из bgtools 2.16.lsp
            (bg:block-xclip-exp obj)
            (prompt "\nУказанный блок неподрезанный")
            )
          )
         (car ent)
         )
       )
     (vla-endundomark actdoc)
     )
    (vl-catch-all-apply 'entsel
                        (list "\nУкажите подрезанный блок:")
                        )
    (vla-get-activedocument (vlax-get-acad-object))
    )
  (princ)
  ); end c:BGBLXCLIPEXP

(defun bg:block-xclip-exp(blk / pline_obj)
  (if (vl-cmdf "_.xclip" blk "" "_P")
    ((lambda(pline_obj)
       ((lambda(lst_exp_obj lst_xclip point)
          (if (and lst_exp_obj
                   lst_xclip
                   (not (vl-catch-all-error-p point))
                   )
            ((lambda(is_int_point)
               ((lambda(nbr_xclip pline_trim)
                  (if nbr_xclip
                    (foreach item (mapcar 'vlax-vla-object->ename lst_exp_obj)
                      (if is_int_point
                        (if (ssmemb item nbr_xclip)
                          (entdel item)
                          )
                        (if (not (ssmemb item nbr_xclip))
                          (entdel item)
                          )
                        )
                      )
                    )
                  (apply 'vl-cmdf (append (list "_.trim" pline_obj "" "_F")
                                          ((lambda(ed_pline_trim)
                                             (append (mapcar 'cdr (vl-remove-if-not (function (lambda(x) (= (car x) 10)))
                                                                                    (entget pline_trim)
                                                                                    )
                                                             )
                                                     (list (cdr (assoc 10 ed_pline_trim)))
                                                     )
                                             )
                                            (entget pline_trim)
                                            )
                                          (list "" "")
                                          )
                         )
                  (entdel pline_trim)
                  )
                 (if is_int_point
                   (ssget "_WP" lst_xclip)
                   (ssget "_CP" lst_xclip)
                   )
                 (if (vl-cmdf "_.offset" 0.1 pline_obj point "")
                   (entlast)
                   )
                 )
               )
              ((lambda(point_obj / result)
                 (setq result (ssmemb point_obj (ssget "_CP" lst_xclip)))
                 (entdel point_obj)
                 result
                 )
                (entmakex (list '(0 . "POINT") (cons 10 point)))
                )
              )
            )
          )
         (bg:burst-list blk)
         (mapcar 'cdr (vl-remove-if-not (function (lambda(x) (= (car x) 10))) (entget pline_obj)))
         (progn
           (initget 1)
           (vl-catch-all-apply 'getpoint
                               (list "\nУкажите точку внутри или снаружи контура подрезки: ")
                               )
           )
         )
       (entdel pline_obj)
       )
      (entlast)
      )
    )
  ); end bg:block-xclip-exp
P. S. Из-за использования для расчетов графических построений, командных методов, формирования наборов (по-другому я пока не сообразил как), данный вариант команды в течении одного цикла работы обрабатывает не все блоки на чертеже, а только один, указываемым блок. К тому же необходимо будет указать какую именно часть блока оставить видимой, а какую удалить.

VVA, если сочтете возможным, такой приближенный вариант расчленения подрезанных блоков с сохранением подрезки, добавьте команду в основной пакет bgtools.
__________________
cadtools
TararykovDG вне форума  
 
Непрочитано 05.04.2012, 14:29
#84
Вовочка

пищевая технология
 
Регистрация: 02.06.2009
Киев
Сообщений: 281
<phrase 1=


Супер. Только не понял. Зачем мне указывать точку внутри или снаружи. И так понятно, что человек захочет оставить то что видимо сейчас, а не инверсию. ИМХО
VVA: эта подпрограмма обязана жить в БГтулсе.
еще раз спасибо, что вы есть, товарищи программисты!!!
Вовочка вне форума  
 
Непрочитано 05.04.2012, 14:52
#85
TararykovDG

Программист-энтузиаст
 
Регистрация: 17.07.2009
Воронеж
Сообщений: 571


Цитата:
Сообщение от Вовочка Посмотреть сообщение
Только не понял. Зачем мне указывать точку внутри или снаружи. И так понятно, что человек захочет оставить то что видимо сейчас, а не инверсию.
Вовочка, проблема в том, что это Ты глазками видишь какая часть подрезана, а программно мне не удалось это определить, поэтому и появился дополнительный запрос на точку внутри или снаружи контура
__________________
cadtools
TararykovDG вне форума  
 
Непрочитано 05.04.2012, 18:44
#86
shartal


 
Регистрация: 12.08.2009
Сообщений: 338


BGBLXCLIPEXP работает у меня странно. Оставшиеся после нее объекты совершенно не соответствуют контуру подрезки. Что динамические блоки , что обычные. На картинке снизу блок- блок с подрезкой- после команды.
Миниатюры
Нажмите на изображение для увеличения
Название: блок.jpg
Просмотров: 128
Размер:	12.5 Кб
ID:	77901  
shartal вне форума  
 
Автор темы   Непрочитано 05.04.2012, 19:06
#87
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


TararykovDG, Спасибо, добавлю. Чуть освобожусь с работой. Так как работают командные методы с выбором линией и рамкой, то нужно будет дополнительно проверить, что полученная полилиния контура подрезки целиком видна на экране.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 05.04.2012, 19:43
#88
TararykovDG

Программист-энтузиаст
 
Регистрация: 17.07.2009
Воронеж
Сообщений: 571


Цитата:
Сообщение от shartal Посмотреть сообщение
BGBLXCLIPEXP работает у меня странно. Оставшиеся после нее объекты совершенно не соответствуют контуру подрезки. Что динамические блоки , что обычные. На картинке снизу блок- блок с подрезкой- после команды.

shartal, как правильно заметил VVA, да и я сам оговаривался об этом в посте #83, в команде BGBLXCLIPEXP используются командные методы, объекты формируются набором, все это приводит к крайней неустойчивости возможного результата, но другого варианта пока нет.
P. S. и лучше вместо картинки выложи файл с блоком (желательно в версии ACAD2008 или ниже) где не верно работает команда, мне проще будет разобраться
__________________
cadtools
TararykovDG вне форума  
 
Непрочитано 08.05.2012, 12:13
#89
Вовочка

пищевая технология
 
Регистрация: 02.06.2009
Киев
Сообщений: 281
<phrase 1=


Такой вопрос. Есть ли программа, которая может всю палитру и альбомы цветов перевести к номерам цветов? Почему пишу в этой ветке, приходит ко мне подоснова от архитекторов. Там условно 100 цветов АРХу мало 256 номеров цветов и он выбирает из палитры. Чертеж красивый, что сказать. Только при предпросмотре на печать (и при монохроме и при грейскейле) я имею цветной рисунок. Я от и подумал. Запускаю команду и она все цвета из палитры объектов присваивает СХОЖЫЕ (что-бы чертеж оставался красивым).
Ну и хотел спросить у VVA проверил ли он программу из поста №83 для добавления в комбанй BG?
Вовочка вне форума  
 
Непрочитано 08.05.2012, 12:24
#90
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,663


Кто будет определять схожесть 4 миллиардов цветов с индексированными 256-ю цветами?
Многие принтеры и плоттеры можно настроить на исключительно черную печать или печать в оттенках серого в свойствах самого устройства печати.
Profan вне форума  
 
Автор темы   Непрочитано 08.05.2012, 12:59
#91
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Вовочка Посмотреть сообщение
Есть ли программа, которая может всю палитру и альбомы цветов перевести к номерам цветов?
Есть. Смотри
Цитата:
BGRGB2ACI - Изменяет цвет с RGB на ACI
Цитата:
Ну и хотел спросить у VVA проверил ли он программу из поста №83 для добавления в комбанй BG?
Пока нет. В планах после праздников 9 мая.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 09.07.2012, 14:21
#92
YRat

Support - ACD, ASD, ACA, ACM, RAC, RST
 
Регистрация: 19.10.2004
Stuttgart-Петербург
Сообщений: 238


VVA, в 7 номере журнала autocad-magazin (немецкий журнал) за 2011 год статья на 3 страницы об этой подборке программ, тогда еще версия 2.10
__________________
без DWG мы никуда - и не туда, и не сюда...
Спасибо за то, что Вы есть, коллеги ;)
YRat вне форума  
 
Автор темы   Непрочитано 09.07.2012, 15:26
#93
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


YRat, Ага. Я только свою фамилию смог прочитать :-)
http://forum.dwg.ru/showpost.php?p=804475&postcount=115
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 09.07.2012, 18:05
#94
Вовочка

пищевая технология
 
Регистрация: 02.06.2009
Киев
Сообщений: 281
<phrase 1=


Искренне поздравляю. Заслужено.
Вовочка вне форума  
 
Непрочитано 09.07.2012, 21:09
#95
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 9,828


Если пройтись по ссылкам 93-поста и дойти до руды, выйдем на тему Подоснова http://forum.dwg.ru/showthread.php?t...F1%ED%EE%E2%E0
Может, есть созревшие поговорить на эту тему? Все хвалят лисп от VVA, но создается впечатление что используется он для частных нужд а не для комплексного приготовления подосновы, для чего этот лисп, и создавался. Или вы до сих пор требуете от своих архов выдавать вам в кажестве подосновы вместо официального чертежа некий полупустой план с закрытыми некоторыми слоями? А они почему-то тратят свое драг. время на неоплачиваемые вами хотелки и вынуждены работать по вашей подсказке, а не как им, возможно, удобней
Vova вне форума  
 
Непрочитано 10.07.2012, 14:48
#96
Вовочка

пищевая технология
 
Регистрация: 02.06.2009
Киев
Сообщений: 281
<phrase 1=


Vova, кто же против? Вопросы создаются по мере углубления в программку и если она не справляется, то ее расширяют. У меня возникли некоторые предложения, я их высказывал - пообещали после майских проверить (см. мои посты). И еще есть там подпрограмма CFT. Она убивает все поля, что не всегда хорошо. В некоторых случаях нужен выбор а не все. Спасибо.
Вовочка вне форума  
 
Непрочитано 16.07.2012, 11:15
#97
TararykovDG

Программист-энтузиаст
 
Регистрация: 17.07.2009
Воронеж
Сообщений: 571


Новый вариант команды BGBLXCLIPEXP - взорвать подрезанный блок
Код:
[Выделить все]
 
; Обязательно загрузить bgtools 2.16.lsp (так как в команде используются функции из этого пакета)
; Вызов: BGBLXCLIPEXP
(defun c:BGBLXCLIPEXP( / ent)
  (vl-load-com)
  ((lambda(ent actdoc)
     (vla-startundomark actdoc)
     (if (and ent
              (not (vl-catch-all-error-p ent))
              )
       ((lambda(obj point)
          (if (bg:block-GetXclip (vlax-ename->vla-object obj))
            (bg:block-xclip-exp obj point)
            (prompt "\nУказанный блок не подрезанный")
            )
          )
         (car ent)
         (cadr ent)
         )
       )
     (vla-endundomark actdoc)
     )
    (vl-catch-all-apply 'entsel
                        (list "\nУкажите подрезанный блок: ")
                        )
    (vla-get-activedocument (vlax-get-acad-object))
    )
  (princ)
  ); end c:BGBLXCLIPEXP

(defun bg:block-xclip-exp(blk point / pline_obj)
  (if (vl-cmdf "_.xclip" blk "" "_P")
    ((lambda(pline_obj)
       (vl-cmdf "_.zoom" "_O" pline_obj "")
       ((lambda(lst_exp_obj lst_xclip eps)
          (if (and lst_exp_obj
                   lst_xclip
                   )
            ((lambda(is_int_point)
               ((lambda(nbr_xclip pline_trim)
                  (if (and nbr_xclip pline_trim)
                    (progn
                      (foreach item (mapcar 'vlax-vla-object->ename lst_exp_obj)
                        (if is_int_point
                          (if (not (ssmemb item nbr_xclip))
                            (entdel item)
                            )
                          (if (ssmemb item nbr_xclip)
                            (entdel item)
                            )
                          )
                        )
                      (apply 'vl-cmdf (append (list "_.trim" pline_obj "" "_F")
                                              ((lambda(ed_pline_trim)
                                                 (append (mapcar 'cdr (vl-remove-if-not (function (lambda(x) (= (car x) 10)))
                                                                                        ed_pline_trim
                                                                                        )
                                                                 )
                                                         (list (cdr (assoc 10 ed_pline_trim)))
                                                         )
                                                 )
                                                (entget pline_trim)
                                                )
                                              (list "" "")
                                              )
                             )
                      (entdel pline_trim)
                      )
                    )
                  (vl-cmdf "_.zoom" "_P")
                  )
                 (if is_int_point
                   (ssget "_CP" lst_xclip)
                   (ssget "_WP" lst_xclip)
                   )
                 ((lambda(reverse-point)
                    (if reverse-point
                      (if (vl-cmdf "_.offset" eps pline_obj (get-reverse-point point pline_obj 0.1) "")
                        (entlast)
                        )
                      )
                    )
                   (get-reverse-point point pline_obj 0.1)
                   )
                 )
               )
              ((lambda(point_obj / result)
                 (setq result (ssmemb point_obj (ssget "_CP" lst_xclip)))
                 (entdel point_obj)
                 result
                 )
                (entmakex (list '(0 . "POINT") (cons 10 point)))
                )
              )
            )
          )
         (bg:burst-list blk)
         (mapcar 'cdr (vl-remove-if-not (function (lambda(x) (= (car x) 10))) (entget pline_obj)))
         (min 0.1 (* (getvar 'viewsize) 0.01))
         )
       (entdel pline_obj)
       (vl-cmdf "_.zoom" "_P")
       )
      (entlast)
      )
    )
  ); end bg:block-xclip-exp

(defun get-reverse-point(pt obj e / )
  ((lambda(cl_pt)
     (if cl_pt
       ((lambda(param_cl_pt end_param)
          (if param_cl_pt
            ((lambda(p1 p2)
               (if (not p1) (setq p1 (vlax-curve-getPointAtParam obj e)))
               (if (not p2) (setq p2 (vlax-curve-getPointAtParam obj (- end_param e))))
               ((lambda(c_p)
                  (polar pt (angle pt c_p) (+ (distance pt c_p) e))
                  )
                 (polar p1 (angle p1 p2) (* (distance p1 p2) 0.5))
                 )
               )
              (vlax-curve-getPointAtParam obj (+ param_cl_pt e))
              (vlax-curve-getPointAtParam obj (- param_cl_pt e))
              )
            )
          )
         (vlax-curve-getParamAtPoint obj cl_pt)
         (vlax-curve-getEndParam obj)
         )
       )
     )
    (vlax-curve-getClosestPointTo obj pt)
    )
  ); end get-reverse-point
__________________
cadtools
TararykovDG вне форума  
 
Непрочитано 16.07.2012, 19:44
#98
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,550


Цитата:
Сообщение от TararykovDG Посмотреть сообщение
Обязательно загрузить bgtools 2.16.lsp
Не хочу показаться ханжой, но в обозначенном лиспе более 20 локальных определений функции *error*, по сути выполняющих одно и тоже, так почему бы не использовать хотя б одну из них, вместо громоздкой vl-catch-all-apply

Последний раз редактировалось gomer, 16.07.2012 в 19:49.
gomer вне форума  
 
Непрочитано 17.07.2012, 08:47
#99
TararykovDG

Программист-энтузиаст
 
Регистрация: 17.07.2009
Воронеж
Сообщений: 571


Цитата:
Сообщение от gomer Посмотреть сообщение
Не хочу показаться ханжой, но в обозначенном лиспе более 20 локальных определений функции *error*, по сути выполняющих одно и тоже, так почему бы не использовать хотя б одну из них, вместо громоздкой vl-catch-all-apply
Честно говоря, я не изучал bgtools 2.16.lsp, ну а использовать для отлова ошибок vl-catch-all-apply - изначально так привык

P.S. Я тоже не хочу показаться ханжой. Специально посчитал в bgtools 2.16.lsp количество локальных определений функции *error* - их ровно 15
__________________
cadtools
TararykovDG вне форума  
 
Непрочитано 21.07.2012, 22:10
#100
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,550


Цитата:
Сообщение от TararykovDG Посмотреть сообщение
их ровно 15
ой,и вправду, я вот хотел менюшку выложить для сего лиспа, но руки не доходят...
gomer вне форума  
 
Автор темы   Непрочитано 23.07.2012, 09:57
1 | #101
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


gomer, Рассматривай это как набор программ, собранных вместе. Собирая bgtools я использую программы разных хороших людей, пишущих на лиспе. В основном код включается "как есть". Цели перелопачивать все для придания некой единообразности не ставилось. Если на входе и на выходе меня все устраивает, то, как говорится, "не мешай машине ездить" . BGBLXCLIPEXP в следующий релиз так же будет включена как есть, вместе с ее громоздкой vl-catch-all-apply
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 23.07.2012, 15:20
#102
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 9,828


Хорошо-бы в командах BGBLCC, BGENCC, BGCATT, BGCBL2 после первого изменения цвета для последующх по умолчанию оставался выбранный цвет. Ведь перекраска осуществляется многократно и каждый раз заново подставлять тот-же цвет стремно
Vova вне форума  
 
Автор темы   Непрочитано 30.07.2012, 16:11
#103
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Vova Посмотреть сообщение
Хорошо-бы в командах BGBLCC, BGENCC, BGCATT, BGCBL2 после первого изменения цвета для последующх по умолчанию оставался выбранный цвет.
Цитата:
Сообщение от VVA Посмотреть сообщение
BGBLXCLIPEXP в следующий релиз так же будет включена как есть
Обновил до версии 2.18
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 30.07.2012, 20:31
#104
Вовочка

пищевая технология
 
Регистрация: 02.06.2009
Киев
Сообщений: 281
<phrase 1=


Повторюсь. Можно ли добавить в следующий релиз CFT для выбранного?
Вовочка вне форума  
 
Непрочитано 19.08.2012, 19:41
#105
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


у меня последние команды АНКНОУ
после =========================
не работают
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 20.08.2012, 09:27
#106
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


dextron3, изъясняешься как Эзоп. Перезагрузил код
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 20.08.2012, 18:59
#107
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, заработало, а можно макрос (типа красной кнопки или for blondy) что бы все по порядку запрашивало, а ты только успевай да - нет- отмена, а то при такой работе MS DOS напоминает
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 20.08.2012, 19:56
#108
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


dextron3, Я опять ничего не понял. Что ты хочешь чтобы по порядку запрашивало?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 21.08.2012, 06:13
#109
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA, Тоесть:

1. Лисп запускался одной командой и все функции (а именно команды) которые выделены жирным работали по порядку автоматически одна за другой чтобы не вникать в суть процесса что там происходит но в итоге было все что надо, а именно готовая подоснова
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 21.08.2012, 18:20
#110
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


К имени команды добавь C: и возьми в скобки
Код:
[Выделить все]
(defun C:ONECOMMAND ()
(C:BGLAYDEL)
(C:BG1BLEXP)
и так далее
)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 23.08.2012, 14:00
#111
zerg_od


 
Регистрация: 22.08.2012
Сообщений: 8


Добрый день!
Можно ли добавить изменение цвета выборочно по слоям. По типу команды BGCOLOR - Задает выбранный цвет всем объектам. Бывает что многострочный текст под некоторым слоем имеет цвет другой в отличии от установленного цвета в слое
zerg_od вне форума  
 
Автор темы   Непрочитано 23.08.2012, 23:01
#112
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от zerg_od Посмотреть сообщение
Бывает что многострочный текст под некоторым слоем имеет цвет другой в отличии от установленного цвета в слое
Здесь есть команды для снятия форматирования текста. Тогда он будет вести себя как положено
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 24.08.2012, 16:22
#113
zerg_od


 
Регистрация: 22.08.2012
Сообщений: 8


Цитата:
Сообщение от VVA Посмотреть сообщение
Здесь есть команды для снятия форматирования текста. Тогда он будет вести себя как положено
Спасибо! Помогло
zerg_od вне форума  
 
Непрочитано 24.08.2012, 16:30
#114
zerg_od


 
Регистрация: 22.08.2012
Сообщений: 8


ещё вопрос - при использовании команды BGBLFIX - Нормализация блоков хотелось бы, чтобы в собственных блоках заблокированные определённые слои (заблаговременно) не конвертировались в слой 0 и по типу byblock
zerg_od вне форума  
 
Непрочитано 30.08.2012, 10:23
#115
zerg_od


 
Регистрация: 22.08.2012
Сообщений: 8


Можно сделать так, чтобы в блоке заблокированные слои не менялись на слой "0" и по типу "byblock" при использовании команды BGBLFIX
zerg_od вне форума  
 
Автор темы   Непрочитано 31.08.2012, 15:44
1 | #116
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


zerg_od, Добавил Опцию "Игнорировать заблокированные слои"
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 31.08.2012, 16:53
#117
zerg_od


 
Регистрация: 22.08.2012
Сообщений: 8


Цитата:
Сообщение от VVA Посмотреть сообщение
zerg_od, Добавил Опцию "Игнорировать заблокированные слои"
спасибо
zerg_od вне форума  
 
Непрочитано 02.09.2012, 15:50
#118
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


VVA,
1. добавьте команду чтобы все линии одной толщины делала по типу выбора цвета
2. мультилинии переводились в линии
3. мультитексты переводились в тексты и при этом не съезжали (был такой лисп)
4. Размеры в слой размеры, линии в слой линии, тексты в слой тексты, штриховка в слой штриховка
5. Также добавьте команду поиск нулевых текстов (есть такой лисп)
6. добавьте команду FLAT (обнуление Z) выделялось автоматически, ну и двойного вида
7. ну и в конце ПУРДЖЕ
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 02.09.2012, 19:49
1 | #119
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,605


Offtop: $5000 за каждую хотелку - и вуаля!
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 02.09.2012, 20:39
#120
dextron3

Фотограф
 
Регистрация: 01.01.2007
Алматы
Сообщений: 5,042


Offtop: не для себя для народа
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 02.09.2012, 21:56
#121
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,605


dextron3, ни в жизнь не поверю. Часть функционала уже реализована в AutoCAD 2013, часть - другими лиспами. Остальное надо далеко не всем и далеко не всегда.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 03.09.2012, 10:13
#122
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,550


Offtop:
Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
$5000 за каждую хотелку
не многовато ли?

Цитата:
Сообщение от dextron3 Посмотреть сообщение
добавьте
а макросы использовать слабо? ведь по сути bgtools - программа для работы с блоками
gomer вне форума  
 
Непрочитано 22.09.2012, 16:03
#123
zerg_od


 
Регистрация: 22.08.2012
Сообщений: 8


в версии 2.19 при использовании команды BGBLFIX не конвертирует текст в блоке с атрибутами. Проверил на версии 2.18 всё работает.
zerg_od вне форума  
 
Непрочитано 22.09.2012, 21:49
#124
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 9,828


Цитата:
Сообщение от gomer Посмотреть сообщение
ведь по сути bgtools - программа для работы с блоками
Если говорить о сути то что означают по твоему буквы BG?
Vova вне форума  
 
Непрочитано 22.09.2012, 22:02
#125
Nike

Шаражпроектхалтурмонтаж
 
Регистрация: 29.10.2004
Талды-Париж
Сообщений: 5,869


Цитата:
Сообщение от Vova Посмотреть сообщение
BG
Бодготовка годосновы.
Nike вне форума  
 
Непрочитано 22.09.2012, 22:32
#126
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,605


BackGround - знакомое буквосочетание?
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 23.09.2012, 07:15
#127
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 9,828


Да, этот лисп сделан для приготовления подосновы (background) из архитектурного чертежа и руками смежника. Предполагается что архи делают как умеют, никто на них не давит и не заставляет делать чтобы удобнее было не автору чертежа, а смежнику: закрыл "ненужные" слои, перекрасил и все. Поскольку встречается засилие блоков, да еще вложенных, с атрибутами, сделанных не в нуле и не послою-поблоку и с другими прибабахами в программе большое внимание уделено блокам. Насколько я знаю у вас по-другому. Даже заставляете архов передавать вам готовые подосновы. У нас это нонсенс. Мы получаем от архов их произведение и никому не приходит в голову заставлять их менять манеру черчения. А попробовали-бы-нас бысто поставили бы на место. Потому что архитекторы-главные. Это они дают нам, смежникам работу а не мы им.
Vova вне форума  
 
Автор темы   Непрочитано 23.09.2012, 15:48
#128
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


zerg_od, выложи пример
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 24.09.2012, 19:31
#129
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от zerg_od Посмотреть сообщение
в версии 2.19 при использовании команды BGBLFIX не конвертирует текст в блоке с атрибутами. Проверил на версии 2.18 всё работает.
Был глюк. Обновил до 2.20 Тестируй
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 24.09.2012, 20:39
#130
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 9,828


В моем 102 содержалась просьба оставлять цвет по умолчанию в соответствии с последним выбранным. Это сделано, стало удобней. А еще удобней стало бы если вместо ОК, подтверждающего цвет можно было нажать клавишу ПРОБЕЛ. У нас так сделано по другим лиспам, где подтверждение последнего выбора осуществляется таким образом. Особенно это актуально при работе с двумя экранами поскольку диалоговое окно норовит ускакать на другой экран
Vova вне форума  
 
Непрочитано 25.09.2012, 19:11
#131
zerg_od


 
Регистрация: 22.08.2012
Сообщений: 8


Цитата:
Сообщение от VVA Посмотреть сообщение
Был глюк. Обновил до 2.20 Тестируй
всё работает, СПАСИБО!
zerg_od вне форума  
 
Непрочитано 25.09.2012, 23:11
#132
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 9,828


1. Уточнаю свой 130. Клавиша ПРОБЕЛ должна не заменять, а дублировать ОК.
2. BGBLFIX. Обращаем внимание на тип линии, который можно сделать Byblock. Это означает что блок можно по желанию сделать, например, пунктирным. Но если блок небольшой по размерам (а таковыми являются многие символы) то пунктира не получится. Надо в редакторе блоков свойствами поменять его элементам масштаб типа линии, сделав его меньше единицы. А насколько-путем экспериментов. Предлагаю в диалоговое окно добавить выбор масштаба типов линии, например 0.8, 0.6, 0.4, 0.2, 0.1. Если этого недостаточно остальное придется подбирать вручную
Vova вне форума  
 
Непрочитано 28.09.2012, 22:13
#133
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 9,828


Ну и опять по команде BGBLFIX. Будет-ли полезно добавить в диал. окно еще два баксика с птичками по-умолчанию? Scale uniformly и Allow exploding. Все-таки большинство блоков это должны позволять. А кому не надо-просто уберут птички
Vova вне форума  
 
Автор темы   Непрочитано 28.09.2012, 22:35
#134
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Vova, Спасибо. #132 и #133 возьму на заметку. Пока собираюсь в Москву на Autodesk University. По приезду постараюсь сделать. По поводу п.1 из #130 к сожалению ничего не получится, т.к. цвет в диалоге запрашивается функцией лиспа
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 04.10.2012, 18:28
#135
Anelya


 
Регистрация: 01.12.2009
Сообщений: 22
<phrase 1=


мерсишки за такие полезные команды ) в частности за "Удаление выключенных и замороженных слоев с примитивами"
) утащила,с благодарностями,себе )
Anelya вне форума  
 
Непрочитано 16.10.2012, 17:25
#136
АлексЮстасу

топограф, технолог
 
Регистрация: 24.05.2009
Москва
Сообщений: 2,706


При применении "U2BM - преобразовать UNNAMED в блок множественный выбор", эти блоки меняют свое положение.
Как-то исправимо, чтобы оставались на месте?
Файл с подобными блоками прикладываю.
Вложения
Тип файла: dwg
DWG 2004
блоки_фонари.dwg (168.9 Кб, 5083 просмотров)
АлексЮстасу вне форума  
 
Автор темы   Непрочитано 16.10.2012, 19:21
1 | #137
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Vova Посмотреть сообщение
Ну и опять по команде BGBLFIX. Будет-ли полезно добавить в диал. окно еще два баксика с птичками по-умолчанию? Scale uniformly и Allow exploding. Все-таки большинство блоков это должны позволять. А кому не надо-просто уберут птички
Обновил до версии 2.22
По поводу Scale uniformly: Если блок встречается в описании другого блока и опция включена, то для него устанавливается масштаб по X,Y,Z = 1 Может опцию назвать Scale Uniformly=1?
>АлексЮстасу
В твоих блоках 210 поле (Normal) отличное от 0,0,1
Цитата:
Выберите объект: ((-1 . <Имя объекта: 7ef05060>) (0 . "INSERT") (330 . <Имя
объекта: 7ef01cf8>) (5 . "4E4") (100 . "AcDbEntity") (67 . 0) (410 . "Model")
(8 . "Drugie") (100 . "AcDbBlockReference") (2 . "*U15") (10 -332.358 705.158
-213.732) (41 . 1.00004) (42 . 1.00004) (43 . 1.00004) (50 . 3.02495) (70 . 0)
(71 . 0) (44 . 0.0) (45 . 0.0) (210 -0.497366 -0.131769 0.857476))
Пробуй
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 16.10.2012, 19:49
#138
АлексЮстасу

топограф, технолог
 
Регистрация: 24.05.2009
Москва
Сообщений: 2,706


Цитата:
Сообщение от VVA Посмотреть сообщение
Обновил до версии 2.22
По поводу Scale uniformly: Если блок встречается в описании другого блока и опция включена, то для него устанавливается масштаб по X,Y,Z = 1 Может опцию назвать Scale Uniformly=1?
>АлексЮстасу
В твоих блоках 210 поле (Normal) отличное от 0,0,1
Пробуй

Теперь остаются на местах! Это совсем не "мои" блоки - помощники изо всех сил стараются...
От них еще приходят одинаковые именованные блоки, но с припиской в названии "_1", "_2"...

Вопрос о подобных блоках: можно ли находить все блоки с разными именами, но с одинаковым внутренним описанием, и давать одно имя? Чтобы выделять все по одному имени, что-то делать с такими пачкой. Иначе разбираться с каждым отдельно тяжко. Например, нужно содержимое всех подобных блоков заменить на 3Д тела.

Последний раз редактировалось АлексЮстасу, 16.10.2012 в 20:13.
АлексЮстасу вне форума  
 
Автор темы   Непрочитано 17.10.2012, 10:14
#139
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от АлексЮстасу Посмотреть сообщение
т них еще приходят одинаковые именованные блоки, но с припиской в названии "_1", "_2"..
Можно поискать блоки по маске и последовательно применить _blockreplace из ET
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 09.11.2012, 16:05
#140
Vombat

HVAC (ОВК)
 
Регистрация: 08.10.2005
Ukraine, L'viv
Сообщений: 821


Здравствуйте
Цитата:
Сообщение от VVA Посмотреть сообщение
Обновил до версии 2.22
не получилось применить опцию Разрешить расчленение как в динамическом так и в статическом блоке
Может я что то не так делаю?
Файл прилагается
Спасибо
Миниатюры
Нажмите на изображение для увеличения
Название: bgtools_BGBLFIX.jpg
Просмотров: 103
Размер:	115.3 Кб
ID:	90119  
Вложения
Тип файла: dwg
DWG 2004
bgtools 2.2b_test.dwg (59.1 Кб, 4721 просмотров)
Vombat вне форума  
 
Непрочитано 13.11.2012, 11:19
#141
zvyagaaa


 
Регистрация: 11.08.2011
Сообщений: 40


Добрый день. Можете ли добавить функцию типа BGCOLOR - только что-то вроде BGLNEWEITH - чтобы менялись толщины на подоснове на заданные. Например, я делаю в подоснове толщины линий, равные 0. А в совокупности с BGCOLOR=8 вообще получается отлично!
zvyagaaa вне форума  
 
Автор темы   Непрочитано 14.11.2012, 15:49
#142
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


zvyagaaa, Уже есть штатная команда _setbylayer. Выставь в настройках вес "послою", а слоям задай нужный тебе
>Vombat
Цитата:
не получилось применить опцию Разрешить расчленение как в динамическом так и в статическом блоке
спасибо за дефектацию. Проверю чуть позже. Пока занят
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 20.11.2012, 11:06
#143
bibleo


 
Регистрация: 20.07.2012
Сообщений: 15


здраствуйте. В описании написано:
Код:
[Выделить все]
BGBLCC - Изменяет цвет выбранных блоков
однако, то что я выбираю до вызова команды никак не участвует. для того, чтобы изменить цвет в нескольких блоках мне нужно для каждого блока заново запускать команду. это так и должно быть?
С командной строки никак нельзя управлять параметрами команды?
Поясню. Мне нужно на кнопку поставить команду, чтобы она меняла цвет всего текста в блоке, что имеет цвет "по слою" на "по блоку" и вторую кнопку, которая делает обратно. Если в рамках данного набора команд не реализовать, то подскажите, пожалуйста, как это можно сделать.
bibleo вне форума  
 
Непрочитано 28.11.2012, 19:10
#144
Вовочка

пищевая технология
 
Регистрация: 02.06.2009
Киев
Сообщений: 281
<phrase 1=


Можно ли в команду "BGBLDYN2S" добавить функцию именования вновь созданного блока по имени свойства видимости динамического?
Вовочка вне форума  
 
Непрочитано 05.12.2012, 16:49
#145
roaa

ОПС
 
Регистрация: 29.03.2012
Kazakhstan
Сообщений: 127


Здравствуйте! Возможно ли добавление к команде BGCOLOR для изменения цвета только выбранных объектов, не только блоков?
roaa вне форума  
 
Непрочитано 10.12.2012, 16:38
#146
Eddicordo

КИП и А
 
Регистрация: 28.04.2010
Киев
Сообщений: 99
<phrase 1=


VVA, Здравствуй.
Обнаружил корявость команды
BGCFT - Конвертирует все поля в обычный текст
Если на чертеже присутствует таблица, то при конвертации всех полей в обычный текст в таблицах меняется шрифт (особенно если таблица выполнена в стиле СТАНДАРТ). Есть предложение конвертировать не все поля на чертеже, а методом выделения.
Аналогично команде
BGBLEXP - Взрывает блок и все блоки, входящие в него, превращая видимые атрибуты в текст
Eddicordo вне форума  
 
Непрочитано 18.12.2012, 06:35
#147
Astartes

Котло- и реакторостроение
 
Регистрация: 25.02.2010
Барнаул
Сообщений: 794


Eddicordo, Из этого набора данной командой не пользовался. Есть отдельно написанная прога, вроде автор тоже VVA. Там все нормально конвертит, и есть возможность выбора: либо конвертить все (CFT) либо по выбору (CFTSEL).
Вложения
Тип файла: lsp Field2text.lsp (5.7 Кб, 92 просмотров)
Astartes вне форума  
 
Непрочитано 04.01.2013, 18:26
#148
Eddicordo

КИП и А
 
Регистрация: 28.04.2010
Киев
Сообщений: 99
<phrase 1=


Astartes, Возможно Вы и правы, что данное вложение работает корректно. Идея не в этом. Идея первоначальная см. первый пост "LISP. Подготовка подосновы".
Тоесть все изменения Господин VVA вносит в один лисп.
Но спасибо за смышленость )
Eddicordo вне форума  
 
Непрочитано 01.02.2013, 15:30 BGBLXCLIPEXP
#149
makeme


 
Регистрация: 01.02.2013
Сообщений: 1


VVA, доброго времени суток!

Выражаю искреннюю благодарность за бескорыстную работу, подборка очень помогает!

Очень хотелось бы развития команды BGBLXCLIPEXP.

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

Попробуйте взорвать командой BGBLXCLIPEXP блок
в приложенном файле и посмотрите что станет с полилинией пересекающей блок.

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

Можно ли это как-то исправить?
Вложения
Тип файла: dwg
DWG 2010
BGBLXCLIPEXP_Test01.dwg (263.1 Кб, 5162 просмотров)
makeme вне форума  
 
Непрочитано 08.04.2013, 16:20
#150
Диммм

Инженер
 
Регистрация: 13.03.2013
Сообщений: 28


Помогите,не работают команды BGRB и BGCB, пишет не верный тип аргумента
Диммм вне форума  
 
Непрочитано 08.04.2013, 16:54
#151
Nike

Шаражпроектхалтурмонтаж
 
Регистрация: 29.10.2004
Талды-Париж
Сообщений: 5,869


Цитата:
Сообщение от Диммм Посмотреть сообщение
не работают команды BGRB и BGCB, пишет не верный тип аргумента
А у меня:
Цитата:
Команда: BGCB
** Error: слишком много аргументов **
Команда:
Команда: BGRB
** Error: слишком много аргументов **
Nike вне форума  
 
Автор темы   Непрочитано 08.04.2013, 23:22
#152
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Проверю, но уже завтра
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 10.04.2013, 19:01
#153
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Диммм Посмотреть сообщение
Помогите,не работают команды BGRB и BGCB, пишет не верный тип аргумента
Цитата:
Сообщение от makeme Посмотреть сообщение
Короче, на данный момент команда на практике полезна только если отодвигать подрезанные блоки "в сторонку" там взрывать и возвращать результат обратно.
Иначе, блоки режут всё что попадает на их контур и получается неправда.

Можно ли это как-то исправить?
Тестируйте. Выложил версию 2.23
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 11.04.2013, 17:00 Help>
#154
glyuck1


 
Регистрация: 11.03.2013
Сообщений: 2


Странный день.... Проблема с блоком (или блоками). Ради интереса скачивал файлы с форума (пробовал "взрывать" чужие) и все получалось. Значит дело все таки в кривом подходе с моей стороны.... Подскажите пожалуйста, направления... Попробуйте взорвать. Исходник мне этот не обязателен. Просто у меня куча проектов в таком формате.
Вложения
Тип файла: dwg
DWG 2010
Nuzna_pomosh.dwg (202.4 Кб, 4715 просмотров)
glyuck1 вне форума  
 
Непрочитано 12.04.2013, 10:23 безымянный блок
#155
-MonaX-


 
Регистрация: 12.04.2013
Сообщений: 1


Уважаемые, доброго времени суток!
Помогите плиз с очередным файлом, у меня команды не работают.
Lisp подгружается нормально, а потом выдает такую ошибку:

"no function definition: VLAX-GET-ACAD-OBJECT; error: An error has occurred
inside the *error* functionno function definition: VLA-ENDUNDOMARK"

не очень понимаю, что он от меня хочет.

если не сложно, разбейте пожалуйста файлик.

Заранее благодарен.
Вложения
Тип файла: dwg
DWG 2007
Help.dwg (733.3 Кб, 4665 просмотров)
-MonaX- вне форума  
 
Непрочитано 26.04.2013, 12:04
#156
AntonFox

КИП, проектировщик
 
Регистрация: 02.04.2012
Самара
Сообщений: 47


Доброго времени суток, уважаемый ALL!
Лисп не знаю, сам иногда пишу на ВБА мелкие проги. Уж не знаю поможет или нет мое сообщение, может кого на мысль наведет интересную или еще что.
Работаю и с генпланом и с монтажными чертежами (я КИПовец). Народ у нас по большей части "дикий" и про слои не знает, посему не редкость примитив красного цвета на слое "БЕЛОЕ" и т.п. Генплан вообще имеет порой десятки слоев и цвет примитивов может быть задан и по слою, и по блоку, и напрямую указан.
Как правило мне надо всю подложку засунуть в один слой, покрасить в цвет 252 (254) и дальше уже чертить свое. Стиль печати у нас цветозависимый (зеленый - толстый, красный - средний, белый/черный и синий - тонкие, 252 и 254 - бледная подложка)
Я написал программку на ВБА:
- для всех примитивов, если цвет красный, белый, зеленый, синий, серый - на соответствующие слои.
- цвет "по блоку" для примитивов вне блоков считать как белый
- в каждом блоке провести подобную перестановку не разбивая блок, цвет выставить "по блоку" или "по слою" (по умолчанию - "по блоку" стоит)
- все что не попало под эти правила - желтым и на отдельный слой.

В итоге чаще всего получаю серую подложку с несколькими желтыми не проработанными примитивами - можно работать )))
Иногда до запуска программы выделяю все и делаю вручную серым, удаляю размеры и лишние линии (выноски и т.п.)
AntonFox вне форума  
 
Автор темы   Непрочитано 26.04.2013, 22:56
#157
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


glyuck1, Посмотри внимательно на имена блоков. Перед первым вызовом он имее имя *U47, после второго *U46, после 3 *U45. То есть похоже твой блок 47 раз сделали анонимным. Надеюсь направление куда копать понял?

*Добавлено* Я помнил, что "где-то я эту булочку видел". Нашел. Почитай посты #137 и #138 и еще здесь. Там есть пример вызова UX 50 раз подряд

-MonaX-,

Хочет он этого
Я еще раз проверил код версии 2.23 (vl-load-com) там есть. Не поленись, пожалуйста, скачать последнюю версию.
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 10.06.2013 в 22:55.
VVA вне форума  
 
Непрочитано 27.04.2013, 14:53
#158
crosandr

Инженер-строитель
 
Регистрация: 09.07.2010
Санкт-Петербург
Сообщений: 1,774


Небольшой вопрос. Хочется, чтобы в диалоговом окне команды BGBLFIX поо умолчанию была снята галочка "Неименованные" и так же по умолчанию были включены галочки "Игнорировать заблокированные слои", "Установить одинаковые масштабы" и "Разрешить расчленение". Какие строчки кода нужно подправить?
crosandr вне форума  
 
Автор темы   Непрочитано 29.04.2013, 16:10
1 | #159
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


crosandr,
найди в коде строчку
Код:
[Выделить все]
(setq what nil opt 3657)
замени число 3657 на 30281
Код:
[Выделить все]
(setq what nil opt 30281)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 30.04.2013, 20:35
#160
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Обновил до версии 2.24 Учел в UX "хитрости" типа многократно вложенного анонимного блока. Пример смотреть в #154 и по ссылкам в #157. В #154 есть еще одна хитрость. В него добавлена маскировка по габаритам всего блока. Долго искал ошибку в UX, пока не додумался включить контуры wipeout'a. Добавил в UX изменение порядка прорисовка для wipeout'ов "на задний план" после расчленения блока
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 02.05.2013, 17:25
#161
crosandr

Инженер-строитель
 
Регистрация: 09.07.2010
Санкт-Петербург
Сообщений: 1,774


В приложенном файле при попытке изменить цвет примитивов, входящих в блок, команда BGBLCC выдает ошибку.
Команда BGCBL2 вообще ничего не делает. Пытался присвоить цвет 8. Использую автокад 2013 (файл в формате 2010), СПДС 8.
Что не так?
Вложения
Тип файла: dwg
DWG 2010
на форум.dwg (405.2 Кб, 5126 просмотров)
crosandr вне форума  
 
Автор темы   Непрочитано 02.05.2013, 21:26
#162
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Проблема в этом
Цитата:
((-1 . <Имя объекта: 7ffffb26c30>) (0 . "ACAD_PROXY_ENTITY") (5 . "9EB3") (102 . "{ACAD_REACTORS") (330 . <Имя объекта: 7ffffb26c80>
Примени EXPLODEALLPROXY и REMOVEALLPROXY
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 03.05.2013, 20:30
#163
crosandr

Инженер-строитель
 
Регистрация: 09.07.2010
Санкт-Петербург
Сообщений: 1,774


А можно сделать, чтобы программа игнорировала все прокси объекты, а не вываливалась с ошибкой? Дело в том, что внутри блока много спдс-объектов и плющить их не хотелось бы. Понятно, что прокси-объекты не получат устанавливаемый цвет, но такой результат вполне бы устроил в некоторых случаях. Ну и выдавать сообщение, что не все объекты были обработаны, для получения полного результата используй EXPLODEALLPROXY и REMOVEALLPROXY.
crosandr вне форума  
 
Автор темы   Непрочитано 04.05.2013, 10:39
#164
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


crosandr, можно, но чуть позже
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 18.06.2013, 22:57
1 | #165
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Astartes Посмотреть сообщение
Eddicordo, Из этого набора данной командой не пользовался. Есть отдельно написанная прога, вроде автор тоже VVA. Там все нормально конвертит, и есть возможность выбора: либо конвертить все (CFT) либо по выбору (CFTSEL).
Цитата:
Сообщение от Eddicordo Посмотреть сообщение
Astartes, Возможно Вы и правы, что данное вложение работает корректно. Идея не в этом. Идея первоначальная см. первый пост "LISP. Подготовка подосновы".
То есть все изменения Господин VVA вносит в один лисп.
Цитата:
Сообщение от crosandr Посмотреть сообщение
А можно сделать, чтобы программа игнорировала все прокси объекты, а не вываливалась с ошибкой?
Обновил до версии 2.25 Добавил обработку прокси и BGCFTSEL
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 26.06.2013, 21:32
#166
adu

инженер систем безопасности
 
Регистрация: 07.10.2011
Сообщений: 36
<phrase 1=


Уважаемый VVA, недавно набрел на Вашу программу, оказалось именно то, что я давно искал. Вот только есть одна загвоздка. Возможно ли сделать так, чтобы при расчленении динамических блоков программа игнорировала включенный в блоке "запрет на расчленение" и всё равно его взрывала?
adu вне форума  
 
Автор темы   Непрочитано 27.06.2013, 00:34
#167
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от adu Посмотреть сообщение
Возможно ли сделать так, чтобы при расчленении динамических блоков программа игнорировала включенный в блоке "запрет на расчленение" и всё равно его взрывала?
Запрет для того и создавался, чтобы показывать, в том числе и программе, что можно взрывать, а что нет. Если есть такие блоки и их нужно взорвать, есть масса программ для снятия этой "галочки"
1. Из этого сборника - BGBLFIX - там есть опция "разрешить расчленение"
2. здесь http://forum.dwg.ru/showthread.php?p=548610#post548610
3. http://forums.autodesk.com/t5/Visual...e/td-p/2107647
4. http://www.theswamp.org/index.php?topic=41980.0
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 27.06.2013, 09:46
#168
adu

инженер систем безопасности
 
Регистрация: 07.10.2011
Сообщений: 36
<phrase 1=


Цитата:
Сообщение от VVA Посмотреть сообщение
Цитата:





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


Возможно ли сделать так, чтобы при расчленении динамических блоков программа игнорировала включенный в блоке "запрет на расчленение" и всё равно его взрывала?




Запрет для того и создавался, чтобы показывать, в том числе и программе, что можно взрывать, а что нет. Если есть такие блоки и их нужно взорвать, есть масса программ для снятия этой "галочки"
1. Из этого сборника - BGBLFIX - там есть опция "разрешить расчленение"
Простите, но в моих чертежах данная опция не сработала (acad 2014 x86). Остальные операции с блоками она выполняет (перевод на нулевой слой, корректировку свойств), но вот разрешение расчленения не включает. Пробовал как на динамических блоках, так и на статических. В чём может быть проблема по-вашему?
adu вне форума  
 
Автор темы   Непрочитано 27.06.2013, 11:29
#169
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от adu Посмотреть сообщение
В чём может быть проблема по-вашему?
Например, в косяке с моей стороны. Проверить смогу через 2 недели. Пока можешь воспользоваться работающими версиями из других ссылок
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 27.06.2013, 11:32
#170
adu

инженер систем безопасности
 
Регистрация: 07.10.2011
Сообщений: 36
<phrase 1=


Спасибо. Очень буду ждать обновленной версии программы.
adu вне форума  
 
Автор темы   Непрочитано 17.07.2013, 19:12
#171
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от adu Посмотреть сообщение
Спасибо. Очень буду ждать обновленной версии программы.
Обновил до 2.25.1 Была описка при записи dcl файла.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 18.07.2013, 10:00
#172
adu

инженер систем безопасности
 
Регистрация: 07.10.2011
Сообщений: 36
<phrase 1=


Благодарю! всё прекрасно работает
adu вне форума  
 
Непрочитано 19.07.2013, 13:40
#173
L-vir

РукоВводитель
 
Регистрация: 17.09.2009
Набережные Челны
Сообщений: 171


Подскажите пожалуйста макрос для автоматического удаления "точек" и "маскировки", либо любых других примитивов. При импорте из ArchiCAD в AutoCAD много ненужного "мусора"
L-vir вне форума  
 
Непрочитано 19.07.2013, 14:27
#174
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,605


_.qselect и вперед
http://community.autodesk.ru/resources/autocad-kak-vypolnit-udalenie-primitivov-opredelennogo-tipa-iz-vsego-faila
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 19.07.2013, 15:36
#175
L-vir

РукоВводитель
 
Регистрация: 17.09.2009
Набережные Челны
Сообщений: 171


"Прилетит вдруг волшебник в Голубом вертолёте и бесплатно..." не получилось . Ну что же, и на том спасибо

ОЙ!! Не увидел сразу ссылки! Огромное спасибо теперь!
L-vir вне форума  
 
Непрочитано 19.07.2013, 15:37
1 | #176
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 36,605


L-vir, а "+" раскрывался?
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 22.07.2013, 12:10
#177
rvv


 
Регистрация: 01.09.2011
Сообщений: 34


Спасибо, искал средство решения конкретной задачи, нашёл в этом комплекте.
rvv вне форума  
 
Автор темы   Непрочитано 07.08.2013, 20:02
#178
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Обновил до версии 2.26 Команда BGCFT - добавлена обработка формата текста в таблице. Добавлены команды BGBLALLDYN2A и BGBLALLDYN2S.
Источник
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 05.09.2013, 18:11
#179
shartal


 
Регистрация: 12.08.2009
Сообщений: 338


Добрый день. Возможно ли в эту замечательную программу, в нормализацию блоков, добавить Стиль печати? Это крайне важно при использовании именованных стилей печати.
shartal вне форума  
 
Непрочитано 18.10.2013, 10:30
#180
crosandr

Инженер-строитель
 
Регистрация: 09.07.2010
Санкт-Петербург
Сообщений: 1,774


Добрый день. Возможно в команду BGBLFIX (Нормализация блоков) добавить возможность смены единиц блока? Интересует в первую очередь смены единиц в безразмерные
crosandr вне форума  
 
Непрочитано 05.11.2013, 20:59 Подскажите программу
#181
baaba

архитектор
 
Регистрация: 07.07.2007
Москва
Сообщений: 622
<phrase 1= Отправить сообщение для baaba с помощью Skype™


Здравствуйте! Решил написать в этой теме, дабы не засорять форум. Вопросов два:

1). Мне нужна програмка, что бы из множества слоёв можно было сделать один текущим а все остальные замороженными, выбирая конкретный объект.
У меня сейчас есть вот такая наработка:
Код:
[Выделить все]
 
;Замораживает слои по выделенным объектам
(defun c:fr ()
(command "-layer" "freeze" (cdr (assoc 8 (entget (car (entsel))))) "")
)
Но она делает ровно противоположное -)

2). Есть ли на форуме топик вида "ищу программу"? Часто нужно бывает надо найти конкретный фрагмент кода, программу. Знающие люди сразу могут подсказать, а сам искать будешь долго. Или может быть есть готовый рубрикатор? .. может быть я плохо искал -/
baaba вне форума  
 
Автор темы   Непрочитано 06.11.2013, 09:29
#182
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


baaba,
Код:
[Выделить все]
 
(defun C:FR ( / en lay)
  (and
    (setq en(car(entsel)))
    (setq lay(cdr(assoc 8(entget en))))
    (setvar "CLAYER" lay)
    (command "_.layer" "_freeze" "*" "")
    )
  )
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 06.11.2013, 10:50
#183
baaba

архитектор
 
Регистрация: 07.07.2007
Москва
Сообщений: 622
<phrase 1= Отправить сообщение для baaba с помощью Skype™


Спасибо большое! Работает!
baaba вне форума  
 
Непрочитано 06.11.2013, 12:47
#184
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,550


layiso
gomer вне форума  
 
Непрочитано 19.12.2013, 12:39
#185
Kostinok

Инженер-электрик
 
Регистрация: 13.10.2007
Калининград
Сообщений: 151


Здравствуйте,
подскажите пожалуйста, может кто сталкивался:
1. как можно команду BGCOLORXREF модернизировать так, что бы цвет штриховок с типом SOLID оставался неизменным?
2. есть ли LISP, который "из обратного" мог бы в "покрашенной ссылке", указывая слой восстанавливать цвета примитивов по этому слою?
Заранее спасибо.
__________________
Можно сопротивляться вторжению армий, вторжению идей сопротивляться невозможно. /В. Гюго/
Kostinok вне форума  
 
Непрочитано 19.12.2013, 17:07
#186
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 9,828


Цитата:
Сообщение от Kostinok Посмотреть сообщение
есть ли LISP, который "из обратного" мог бы в "покрашенной ссылке", указывая слой восстанавливать цвета примитивов по этому слою?
Заранее спасибо.
Если все в слое было до перекраски цветом Bylayer, то просто верни слою такой цвет
Vova вне форума  
 
Автор темы   Непрочитано 19.12.2013, 18:39
#187
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Kostinok Посмотреть сообщение
есть ли LISP, который "из обратного" мог бы в "покрашенной ссылке", указывая слой восстанавливать цвета примитивов по этому слою?
Я так понял, что штриховки в этом слое.
Здесь "прародители" команд BGCOLOR*.
В том числе ColorXREFL
Цитата:
ColorXREFL change color xref only on a current session. Objects on the locked and frozen layers are ignored
Заблокируй слой с солидами и крась ColorXREFL
PS. Наверное, нужно добавить подобные команды и к BG*?
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 20.12.2013, 10:30
#188
Kostinok

Инженер-электрик
 
Регистрация: 13.10.2007
Калининград
Сообщений: 151


Vova, до перекраски были примитивы со сложными цветами. Нужно восстановить цвет этих примитивов.

VVA, программа bgtools отличная, такой прорыв при работе с внешними ссылками. Спасибо Вам большое за Ваш труд.
При работе с ГенПланами, естественно, что съемка является внешней ссылкой.
Я разрабатываю проект электроснабжения, и конечно к уже существующим сетям, я добавляю свои. При печати чертежей (monochrome.ctb) есть трудности их восприятия - в большом количестве серо-черных линий нельзя ничего разобрать!

Для четкости восприятия решил красить ссылку цветом 253, а в стиле monochrome присвоить этому цвету - цвет из объекта.
Если просто выполнить BGCOLORXREF , то сольются тексты на зданиях, которые штрихуются SOLID'ом, и не будет видно ни тип строения, ни номер и т.д.
Поэтому я и хотел, что бы цвет штриховок с типом SOLID оставался неизменным.

Для этого я в функции ChangeXrefAllObjectsColor из пакета bgtools убрал изменение цвета слоя примитива и добавил условие, чтобы объект HATCH игнорировался. (довольно грубо...)
Потом в функции VVA COLORFL поменял часть кода:

Код:
[Выделить все]
 (defun C:COLORFL ( / adoc blocks color ent lays)
  ;;;Color From Layer
    (setq adoc  (vla-get-activedocument (vlax-get-acad-object))
          lays  (vla-get-layers adoc)
    )
    (setvar "errno" 0)
    (vla-startundomark adoc)
    (while (and (not (vl-catch-all-error-p
                                    (setq ent (vl-catch-all-apply
                                                  (function nentsel)
                                                  '("\nSelect entity <Exit>:")
                                              )
                                    )
                                )
                           )
                           (/= 52 (getvar "errno"))
                      )
                   (if ent
                       (progn (setq ent (vlax-ename->vla-object (car ent))
                                    lay (vla-item lays (vla-get-layer ent))
                                    Color (vla-get-Color lay)                                    
                                    TrueColor (vla-get-TrueColor lay)
                              )
                              (if (= (vla-get-lock lay) :vlax-true)
                                  (progn (setq layloc (cons lay layloc))
                                         (vla-put-lock lay :vlax-false)
                                  )
                              )
;;;                              (vl-catch-all-apply (function vla-put-color) (list ent color))
                         (mapcar '(lambda (x)
                                    (vla-put-ColorMethod TrueColor acColorMethodByRGB)
                                    (vla-put-TrueColor x TrueColor))
                           (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget "_X" (list (cons 8 (vla-get-name lay))))))))
                           )
                              (vla-regen adoc acallviewports)
                       )
                       (princ "\nNothing selection! Try again.")
                   )
               )
               (foreach i layloc (vla-put-lock i :vlax-true))
               (vla-endundomark adoc)
    (princ)
Теперь, можно зайти в контекстное редактирование ссылки, вызвать функцию COLORFL и указывая на существующие сети, "указывая слой восстанавливать цвета примитивов по этому слою". Т.е. восстановить цвета, существующих сетей.
Теперь на чертеже все НЕ нужное - серое, цветом 253, а все нужное цветное! Чертеж стал заметно лучше читаться!

Это я все к тому, что может многие с этим сталкиваются, а так можно сделать чертеж читабельнее, и если Вы решите, что в этом есть смысл, то можно это добавить к BG*...VVA,
__________________
Можно сопротивляться вторжению армий, вторжению идей сопротивляться невозможно. /В. Гюго/
Kostinok вне форума  
 
Непрочитано 20.12.2013, 15:47
#189
Click-Clack

Молодой
 
Регистрация: 24.01.2012
Краснодар
Сообщений: 51


Подскажите пожалуйста, кто-нибудь, почему на этих блоках не работают команды UX и U2B из известного сборника BGTOOLS
Вложения
Тип файла: dwg
DWG 2000
Анонимные блоки.dwg (692.0 Кб, 3610 просмотров)
Click-Clack вне форума  
 
Автор темы   Непрочитано 20.12.2013, 16:26
1 | #190
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Click-Clack Посмотреть сообщение
Подскажите пожалуйста, кто-нибудь, почему на этих блоках не работают команды UX и U2B из известного сборника BGTOOLS
Потому что там блоки с именами *Exxx. Добавил их обработку. Обновил до версии 2.27
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 20.12.2013, 16:38
#191
Click-Clack

Молодой
 
Регистрация: 24.01.2012
Краснодар
Сообщений: 51


Спасибо большое
Вопрос вдогонку, как в файле выделить все анонимные блоки?
Click-Clack вне форума  
 
Непрочитано 20.12.2013, 16:58
#192
progettista


 
Регистрация: 22.05.2009
Москва
Сообщений: 199


VVA, в команнде BGResetXRef -Сброс настроек слоев выбранных внешних ссылок на установленные в исходном файле, есть несколько параметров - Выберите XRef для сброса настроек или [Несколько/Все/выбор по Имени/Настройки] <Выход> . Две буквы Н для выбора. И у меня не получилось Настройки посмотреть. Xref не сбросил параметров слоев.
progettista вне форума  
 
Непрочитано 25.12.2013, 04:47
#193
AEugen


 
Регистрация: 18.03.2012
Сообщений: 94


VVA, возможно ли взорвать все блоки на чертеже (в том числе и в пространстве листоВ) командой BGBLEXP ?
AEugen вне форума  
 
Автор темы   Непрочитано 26.12.2013, 23:01
#194
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Нет. Только в рамках текущего пространства (модель, лист)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 01.02.2014, 16:46
#195
angel-fear

инженер-электрик
 
Регистрация: 21.10.2010
Краснодар
Сообщений: 132


А можно добавить команду для пакетной синхронизации блоков чертежа? Чтобы не тыкать attsync`ом в каждый?
angel-fear вне форума  
 
Непрочитано 01.02.2014, 16:57
#196
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 9,828


Цитата:
Сообщение от angel-fear Посмотреть сообщение
А можно добавить команду для пакетной синхронизации блоков чертежа? Чтобы не тыкать attsync`ом в каждый?
Только не это!
Слишком опасно
Vova вне форума  
 
Непрочитано 25.03.2014, 11:16
#197
crosandr

Инженер-строитель
 
Регистрация: 09.07.2010
Санкт-Петербург
Сообщений: 1,774


Модифицирую динамические блоки в статические командой BGBLDYN2S. При вставке нового статического блока в таблицу до края ячейки остается расстояние при нулевых отступах. При чем такое происходит только с квадратным блоком (см. вложение). Что тут не так?
Вложения
Тип файла: dwg
DWG 2004
new block.dwg (60.5 Кб, 2914 просмотров)
crosandr вне форума  
 
Автор темы   Непрочитано 26.03.2014, 18:36
1 | #198
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


crosandr,Если в динамическом блоке есть несколько видимостей, и Автокад создает из динамического блока статический, то в "видимой" остается текущая видимость, а остальные остаются в блоке, только свойство видимости у них отключено
Загрузи лисп в Автокад, зайди в редактор блока и выполни команду ShowEM
Код:
[Выделить все]
;;;Published MP 
;;; http://www.theswamp.org/index.php?topic=5007.15
(defun c:HideEm	(/ hideit ss i)
  (defun hideit	(ename)
    (vl-catch-all-apply
      ;;  honor locked layer status
      '
       (lambda ()
	 (vla-put-visible
	   (vlax-ename->vla-object ename)
	   :vlax-false
	 )
       )
    )
  )
  (if (setq ss (ssget))
    (repeat (setq i (sslength ss))
      (hideit
	(ssname	ss
		(setq i (1- i))
	)
      )
    )
  )
  (princ)
)
(defun c:ShowEm	(/ showit ss i)
  (defun showit	(ename)
    (vl-catch-all-apply
      ;;;  honor locked layer status
      '(lambda (/ object)
	 (vla-put-visible
	   (setq object
		  (vlax-ename->vla-object ename)
	   )
	   :vlax-true
	 )
	 (vla-update object)
       )
    )
  )
  (if (setq ss (ssget "_x" '((60 . 1))))
    (repeat (setq i (sslength ss))
      (showit
	(ssname	ss
		(setq i (1- i))
	)
      )
    )
  )
  (princ)
)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 05.09.2014, 00:38
#199
perpetule


 
Регистрация: 23.09.2008
Волгоград
Сообщений: 809
<phrase 1= Отправить сообщение для perpetule с помощью Skype™


Как можно изменить цвет текста мультивыноски чохом для многих, если он был задан внутри редактора многострочного текста при редактировании/создании текста мультивыноски? Форум проискал нет такого лиспа. Подоснову готовят на белом, я же его органически не переношу - глаза выжигает.
__________________
tc71
perpetule вне форума  
 
Непрочитано 05.09.2014, 02:51
#200
skkkk

AutoCAD_2008->2011
 
Регистрация: 20.03.2008
Московская область
Сообщений: 2,260


perpetule, думаю, что StripMtext отсюда - самое оно.
skkkk вне форума  
 
Непрочитано 22.09.2014, 12:04
#201
_Voltron_


 
Регистрация: 23.03.2010
Сообщений: 3


Здравствуйте!
Буквально только что познакомился с утилитами.
Отличная вещь, сильно выручает.
Полистав форум, попадались посты с обсуждением функции задания толщины линий для ссылки только в текущем чертеже по образу и подобию BGCOLORXREF.
Существует ли сейчас такая функция? Может есть отдельный лисп?
Объекты подгружаемого чертежа имеют толщины линий, отличные от "По Слою"
_Voltron_ вне форума  
 
Непрочитано 22.09.2014, 12:23
#202
VoVoRoNaLe

Конструктор
 
Регистрация: 29.10.2007
Сообщений: 127


_setbylayer

То?
VoVoRoNaLe вне форума  
 
Непрочитано 22.09.2014, 13:59
#203
_Voltron_


 
Регистрация: 23.03.2010
Сообщений: 3


Цитата:
Сообщение от VoVoRoNaLe Посмотреть сообщение
_setbylayer

То?
Не совсем. Данная команда требует изменения исходного (подгружаемого) чертежа путем задания всем объектам свойств "По Слою".
А команда BGCOLORXREF из набора утилит не затрагивает исходный чертеж.
Или команда _setbylayer работает только в текущем сеансе?
_Voltron_ вне форума  
 
Непрочитано 22.09.2014, 16:49
#204
Nike

Шаражпроектхалтурмонтаж
 
Регистрация: 29.10.2004
Талды-Париж
Сообщений: 5,869


Ув. VVA!
Пожалуйста, что изменить в функции bg:block-color (BGBLCC - Изменяет цвет выбранных блоков), чтобы игнорировать, например, атрибуты и тесты (перекрашиваем всё внутри блока, кроме текстов и атрибутов)?
Nike вне форума  
 
Автор темы   Непрочитано 22.09.2014, 17:50
1 | #205
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Для атрибутов просто закоментарить кусок
Код:
[Выделить все]
;;;Íà îñíîâå Alaspher blcc encc http://forum.dwg.ru/showthread.php?t=1036
(defun bg:block-color (/ adoc blocks color ins lays ss e2)
    (setq adoc   (vla-get-activedocument (vlax-get-acad-object))
          blocks (vla-get-blocks adoc)
          lays   (vla-get-layers adoc)
          color  (cond
                   ((and (listp *BG-COLOR*)(assoc 430 *BG-COLOR*))
                    (acad_truecolordlg (assoc 430 *BG-COLOR*))
                    )
                   ((and (listp *BG-COLOR*)(assoc 420 *BG-COLOR*))
                    (acad_truecolordlg (assoc 420 *BG-COLOR*))
                    )
                   ((and (listp *BG-COLOR*)(assoc 62 *BG-COLOR*))
                    (acad_truecolordlg (assoc 62 *BG-COLOR*))
                    )
                   (t (acad_truecolordlg 256))  ;_(acad_truecolordlg (assoc 420 color))
                   )
          *BG-COLOR* color
    )
    (if color
        (progn (setvar "errno" 0)
               (vla-startundomark adoc)
               (while (and (not (vl-catch-all-error-p
                                    (setq ins (vl-catch-all-apply
                                                  (function entsel)
                                                    (list (if (= (getvar "DWGCODEPAGE") "ANSI_1251")
                                                            "\nÂûáåðèòå áëîê <Âûõîä>:"
                                                            "\nSelect block <Exit>:")
                                                          )
                                              )
                                    )
                                )
                           )
                           (/= 52 (getvar "errno"))
                      )
                   (if ins
                       (progn
                         (setq ss (vlax-ename->vla-object (car ins)))
                              (if  (= (vla-get-objectname ss) "AcDbBlockReference")
                                  (if (vlax-property-available-p ss 'path)
                                      (princ "\nThis is external reference! Try pick other.")
                                      (progn
					(bg:layer-status-save)
					(_pl:block-color blocks ss color lays)
;;;					(if (setq ss nil
;;;                                                  ss (ssget "_X"
;;;                                                            (list
;;;                                                              (cons 2
;;;                                                                (strcat
;;;                                                                  (if (wcmatch(cdr(assoc 2 (entget(car ins)))) "`**")
;;;                                                                    "`"
;;;                                                                    ""
;;;                                                                    )
;;;                                                                  (cdr(assoc 2 (entget(car ins))))
;;;                                                                  )
;;;                                                                )
;;;                                                              (cons 66 1)
;;;                                                              (cons 410 (getvar "CTAB"))
;;;                                                              )
;;;                                                            )
;;;                                                  )
;;;					  (progn
;;;					    (foreach blk (mapcar (function vlax-ename->vla-object) (vl-remove-if (function listp)
;;;							  (mapcar (function cadr) (ssnamex ss))))
;;;					      (foreach at (vlax-invoke blk 'Getattributes)
;;;                                                (vl-catch-all-apply
;;;                                                  (function
;;;                                                    (lambda()
;;;                                                      (entmod
;;;                                                        (append
;;;                                                          (vl-remove-if '(lambda(x)(member(car x) '(62 420 430)))
;;;                                                            (entget(vlax-vla-object->ename at))
;;;                                                            )
;;;                                                          color
;;;                                                          )
;;;                                                        )
;;;                                                      )
;;;                                                    )
;;;                                                  )
;;;                                                )
;;;                                              )
;;;                                            )
;;;                                          )
                                        (bg:layer-status-restore)
                                        (vla-regen adoc acallviewports)
                                        )
                                    )
                                  (princ "\nThis isn't block! Try pick other.")
                                )
                         )
                       (princ "\nNothing selection! Try again.")
                   )
               )
               (vla-endundomark adoc)
        )
    )
    (princ)
)

Чтобы исключить тексты нужно вносить изменения в ф-цию _pl:block-color
Пока у меня большая загрузка на работе, времени нет

----- добавлено через ~2 мин. -----
Цитата:
Сообщение от _Voltron_ Посмотреть сообщение
Существует ли сейчас такая функция? Может есть отдельный лисп?
Отдельной функции в этом сборнике не существует.
Как вариант - ссылкам задать уникальный цвет, например 151, а при печати в ctb файле этому цвету задать нужный вес линии
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 23.09.2014, 10:21
#206
_Voltron_


 
Регистрация: 23.03.2010
Сообщений: 3


Спасибо. Попробую разобраться. Честно так еще не пробовал
Цитата:
Сообщение от VVA Посмотреть сообщение
Как вариант - ссылкам задать уникальный цвет, например 151, а при печати в ctb файле этому цвету задать нужный вес линии
_Voltron_ вне форума  
 
Автор темы   Непрочитано 08.10.2014, 16:59
#207
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от crosandr Посмотреть сообщение
Модифицирую динамические блоки в статические командой BGBLDYN2S. При вставке нового статического блока в таблицу до края ячейки остается расстояние при нулевых отступах. При чем такое происходит только с квадратным блоком (см. вложение). Что тут не так?
Цитата:
Сообщение от VVA Посмотреть сообщение
crosandr,Если в динамическом блоке есть несколько видимостей, и Автокад создает из динамического блока статический, то в "видимой" остается текущая видимость, а остальные остаются в блоке, только свойство видимости у них отключено
В версии 2.28 исправлен мелкий баг в команде BGCFT и добавил в функцию bg:DynToStatic удаление объектов с отключенной видимостью
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось Кулик Алексей aka kpblc, 08.10.2014 в 17:14.
VVA вне форума  
 
Непрочитано 21.10.2014, 15:31
#208
roxit85

Инженер
 
Регистрация: 29.07.2013
Москва
Сообщений: 5


Команда - BGBLCC - отличная. вот только хотелось бы еще одну что-то на подобие для следующей ситуации. Есть блок, в нем еще один блок, и название допустим у этого единого блока - СУПЕР БЛОК. Если я делаю копию блока СУПЕР БЛОК, то естественно их получается два. НО вот когда указывю командой - BGBLCC - один из блоков и меня цвет блока, второй дубликат тоже меняет цвет. А как сделать так что бы у дубликата не менялся цвет. просто на чертеже много всталвенно блоков однотипных с одним и тем же именем, а программа разом меняет их все. Как сделать так - что бы именно для выбранного меняла цвет
roxit85 вне форума  
 
Непрочитано 30.10.2014, 14:45
#209
shartal


 
Регистрация: 12.08.2009
Сообщений: 338


После применения bgcft текст в ячейках таблицы принимает вид, заложенный в стиле ячеек. Т.е слетают изменения (высота текста, поворот текста) примененные индивидуально к ячейкам.
shartal вне форума  
 
Автор темы   Непрочитано 30.10.2014, 18:24
#210
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Обновил до версии 2.29
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 31.10.2014, 10:59
#211
shartal


 
Регистрация: 12.08.2009
Сообщений: 338


И снова я. После применения bgcft, в таблице, символы метр кубический превращается в метр квадратный. Шрифт mipgost, коды символов не менялись. Меняется независимо вставлен метр куб. одним символом или двумя. За пределами таблицы, в тексте все хорошо.
shartal вне форума  
 
Автор темы   Непрочитано 31.10.2014, 12:34
#212
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


shartal, Выложи пример. BGCFT форматирование текста не трогает. По поводу #209 настройки высоты текста и поворота хранились в свойствах ячейки. Я сначала читал текст, записывал в ячейку пустую строку, потом снова записывал прочтенный текст. При записи в ячейку пустой строки и слетали изменения, примененные индивидуально к ячейкам. Я эту строчку просто закомментировал.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 31.10.2014, 13:51
#213
shartal


 
Регистрация: 12.08.2009
Сообщений: 338


В файле две таблицы. В левой меняется метр. куб только в третьей снизу ячейке. В правой таблице я для пробы поместил куб. метр созданный двумя способами, тогда меняется во всех ячейках столбца Изм.
Вложения
Тип файла: dwg
DWG 2010
табл.dwg (298.9 Кб, 2496 просмотров)
shartal вне форума  
 
Автор темы   Непрочитано 06.11.2014, 17:34
1 | #214
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Обновил до версии 2.30 Проблема связана с этим vla-get-te​xtString \U+ symbols
Как решить 100% для таблиц не нашел. Пока исключил обновление ячеек, если в них не содержится полей.
Попасть на проблему можно в случае, если
1. В одной ячейке содержится и поле и текст с юникодом (\U+ ... )
2. Если значение поля совпадают
То есть если в таблице есть 2 ячейки с полями, возвращающими одинаковые значения и в этих ячейках содержится текст с юникодом (\U+ ... )
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 06.11.2014 в 22:11.
VVA вне форума  
 
Непрочитано 11.11.2014, 16:01
#215
zmejsan


 
Регистрация: 27.06.2013
Сообщений: 58


Уважаемые авторы программы Можно преобразовать атрибуты в текст в размерах в таблицах без разрушения элемента (например как в вопросе http://forum.dwg.ru/showthread.php?p...#post1335098)? Было удобно иметь такую команду в арсенале. Спасибо!
zmejsan вне форума  
 
Автор темы   Непрочитано 13.11.2014, 17:58
1 | #216
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


zmejsan, Обновил до версии 2.31
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 13.11.2014, 19:32
#217
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,663


Показалось мне, что сделать меню никто не решился. Поэтому предлагаю свой вариант:
Код:
[Выделить все]
//
//      AutoCAD menu file - bgtools.mnu
//
***MENUGROUP=bgtools
***POP1
[Подоснова]
 [->Операции с блоками]
   [Взорвать блоки, состоящие из одного примитива (возможно другого блока)]^C^C^P(if (not C:BG1BLEXP) (load "bgtools")) BG1BLEXP
   [Взорвать блок и все блоки, входящие в него, превращая видимые атрибуты в текст]^C^C^P(if (not C:BGBLEXP) (load "bgtools")) BGBLEXP
   [Взорвать блоки 1-го уровня, превращая видимые атрибуты в текст]^C^C^P(if (not C:BGBLEXP1) (load "bgtools")) BGBLEXP1
   [Взорвать динамические блоки 1-го уровня, превращая видимые атрибуты в текст]^C^C^P(if (not C:BGBLDYNEXP1) (load "bgtools")) BGBLDYNEXP1
   [Взорвать блоки 1-го уровня, у которых нет видимых атрибутов]^C^C^P(if (not C:BGBLEXP1NOATT) (load "bgtools")) BGBLEXP1NOATT
   [Показать подрезанные блоки]^C^C^P(if (not C:BGBLXCLIP) (load "bgtools")) BGBLXCLIP
   [Преобразовать динамические блоки в анонимные]^C^C^P(if (not C:BGBLDYN2A) (load "bgtools")) BGBLDYN2A
   [Преобразовать динамические блоки в статические]^C^C^P(if (not C:BGBLDYN2S) (load "bgtools")) BGBLDYN2S
   [Преобразовать ВСЕ динамические блоки в анонимные]^C^C^P(if (not C:BGBLALLDYN2A) (load "bgtools")) BGBLALLDYN2A
   [Преобразовать ВСЕ динамические блоки в статические]^C^C^P(if (not C:BGBLALLDYN2S) (load "bgtools")) BGBLALLDYN2S
   [Взорвать подрезанный блок]^C^C^P(if (not C:BGBLXCLIPEXP) (load "bgtools")) BGBLXCLIPEXP
   [Копировать одно из вхождений блока в блок с новым именем]^C^C^P(if (not C:BGCB) (load "bgtools")) BGCB
   [Переименовать одно из вхождений блока в блок с новым именем]^C^C^P(if (not C:BGRB) (load "bgtools")) BGRB
   [Преобразовать МВСТАВКУ в анонимный блок]^C^C^P(if (not C:M2U) (load "bgtools")) M2U
   [Преобразовать МВСТАВКУ в блок]^C^C^P(if (not C:M2B) (load "bgtools")) M2B
   [Преобразовать анонимный блок в блок]^C^C^P(if (not C:U2B) (load "bgtools")) U2B
   [Преобразовать анонимный блок в блок множественный выбор]^C^C^P(if (not C:U2BM) (load "bgtools")) U2BM
   [<-Взорвать анонимный блок]^C^C^P(if (not C:UX) (load "bgtools")) UX
   [--]
[->Операции с цветами]
   [Изменить цвет с RGB на ACI]^C^C^P(if (not C:BGRGB2ACI) (load "bgtools")) BGRGB2ACI
   [Изменить ACI цвет в его RGB эквивалент]^C^C^P(if (not C:BGAll2RGB) (load "bgtools")) BGAll2RGB
   [Задать выбранный цвет всем объектам]^C^C^P(if (not C:BGCOLOR) (load "bgtools")) BGCOLOR
   [Изменить цвет выбранных внешних сылок (только в текушем сеансе)]^C^C^P(if (not C:BGCOLOR) (load "bgtools")) BGCOLOR
   [Изменить цвет выбранных блоков]^C^C^P(if (not C:BGBLCC) (load "bgtools")) BGBLCC
   [Изменить цвет выбранного элемента блока]^C^C^P(if (not C:BGENCC) (load "bgtools")) BGENCC
   [Изменить цвет атрибутов выбранных блоков]^C^C^P(if (not C:BGCATT) (load "bgtools")) BGCATT
   [Изменить цвет в блоках 2 и более уровня (вложенных блоках)]^C^C^P(if (not C:BGCBL2) (load "bgtools")) BGCBL2
   [<-Нормализация блоков]^C^C^P(if (not C:BGBLFIX) (load "bgtools")) BGBLFIX
   [--]
[->Операции с слоями]
   [Удаление выключенных и замороженных слоев с примитивами]^C^C^P(if (not C:BGLAYDEL) (load "bgtools")) BGLAYDEL
   [<-Сброс настроек слоев выбранных внешних ссылок на установленные в исходном файле]^C^C^P(if (not C:BGResetXRef) (load "bgtools")) BGResetXRef
   [--]
[->Операции с полями]
   [Конвертировать все поля в обычный текст]^C^C^P(if (not C:BGCFT) (load "bgtools")) BGCFT
   [<-Конвертировать поля в обычный текст в выбранных примитивах]^C^C^P(if (not C:BGCFTSEL) (load "bgtools")) BGCFTSEL
   [--]
[Удалить штриховку]^C^C^P(if (not C:BGHATCHDEL) (load "bgtools")) BGHATCHDEL


***TOOLBARS
Ну, и содержимое файла bgtools.mnl
Код:
[Выделить все]
;;;     bgtools.MNL
(menucmd "p22=+bgtools.pop1")
(princ)

Последний раз редактировалось Profan, 13.11.2014 в 19:37. Причина: Добавление
Profan вне форума  
 
Непрочитано 13.11.2014, 22:09
#218
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,550


Цитата:
Сообщение от Profan Посмотреть сообщение
оказалось мне, что сделать меню никто не решился. Поэтому предлагаю свой вариант
показалось, мне просто лень было архивировать
Вложения
Тип файла: zip bgmenu.zip (3.4 Кб, 89 просмотров)
gomer вне форума  
 
Непрочитано 13.11.2014, 22:12
#219
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,663


Давай я заархивирую.

А-а, ты уже заархивировал. А куда две трети пропало?

Последний раз редактировалось Profan, 13.11.2014 в 22:18.
Profan вне форума  
 
Непрочитано 13.11.2014, 22:23
#220
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,550


Цитата:
Сообщение от Profan Посмотреть сообщение
А куда две трети пропало?
Так архив битый
gomer вне форума  
 
Непрочитано 13.11.2014, 22:29
#221
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,663


Offtop: А говорят, что за битого двух небитых дают.
Profan вне форума  
 
Непрочитано 13.11.2014, 22:41
#222
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,550


ну так прояви полет фантазии, то, что ты выложил конечно очень полезно, но у темных людей это не заработает или очень со скрипом
gomer вне форума  
 
Непрочитано 14.11.2014, 13:13
#223
zmejsan


 
Регистрация: 27.06.2013
Сообщений: 58



БОЛЬШОЕ ЧЕЛОВЕЧЕСКОЕ МЕРСИ!!!
zmejsan вне форума  
 
Непрочитано 27.11.2014, 10:54
#224
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,663


Вопрос к VVA:
Программа BGHATCHDEL (удаление штриховки) удаляет любую штриховку из блоков. Как бы сделать так, чтобы штриховка удалялась по выбору.
Например, мне надо удалить только штриховку SOLID из блоков, другие типы штриховок не трогать.
Profan вне форума  
 
Автор темы   Непрочитано 28.11.2014, 08:24
1 | #225
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Profan Посмотреть сообщение
Программа BGHATCHDEL (удаление штриховки) удаляет любую штриховку из блоков. Как бы сделать так, чтобы штриховка удалялась по выбору.
Пока не придумал как сделать список всех штриховок в чертеже, кроме перебора. Пока 3 варианта в порядке моих предпочтение:
1. Написать вариант удаления штриховок SOLID
2. Перебрать все штриховки и составить список имен для выбора
3. Считать имена штриховок из *.pat файлов
В моей практике пока что так же требовалось удалять SOLID штриховки
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 10.12.2014, 15:41
#226
adu

инженер систем безопасности
 
Регистрация: 07.10.2011
Сообщений: 36
<phrase 1=


Уважаемый VVA!
Можно ли добавить в bgtools команду для расчленения всех таблиц на чертеже, либо поправить bgballdyn2a и bgballdyn2s так, чтоб они видели блоки вставленные в ячейку таблицы?
Все свободные дин. блоки на чертеже преобразовываются в статические либо анонимные, а те, что вставлены в ячейку таблицы игнорируются (((
Пример прилагаю.
Вложения
Тип файла: dwg
DWG 2007
Чертеж1.dwg (135.1 Кб, 2588 просмотров)

Последний раз редактировалось adu, 10.12.2014 в 15:57.
adu вне форума  
 
Непрочитано 10.12.2014, 16:49
#227
crosandr

Инженер-строитель
 
Регистрация: 09.07.2010
Санкт-Петербург
Сообщений: 1,774


А чем обычное расчленение (_explode) не устраивает?
crosandr вне форума  
 
Непрочитано 10.12.2014, 16:52
#228
adu

инженер систем безопасности
 
Регистрация: 07.10.2011
Сообщений: 36
<phrase 1=


Данное действие необходимо в составе множества других. Для одного чертежа конечно можно вручную исполнить, но когда их большое количество это очень затратно по времени.
Мне необходимо задать все эти действия (в том числе и расчленение таблиц) на одну кнопку.
adu вне форума  
 
Непрочитано 12.12.2014, 20:16
#229
АлексЮстасу

топограф, технолог
 
Регистрация: 24.05.2009
Москва
Сообщений: 2,706


Интересный случай в http://forum.dwg.ru/showthread.php?p...16#post1348616.
Анонимные блоки отметок высот (синего цвета) содержат вложенные тоже анонимные блоки. И, похоже, в каждом из них точка привязки с координатами с огромными значениями. Т.е. при разбивании или при преобразовании в именованные блоки все они отлетают на величину, равную этим значениям координат. Причем, возможно, у каждого из этих блоков отметок свои координаты точек привязки. Т.е., если все такие блоки преобразовать или все разбить, а потом сдвинуть, то они могут на свои места не сесть.

Может быть предусмотреть еще одну команду - замены координат точки привязки на 0,0?

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

Последний раз редактировалось АлексЮстасу, 12.12.2014 в 20:49.
АлексЮстасу вне форума  
 
Непрочитано 25.02.2015, 17:52
#230
shartal


 
Регистрация: 12.08.2009
Сообщений: 338


Странная вещь происходит. В чертеже есть аннотативный блок, который имеет в себе больше одного аннотативного масштаба. В блоке есть односточный и многострочный атрибуты. К чертежу применяется BGBLALLDYN2S или BGBLALLDYN2A. Блок правильно преобразовывается и отображается. После сохранения, закрытия и открытия, многострочный атрибут отображается в том масштабе в котором блок вставлялся в чертеж. Т.е. текущий масштаб на момент вставки был 1:100, блоку был добавлен масштаб 1:200, видовой экран имеет маштаб 1;200 и до закрытия все выглядит отлично. После открытия многосторочный атрибут имеет высоту под масштаб 1:100.
shartal вне форума  
 
Автор темы   Непрочитано 25.02.2015, 18:09
#231
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,788
<phrase 1= Отправить сообщение для VVA с помощью Skype™


shartal, Выложи пример, посмотрю, хотя идей никаких. В вышеназванных командах используются стандартные методы динамических блоков
Цитата:
Команда: (vlax-dump-Object(setq obj(vlax-ename->vla-object(car(entsel)))) t)
Выберите объект: ; IAcadBlockReference: Интерфейс AutoCAD для работы с
вхождениями блоков.
; Значения свойств:
; Application (RO) = #<VLA-OBJECT IAcadApplication 0000000140d28e28>
; EffectiveName (RO) = "MIP_LTB_AIR_DYN"
; InsertionPoint = (1683.11 1261.97 0.0)
; InsUnits (RO) = "Безразмерный"
; IsDynamicBlock (RO) = -1
; Layer = "0"
; ObjectName (RO) = "AcDbBlockReference"
….
; Поддерживаемые методы:
; ArrayPolar (3)
; ArrayRectangular (6)
; ConvertToAnonymousBlock ()
; ConvertToStaticBlock (1)
; Copy ()
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума