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

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

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

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

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

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

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

Вложения
Тип файла: zip bgtools 3.3.zip (53.6 Кб, 6481 просмотров)
Тип файла: zip bgtools3.13b.zip (57.3 Кб, 205 просмотров)

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

Последний раз редактировалось VVA, 29.01.2024 в 16:36. Причина: См историю изменений
Просмотров: 411531
 
Непрочитано 15.01.2016, 11:28
#301
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 1,040
<phrase 1=


Не очень доходчиво...давайте на пальцах )
у меня в рабочем файле 5 ссылок (в каждой по 70 слоев): план 1го этажа...план 5го этажа.
В принципе то названия у слоев одинаковые, но в рабочем файле им предварительно выставлен индекс, состоящий из названия файла ссылки.
Мне в данный момент для работы нужны например только 5 слоев из 70 в каждом X-ref. Тоесть мне надо отключить 325 слоев.
Из-за этого индекса, я не могу сделать это быстро при помощи фильтра или диспетчера конфигурации. Ну может быть могу, но не умею ))
Konstruktiv54 вне форума  
 
Непрочитано 15.01.2016, 11:36
#302
RNB

Проектирование мостов
 
Регистрация: 29.01.2014
Новосибирск
Сообщений: 433


Цитата:
Сообщение от Konstruktiv54 Посмотреть сообщение
Из-за этого индекса, я не могу сделать это быстро при помощи фильтра или диспетчера конфигурации. Ну может быть могу, но не умею ))
Звездочки * в имени в помощь. И без разницы, что стоит в начале/конце линии.
Миниатюры
Нажмите на изображение для увеличения
Название: QIP Shot - Screen 009.png
Просмотров: 94
Размер:	79.8 Кб
ID:	163667  
RNB вне форума  
 
Непрочитано 15.01.2016, 11:54
#303
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 1,040
<phrase 1=


Ааа, понятно, попробовал. Спасибо.
Думаю, что этот вариант не даст экономии времени.
В идеале хотелось бы функцию типа _matchprop, которая бы копировала состояние настроек слоев с одного X-ref на другой...
Konstruktiv54 вне форума  
 
Непрочитано 15.01.2016, 12:02
#304
Кулик Алексей aka kpblc
Moderator

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


Пока видео делал, уже ответили...
Вложения
Тип файла: zip LayerFilter.zip (5.05 Мб, 56 просмотров)
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 15.01.2016, 12:33
#305
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 1,040
<phrase 1=


Спасибо за видео, а теперь вот моя картинка...Все слои одной X-ref не влезают в экран, а у меня таких 5. Красным цветом обведены слои, которые в данный момент хочу отключить, оставить только оси, колонны и несущие стены, и так 5 раз. Но это в данный момент времени, а может быть завтра мне понадобиться включить другие слои, и так тоже 5 раз. В общем геммор.

Я так понимаю, мне для решения задачи надо немного модифицировать BGResetXRef, только в качестве эталона надо принимать не исходный файл, а указанную ссылку.
Миниатюры
Нажмите на изображение для увеличения
Название: 2016-01-15 15-07-11 Layer.png
Просмотров: 71
Размер:	188.0 Кб
ID:	163676  
Konstruktiv54 вне форума  
 
Непрочитано 15.01.2016, 13:56
1 | #306
RNB

Проектирование мостов
 
Регистрация: 29.01.2014
Новосибирск
Сообщений: 433


Цитата:
Сообщение от Konstruktiv54 Посмотреть сообщение
Спасибо за видео, а теперь вот моя картинка...Все слои одной X-ref не влезают в экран, а у меня таких 5. Красным цветом обведены слои, которые в данный момент хочу отключить, оставить только оси, колонны и несущие стены, и так 5 раз. Но это в данный момент времени, а может быть завтра мне понадобиться включить другие слои, и так тоже 5 раз. В общем геммор.
Так и не понял в чем проблема с фильтром. В данном конкретном случае добавить в фильтр строки *интерьер* *конструктивный* *оси* и радоваться жизни.
RNB вне форума  
 
Непрочитано 15.01.2016, 14:10
#307
Konstruktiv54


 
Регистрация: 31.01.2007
Новосибирск
Сообщений: 1,040
<phrase 1=


Видимо голова уже не очень соображает в пятницу вечером )) не обязательно же выписывать все что надо отключить, можно же вписать только то что надо включить...спасибо )
Konstruktiv54 вне форума  
 
Непрочитано 08.02.2016, 20:59
#308
Soldat_OV


 
Регистрация: 13.02.2009
Воронеж
Сообщений: 39


Добрый вечер. Можно ли использовать команду U2B для динамических блоков?
Soldat_OV вне форума  
 
Непрочитано 08.02.2016, 21:32
#309
engngr

сети
 
Регистрация: 03.11.2008
Московия*
Сообщений: 5,767


Попробовать не судьба?
engngr на форуме  
 
Непрочитано 08.02.2016, 21:38
#310
Soldat_OV


 
Регистрация: 13.02.2009
Воронеж
Сообщений: 39


Судьба. Просто уточняю, на обычных блоках у меня работает нормально, а на динамических внутри появляется вторая копия элементов. Может где-то было написано, что нельзя использовать для динамических
Soldat_OV вне форума  
 
Автор темы   Непрочитано 08.02.2016, 23:29
#311
VVA

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


