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

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

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

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

Набор команд, опубликованных в теме Подоснова
Желательно ознакомиться с указанной темой или как минимум с описанием
Описание команд
Код:
[Выделить все]
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 Кб, 1530 просмотров)
Тип файла: zip bgtools 3.9.zip (55.5 Кб, 468 просмотров)

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

Последний раз редактировалось VVA, 30.05.2019 в 17:11. Причина: См #513-#514
Просмотров: 238007
 
Непрочитано 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,873


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

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,792
<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,792
<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,792
<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,792
<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,792
<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,792
<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 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Подготовка подосновы

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Научите лиспу на примере (или как kpblc, VVA и компания пытаются обучить чайника лиспу) Red Nova LISP 3819 13.09.2019 09:09
{Конкурс} 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