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

Вернуться   Форум 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 Кб, 6479 просмотров)
Тип файла: zip bgtools3.13b.zip (57.3 Кб, 204 просмотров)

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

Последний раз редактировалось VVA, 29.01.2024 в 16:36. Причина: См историю изменений
Просмотров: 411458
 
Непрочитано 01.07.2015, 19:05
#261
baaba

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


Цитата:
Сообщение от baaba Посмотреть сообщение
Можно как то этого достичь?
Попробовал сам сварганить. Заработало:

Код:
[Выделить все]
 (defun c:anyblk ()
 (vl-load-com)
 (setq a_app  (VLAX-GET-ACAD-OBJECT)
    a_doc  (vla-get-ActiveDocument a_app)
    a_blks (vla-get-blocks a_doc)
	blk    (vla-item a_blks (cdr (assoc 2 (entget (car (entsel))))))
)
(vla-put-name blk (getstring "\nEnter new block name: " ))
)
За основу взял вот этот код:
http://adndevblog.typepad.com/autoca...sp-or-vba.html
См. defun c:ren_blk
baaba вне форума  
 
Непрочитано 01.07.2015, 20:24
#262
Кулик Алексей aka kpblc
Moderator

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


На анонимных блоках не сработает. На динамических блоках (как мне кажется) не сработает.

----- добавлено через 43 сек. -----
http://adn-cis.org/rename-anonymous-...sp-or-vba.html
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 23.07.2015, 07:51
#263
Profan


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


Предлагаю меню для использования функций из программы BGTOOLS.
Для удобства использования я сделал для меню панельку с кнопками и перераспределил эти функции в 4 группы:
Операции с БЛоками
Операции с ЦВетом
Операции с СЛоями
Операции с ПОлями
Последняя кнопка запускает программу удаления штриховок.
Меню несколько корявое (длинноваты кнопки с названиями программ), может, кто-нибудь оптимизирует его?
Миниатюры
Нажмите на изображение для увеличения
Название: Панелька Подоснова.jpg
Просмотров: 80
Размер:	6.4 Кб
ID:	153806  
Вложения
Тип файла: rar ПОДОСНОВА.RAR (360.3 Кб, 81 просмотров)
Profan вне форума  
 
Непрочитано 29.07.2015, 16:01
#264
TAPA3


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


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

Поправил!!!
Миниатюры
Нажмите на изображение для увеличения
Название: BGtools_Лента.png
Просмотров: 121
Размер:	36.8 Кб
ID:	154097  
Вложения
Тип файла: zip BGtools.zip (97.9 Кб, 115 просмотров)

Последний раз редактировалось TAPA3, 29.07.2015 в 16:59.
TAPA3 вне форума  
 
Непрочитано 29.07.2015, 16:10
#265
Кулик Алексей aka kpblc
Moderator

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


TAPA3, извини, конечно, но:
1. иконки прекрасно импортируются в cuix. Их отдельно предоставлять не нужно вообще.
2. зачем нужен документ "подготовка подосновы" я не очень понял.
3. mnr (и, на будущее - mnc) файл не требуется: его AutoCAD создает автоматически.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 29.07.2015, 16:46
#266
TAPA3


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


Кулик Алексей aka kpblc, понял, буду иметь ввиду. Я просто папку за архивировал со всеми файлами, надо было подчистить.
TAPA3 вне форума  
 
Непрочитано 28.08.2015, 12:42 Помощь с лиспом BG Tools
#267
kofein4ik


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


Здравствуйте! Подскажите пожалуйста как можно убрать в лиспе окно с подтверждение команд BGCFT и BGCFTSEL? Нужно чтобы при вводе в командную строку не появлялось окно с подтверждением команд а выполнялась сразу команда! Help me
kofein4ik вне форума  
 
Непрочитано 10.09.2015, 16:52
#268
shartal


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


Команда BGLAYDEL, замороженные слои во внешней ссылке отмораживает (выключенные слои остаются выключенными).
Надо бы, чтоб ссылки она не трогала.
shartal вне форума  
 
Автор темы   Непрочитано 11.09.2015, 12:12
#269
VVA

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


исправил. проверяй
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 16.09.2015, 10:49
#270
shartal


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


После применения команды BGBLEXP1NOATT , в строке состояния остается инфа о проделанной работе. Она отображается у всех открытых к данному моменту файлов и не пропадает даже если закрыть файл, где команда запущена была. Исчезает только после создания нового файла.
Миниатюры
Нажмите на изображение для увеличения
Название: 2.png
Просмотров: 72
Размер:	2.0 Кб
ID:	157016  
shartal вне форума  
 
Непрочитано 28.10.2015, 13:56
#271
VaniaLSD


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


При выборе цвет всем объектам командой bgcolor, пишется: "Ошибка Automation. Отсутствует описание" и не меняется цвет.
При BGCBL2 - "Ошибка Automation. Ключ не найденОшибка Automation. Неверный слой"