Цитата:
Сообщение от Soldat_OV Посмотреть сообщение
а на динамических внутри появляется вторая копия элементов. Может где-то было написано, что нельзя использовать для динамических
Написанного, что нельзя для динамических - нет. Но писалось для обычных. Для динамических попробуй
Цитата:
BGBLDYN2S - Преобразовывает динамические блоки в статические
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 08.02.2016, 23:34
#312
Soldat_OV


 
Регистрация: 13.02.2009
Воронеж
Сообщений: 39


Цитата:
Сообщение от VVA Посмотреть сообщение
Написанного, что нельзя для динамических - нет. Но писалось для обычных. Для динамических попробуй
Тогда он перестает быть динамическим....это, к сожалению, не подходит. А может есть какое-то решение для динамических блоков?
Soldat_OV вне форума  
 
Непрочитано 08.02.2016, 23:39
#313
Кулик Алексей aka kpblc
Moderator

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


Soldat_OV, ты чего в результате хочешь получить? Переименовать дин.блок?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 08.02.2016, 23:52
#314
Soldat_OV


 
Регистрация: 13.02.2009
Воронеж
Сообщений: 39




Хочу чтобы динамический блок стал "нормальным", чтобы с этим блоком можно было программно работать. Например, у меня динамический блок - рамка для чертежа и мне надо из его атрибутов брать размеры и передавать их как рамку на печать. Если у меня динамический блок - рамка с именем "*U*", то я не смогу точно знать из какого блока мне брать атрибуты, для дальнейшей обработки. И вообще если у меня на чертеже несколько одинаковых динамических блоков, но некоторые из них unnamed, я не могу их собрать в один набор для дальнейшей обработки.
Soldat_OV вне форума  
 
Непрочитано 09.02.2016, 06:13
#315
RNB

Проектирование мостов
 
Регистрация: 29.01.2014
Новосибирск
Сообщений: 433


Offtop: Трэш какой-то
RNB вне форума  
 
Непрочитано 09.02.2016, 10:43
#316
Кулик Алексей aka kpblc
Moderator

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


У динамического блока получить значения параметров (программно) - не проблема вообще ни разу. Получить имя дин.блока - тоже (см.свойство EffectiveName). Получить вхождения дин.блока - тоже можно (решения на форуме были).
Я вообще не понимаю сути твоей проблемы.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 09.02.2016, 10:55
#317
VVA

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


Цитата:
Сообщение от Soldat_OV Посмотреть сообщение
и мне надо из его атрибутов брать размеры и передавать их как рамку на печать
Есть 2 варианта решения
1. Брать размеры из атрибутов Редактирование атрибутов блока (скрытых и постоянных)
2. Размеры брать прямо из параметров динамического блока. В таком случае атрибуты не нужны вовсе кто знает есть ли доступ к параметрам динамичесого блока из Lisp
Я бы рекомендовал 2-й вариант
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 10.02.2016, 22:34
#318
Soldat_OV


 
Регистрация: 13.02.2009
Воронеж
Сообщений: 39


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
У динамического блока получить значения параметров (программно) - не проблема вообще ни разу. Получить имя дин.блока - тоже (см.свойство EffectiveName). Получить вхождения дин.блока - тоже можно (решения на форуме были).
Я вообще не понимаю сути твоей проблемы.
Да, видимо ночью голова работает хуже..





Спасибо, попробую 2-й вариант!
Soldat_OV вне форума  
 
Непрочитано 22.03.2016, 10:22
#319
Soldat_OV


 
Регистрация: 13.02.2009
Воронеж
Сообщений: 39


И снова я возвращаюсь к обработке динамических блоков. С рамкой для печати я разобралась, все получилось! Спасибо!

Но я решила переименовывать динамические блоки, вместо имени *U... я беру EffectiveName. И тут у меня начались танцы динамических блоков. При переименовывании у динамического блока меняется свойство Flip, если значение установлено как Flip. После переименовывания свойство меняется на противоположное и блок переворачивается! Небольшое уточнение, блок переворачивается в конце, перед следующим запросом. Что делать? Почему это происходит? Подскажите, пожалуйста!
Переименовываю таким способом:

Код:
[Выделить все]
 (defun C:GoodBl (/ Unnam BlName VlaUnnam EffNameUnn)
  (VL-LOAD-COM)
  (while
    (setq Unnam (car (entsel "Select block: ")))
     (if (wcmatch (setq BlName (cdr (assoc 2 (entget Unnam))))
		  "`*U*,`*X*,`*E* `*D*"
	 )
       (progn
	 (setq VlaUnnam (vlax-ename->vla-object Unnam))
	 (setq EffNameUnn (vla-get-EffectiveName VlaUnnam))
	 (if (/= BlName EffNameUnn)
	   (vla-put-name VlaUnnam EffNameUnn)
	 )
       )
     )
  )
)
Файл с динамическим блоком прикрепила.
Вложения
Тип файла: dwg
DWG 2010
DanceBlocks.dwg (82.4 Кб, 33 просмотров)

Последний раз редактировалось Кулик Алексей aka kpblc, 22.03.2016 в 10:31.
Soldat_OV вне форума  
 
Непрочитано 22.03.2016, 10:34
#320
Кулик Алексей aka kpblc
Moderator

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


Во-первых, очень странная маска для wcmatch. Во-вторых, насколько я помню (могу ошибаться), переименовать анонимный блок "в лоб" невозможно. И, наконец, в-третьих: ну вставлено, к примеру, 10 дин.блоков с одинаковым эффективным именем. И тут один из них подобным кодом "переименовывается". Что произойдет с остальными вхождениями этого блока?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Подготовка подосновы

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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