Последний раз редактировалось VaniaLSD, 28.10.2015 в 14:26.
VaniaLSD вне форума  
 
Автор темы   Непрочитано 02.11.2015, 17:30
#272
VVA

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


VaniaLSD, Выложи пример dwg файла, в котором происходит ошибка
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 02.11.2015, 19:41
#273
vik74


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


Странно, у меня все работает, и меняет любой цвет, Win 7x64, Autocad 2012 и 2016
vik74 вне форума  
 
Автор темы   Непрочитано 02.11.2015, 22:44
#274
VVA

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


Цитата:
Сообщение от vik74 Посмотреть сообщение
Странно, у меня все работает, и меняет любой цвет, Win 7x64, Autocad 2012 и 2016
у меня так же все работает. поэтому и прошу выложить проблемный файл
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 03.11.2015, 12:04
#275
VaniaLSD


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


Приложил.
Вложения
Тип файла: dwg
DWG 2007
всЕ2.dwg (2.02 Мб, 779 просмотров)
VaniaLSD вне форума  
 
Автор темы   Непрочитано 03.11.2015, 16:35
#276
VVA

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


VaniaLSD, В файле полно ошибок. А так же если сделать _Zoom _all, то он улетает к солнцу
Цитата:
Команда: _audit
Исправить все обнаруженные ошибки? [Да/Нет] <Н>: Д
Проверка заголовка
Проверка таблиц
Проверка объектов, проход 1
Проход 1: проверено объектов: 1100 AcDbHatch(2F1968) не
удалось восстановить. Будет удален.
AcDbHatch(2F197D) не удалось восстановить. Будет удален.
AcDbHatch(2F1990) не удалось восстановить. Будет удален.
Проход 1: проверено объектов: 1300 AcDbHatch(2F6B96) не
удалось восстановить. Будет удален.
AcDbHatch(2F6B97) не удалось восстановить. Будет удален.
Проход 1: проверено объектов: 20300
Проверка объектов, проход 2
А так же непонятная мультивыноска
Цитата:
Команда: (entget e)
((-1 . <Имя объекта: 7ffff745930>) (0 . "MULTILEADER") (5 . "68B90B") (102 .
"{ACAD_XDICTIONARY") (360 . <Имя объекта: 7ffff756e90>) (102 . "}") (330 . <Имя
объекта: 7ffff703820>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"СК+++$0$О_ОСИ МАРКИ_-0") (62 . 5) (370 . 0) (100 . "AcDbMLeader") (270 . 2)
(300 . "CONTEXT_DATA{") (40 . 100.0) (10 -4.26491e+006 724343.0 -1.21417e+084)
(41 . 400.0) (140 . 400.0) (145 . 200.0) (174 . 5) (175 . 6) (176 . 0) (177 .
и
Цитата:
; IAcadMLeader2: Интерфейс мультивыносок AutoCAD
; Значения свойств:
; Application (RO) = #<VLA-OBJECT IAcadApplication 0000000140609e48>
; ArrowheadBlock = "СК+++$0$_None"
; ArrowheadSize = 4.0
; ArrowheadType = 20
; BlockConnectionType = 1
; BlockScale = 1.5
; ContentBlockName = "СК+++$0$_TagCircle"
; Layer = "СК+++$0$О_ОСИ МАРКИ_-0"
; TextBackgroundFill = Ошибка
; TextDirection = Ошибка
; TextJustify = Ошибка
; TextLineSpacingDistance = Ошибка
; TextLineSpacingFactor = Ошибка
; TextLineSpacingStyle = Ошибка
; TextRotation = Ошибка
; TextString = Ошибка
; TextStyleName = Ошибка
; TextTopAttachmentType = 0

Добавил отлов ошибок. Обновил #1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 03.11.2015, 18:03
#277
vik74


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


Спасибо за такую прекрасную прогу!!!
vik74 вне форума  
 
Непрочитано 03.11.2015, 22:08
#278
VaniaLSD


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


VVA
Исправляется все _audit?
VaniaLSD вне форума  
 
Автор темы   Непрочитано 04.11.2015, 11:44
1 | #279
VVA

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


Цитата:
Сообщение от VaniaLSD Посмотреть сообщение
Исправляется все _audit?
Почти все. Я в #276 привел данные глючной мультивыноски, audit'ом она не лечилась, а жизнь портила. Поэтому отлов ошибок пришлось все равно добавлять
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 04.11.2015, 12:00
#280
VaniaLSD


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


Цитата:
Сообщение от VVA Посмотреть сообщение
Почти все. Я в #276 привел данные глючной мультивыноски, audit'ом она не лечилась, а жизнь портила. Поэтому отлов ошибок пришлось все равно добавлять
Спасибо! Даже не знаю как это получилось.
VaniaLSD вне форума  
Ответ
Вернуться   Форум 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