|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
![]() |
Поиск в этой теме |
![]() |
#1 | |
Нужен лисп для вставки заготовок из DWG
Регистрация: 07.01.2010
Сообщений: 144
|
||
Просмотров: 6319
|
|
||||
Шаражпроектхалтурмонтаж Регистрация: 29.10.2004
Талды-Париж
Сообщений: 6,010
|
|
|||
![]() |
|
||||
CAD Регистрация: 28.08.2003
Киев
Сообщений: 1,834
![]() |
Можно всё просто организовать стандартными средствами Автокада - "Центр управления (DesignCenter)
Вызывается Ctrl+2 оттуда блоки можно просто перетягивать на чертеж.
__________________
По теории майский жук летать не может. Но он этого не знает. И летает... |
|||
![]() |
|
||||
Регистрация: 15.01.2010
Сообщений: 254
|
Цитата:
Сам начал только разбираться в этом вопросе и вот что "нарыл" 1. В категории ***pop1 (файл описания меню) прописываем [блоки] ^C^C_redraw (ICON2 "Предпросмотр" 1 25) блоки - строчка, отображаемая в меню (что такое 1 25 - понятия не имею) 2. В категории ***Toolbars прописываем **Предпросмотр [заголовок окна];;;так будет называться окно предпросмотра [BLOCKS (300)]^C^C_insert M300 [BLOCKS (...)]^C^C_insert M... и т.д. где BLOCKS - папка с блоками; 300 - сам блок 2а. Или так [BLOCKS (301)]^C^C(setq b "m301") ![]() Суть строки - в папке BLOCKS присутствует созданный СЛАЙД блока (как создать слайд - надо читать в FAQ) 301. Затем ищется LISP-файл и команду LISPK (описывает "отрисовку" выбранного блока), "делает" из отрисованного блок с названием m301 P.S.: вроде несложно при условии, если уже видел как это все работает... У меня на работе так организованы некоторые меню: выбрал соответсвующую строку - появилось окно выбора блоков с превьюшками самих блоков; выбираю нужный и программа либо сразу вставляет блок из файла, либо предварительно "отрисовывает" его и делает блоком Сам заинтересовался, как это организовано, распечатал файл меню ("вынести" готовые исходники нельзя), сижу разбираюсь ![]() Пока писал "трактат", Alan опередил... Если "просто" то можно и через "инструментальные палитры"... Последний раз редактировалось superkot007, 04.02.2010 в 01:04. |
|||
![]() |
|
||||
Шаражпроектхалтурмонтаж Регистрация: 29.10.2004
Талды-Париж
Сообщений: 6,010
|
Pozia
Ну лиспов там нету, соврал, извиняюсь. Все меню и команды вставки блоков описаны в файле E-Blocks.mns // // AutoCAD menu file // ***MENUGROUP=E-Blocks ***POP0 **E-Blocks [Электропроводка] [~Слои - проводка] [--] [Основная]^C^C_-layer;_m;Process-Major;_c;3;;_l;continuous;;_s;;; [Аварийная]^C^C_-layer;_m;Process-Minor;_c;1;;_l;continuous;;_s;;; [--] [~Блоки] [--] [Коробки, Щиты]$I=E-Blocks.image_Kor $I=lib001.* [Выключатели]$I=E-Blocks.image_Vkl $I=lib002.* [Розетки]$I=E-Blocks.image_Roz $I=lib003.* [Светильники1]$I=E-Blocks.image_Sv1 $I=lib004.* [Светильники2]$I=E-Blocks.image_Sv2 $I=lib005.* [Аппараты контроля]$I=E-Blocks.image_App $I=lib006.* [Устройства]$I=E-Blocks.image_Ust $I=lib007.* ***TOOLBARS ***IMAGE **IMAGE_KOR [КОРОБКИ ЩИТЫ] [LIB001(KOR_01,1 Коробка ответв.д.5)]^C^C_-insert;d:/elektro/lib001/Kor_01;_scale;1;;; [LIB001(KOR_02,1 Коробка ответв.д.2)]^C^C_-insert;d:/elektro/lib001/Kor_02;_scale;1;;; [LIB001(KOR_03,2 Коробка вводная )]^C^C_-insert;d:/elektro/lib001/Kor_03;_scale;1;;; [LIB001(KOR_04,3 Коробка протяжная )]^C^C_-insert;d:/elektro/lib001/Kor_04;_scale;1;;; [LIB001(KOR_05,4 Ящик с зажимами )]^C^C_-insert;d:/elektro/lib001/Kor_05;_scale;1;;; [LIB001(KOR_06,5 Щиток магистр. РО )]^C^C_-insert;d:/elektro/lib001/Kor_06;_scale;1;;; [LIB001(KOR_07,7 Щиток групповой РО)]^C^C_-insert;d:/elektro/lib001/Kor_07;_scale;1;;; [LIB001(KOR_08,8 Щиток групповой АО)]^C^C_-insert;d:/elektro/lib001/Kor_08;_scale;1;;; [LIB001(KOR_09,9 Щиток лабораторный)]^C^C_-insert;d:/elektro/lib001/Kor_09;_scale;1;;; [LIB001(KOR_10,10 Ящик с аппаратуро)]^C^C_-insert;d:/elektro/lib001/Kor_10;_scale;1;;; [LIB001(KOR_11,11 Шкаф одностор обс)]^C^C_-insert;d:/elektro/lib001/Kor_11;_scale;1;;; [LIB001(KOR_12,12 Шкаф двухстор обс)]^C^C_-insert;d:/elektro/lib001/Kor_12;_scale;1;;; **IMAGE_VKL [ВЫКЛЮЧАТЕЛИ] [LIB002(VKL_01,1 Выключатель )]^C^C_-insert;d:/elektro/lib002/Vkl_01;_scale;1;;; [LIB002(VKL_02,2.1 Однополюсный )]^C^C_-insert;d:/elektro/lib002/Vkl_02;_scale;1;;; [LIB002(VKL_03,2.2 Однополюсный сдв)]^C^C_-insert;d:/elektro/lib002/Vkl_03;_scale;1;;; [LIB002(VKL_04,2.3 Однополюсный стр)]^C^C_-insert;d:/elektro/lib002/Vkl_04;_scale;1;;; [LIB002(VKL_05,2.4 Двухполюсный )]^C^C_-insert;d:/elektro/lib002/Vkl_05;_scale;1;;; [LIB002(VKL_06,2.5 Трехполюсный )]^C^C_-insert;d:/elektro/lib002/Vkl_06;_scale;1;;; [LIB002(VKL_07,3.1 Однополюсный )]^C^C_-insert;d:/elektro/lib002/Vkl_07;_scale;1;;; [LIB002(VKL_08,3.2 Однополюсный сдв)]^C^C_-insert;d:/elektro/lib002/Vkl_08;_scale;1;;; [LIB002(VKL_09,3.3 Однополюсный стр)]^C^C_-insert;d:/elektro/lib002/Vkl_09;_scale;1;;; [LIB002(VKL_10,3.4 Двухполюсный )]^C^C_-insert;d:/elektro/lib002/Vkl_10;_scale;1;;; [LIB002(VKL_11,4.1 Однополюсный )]^C^C_-insert;d:/elektro/lib002/Vkl_11;_scale;1;;; [LIB002(VKL_12,4.2 Двухполюсный )]^C^C_-insert;d:/elektro/lib002/Vkl_12;_scale;1;;; [LIB002(VKL_13,4.3 Трехполюсный )]^C^C_-insert;d:/elektro/lib002/Vkl_13;_scale;1;;; [LIB002(VKL_14,5.1 Пер Однополюсный)]^C^C_-insert;d:/elektro/lib002/Vkl_14;_scale;1;;; [LIB002(VKL_15,5.2 Пер Двухполюсный)]^C^C_-insert;d:/elektro/lib002/Vkl_15;_scale;1;;; [LIB002(VKL_16,5.3 Пер Трехполюсный)]^C^C_-insert;d:/elektro/lib002/Vkl_16;_scale;1;;; [LIB002(VKL_17,6.1 Пер Однополюсный)]^C^C_-insert;d:/elektro/lib002/Vkl_17;_scale;1;;; [LIB002(VKL_18,6.2 Пер Двухполюсный)]^C^C_-insert;d:/elektro/lib002/Vkl_18;_scale;1;;; [LIB002(VKL_19,6.3 Пер Трехполюсный)]^C^C_-insert;d:/elektro/lib002/Vkl_19;_scale;1;;; **IMAGE_ROZ [РОЗЕТКИ] [LIB003(ROZ_01,8 Штепсельная розетк)]^C^C_-insert;d:/elektro/lib003/Roz_01;_scale;1;;; [LIB003(ROZ_02,8.1 Двухполюсная )]^C^C_-insert;d:/elektro/lib003/Roz_02;_scale;1;;; [LIB003(ROZ_03,8.2 Двухполюсная сдв)]^C^C_-insert;d:/elektro/lib003/Roz_03;_scale;1;;; [LIB003(ROZ_04,8.3 Двухполюсная защ)]^C^C_-insert;d:/elektro/lib003/Roz_04;_scale;1;;; [LIB003(ROZ_05,8.4 Трехполюсная защ)]^C^C_-insert;d:/elektro/lib003/Roz_05;_scale;1;;; [LIB003(ROZ_06,9.1 Двухполюсная )]^C^C_-insert;d:/elektro/lib003/Roz_06;_scale;1;;; [LIB003(ROZ_07,9.2 Двухполюсная сдв)]^C^C_-insert;d:/elektro/lib003/Roz_07;_scale;1;;; [LIB003(ROZ_08,9.3 Двухполюсная защ)]^C^C_-insert;d:/elektro/lib003/Roz_08;_scale;1;;; [LIB003(ROZ_09,9.4 Трехполюсная защ)]^C^C_-insert;d:/elektro/lib003/Roz_09;_scale;1;;; [LIB003(ROZ_10,10.1 Двухполюсная )]^C^C_-insert;d:/elektro/lib003/Roz_10;_scale;1;;; [LIB003(ROZ_11,10.2 Двухполюсная за)]^C^C_-insert;d:/elektro/lib003/Roz_11;_scale;1;;; [LIB003(ROZ_12,10.3 Трехполюсная за)]^C^C_-insert;d:/elektro/lib003/Roz_12;_scale;1;;; [LIB003(ROZ_13,11.1 Розетка и 1 вык)]^C^C_-insert;d:/elektro/lib003/Roz_13;_scale;1;;; [LIB003(ROZ_14,11.2 Розетка и 2 вык)]^C^C_-insert;d:/elektro/lib003/Roz_14;_scale;1;;; [LIB003(ROZ_15,11.3 Розетка и 3 вык)]^C^C_-insert;d:/elektro/lib003/Roz_15;_scale;1;;; [LIB003(ROZ_16,12.1 Розетка и 1 вык)]^C^C_-insert;d:/elektro/lib003/Roz_16;_scale;1;;; [LIB003(ROZ_17,12.2 Розетка и 2 вык)]^C^C_-insert;d:/elektro/lib003/Roz_17;_scale;1;;; [LIB003(ROZ_18,12.3 Розетка и 3 вык)]^C^C_-insert;d:/elektro/lib003/Roz_18;_scale;1;;; **IMAGE_SV1 [СВЕТИЛЬНИКИ ПРИ РАЗДЕЛЬНОМ ИЗОБРАЖЕНИИ] [LIB004(SV1_01,1 Свет лампой накал.)]^C^C_-insert;d:/elektro/lib004/Sv1_01;_scale;1;;; [LIB004(SV1_02,2 Свет люмин. лампой)]^C^C_-insert;d:/elektro/lib004/Sv1_02;_scale;1;;; [LIB004(SV1_03,3 Свет разр. лампой )]^C^C_-insert;d:/elektro/lib004/Sv1_03;_scale;1;;; [LIB004(SV1_04,4 Прожектор )]^C^C_-insert;d:/elektro/lib004/Sv1_04;_scale;1;;; [LIB004(SV1_05,5 Свет лам накал. АО)]^C^C_-insert;d:/elektro/lib004/Sv1_05;_scale;1;;; [LIB004(SV1_06,6 Свет люмин. лам АО)]^C^C_-insert;d:/elektro/lib004/Sv1_06;_scale;1;;; [LIB004(SV1_07,7 Свет лам накал. СО)]^C^C_-insert;d:/elektro/lib004/Sv1_07;_scale;1;;; **IMAGE_SV2 [СВЕТИЛЬНИКИ ПРИ СОВМЕСТНОМ ИЗОБРАЖЕНИИ] [LIB005(SV2_01,1 Свет лампой накал.)]^C^C_-insert;d:/elektro/lib005/Sv2_01;_scale;1;;; [LIB005(SV2_02,3 То же на кронштейн)]^C^C_-insert;d:/elektro/lib005/Sv2_02;_scale;1;;; [LIB005(SV2_03,4 Свет люмин. лампой)]^C^C_-insert;d:/elektro/lib005/Sv2_03;_scale;1;;; [LIB005(SV2_04,5 Линия люмин. ламп )]^C^C_-insert;d:/elektro/lib005/Sv2_04;_scale;1;;; [LIB005(SV2_05,6 Св люмин. на кронш)]^C^C_-insert;d:/elektro/lib005/Sv2_05;_scale;1;;; [LIB005(SV2_06,7 Свет разр на кронш)]^C^C_-insert;d:/elektro/lib005/Sv2_06;_scale;1;;; [LIB005(SV2_07,8 Свет разр на опоре)]^C^C_-insert;d:/elektro/lib005/Sv2_07;_scale;1;;; [LIB005(SV2_08,9 Люстра )]^C^C_-insert;d:/elektro/lib005/Sv2_08;_scale;1;;; [LIB005(SV2_09,10 Световод щелевой )]^C^C_-insert;d:/elektro/lib005/Sv2_09;_scale;1;;; [LIB005(SV2_10,11 Прожектор )]^C^C_-insert;d:/elektro/lib005/Sv2_10;_scale;1;;; [LIB005(SV2_11,12 Груп прожекторов )]^C^C_-insert;d:/elektro/lib005/Sv2_11;_scale;1;;; [LIB005(SV2_12,13 Груп прожекторов )]^C^C_-insert;d:/elektro/lib005/Sv2_12;_scale;1;;; [LIB005(SV2_13,15.1 Патрон стенной )]^C^C_-insert;d:/elektro/lib005/Sv2_13;_scale;1;;; [LIB005(SV2_14,15.2 Патрон подвесно)]^C^C_-insert;d:/elektro/lib005/Sv2_14;_scale;1;;; [LIB005(SV2_15,15.3 Патрон потолочн)]^C^C_-insert;d:/elektro/lib005/Sv2_15;_scale;1;;; **IMAGE_APP [АППАРАТЫ КОНТРОЛЯ И УПРАВЛЕНИЯ] [LIB006(APP_01,1 Звонок )]^C^C_-insert;d:/elektro/lib006/App_01;_scale;1;;; [LIB006(APP_02,2 Сирена гудок ревун)]^C^C_-insert;d:/elektro/lib006/App_02;_scale;1;;; [LIB006(APP_03,3.1 Табло на 1 сигна)]^C^C_-insert;d:/elektro/lib006/App_03;_scale;1;;; [LIB006(APP_04,3.2 Табло неск сигна)]^C^C_-insert;d:/elektro/lib006/App_04;_scale;1;;; [LIB006(APP_05,4 Надписи рекламные )]^C^C_-insert;d:/elektro/lib006/App_05;_scale;1;;; [LIB006(APP_06,5 Устр-во пусковое )]^C^C_-insert;d:/elektro/lib006/App_06;_scale;1;;; [LIB006(APP_07,6 Магнитный пускател)]^C^C_-insert;d:/elektro/lib006/App_07;_scale;1;;; [LIB006(APP_08,7 Автом. выключатель)]^C^C_-insert;d:/elektro/lib006/App_08;_scale;1;;; [LIB006(APP_09,8.1 Пост на 1 кнопку)]^C^C_-insert;d:/elektro/lib006/App_09;_scale;1;;; [LIB006(APP_10,8.2 Пост на 2 кнопки)]^C^C_-insert;d:/elektro/lib006/App_10;_scale;1;;; [LIB006(APP_11,8.3 Пост на 3 кнопки)]^C^C_-insert;d:/elektro/lib006/App_11;_scale;1;;; [LIB006(APP_12,8.4 Пост 2 свет кноп)]^C^C_-insert;d:/elektro/lib006/App_12;_scale;1;;; [LIB006(APP_13,8.5 Пост 2 кн 2 сигн)]^C^C_-insert;d:/elektro/lib006/App_13;_scale;1;;; [LIB006(APP_14,9 Перекл. управления)]^C^C_-insert;d:/elektro/lib006/App_14;_scale;1;;; [LIB006(APP_15,10 Выключат. путевой)]^C^C_-insert;d:/elektro/lib006/App_15;_scale;1;;; [LIB006(APP_16,11.1 Командоаппарат1)]^C^C_-insert;d:/elektro/lib006/App_16;_scale;1;;; [LIB006(APP_17,11.2 Командоаппарат2)]^C^C_-insert;d:/elektro/lib006/App_17;_scale;1;;; [LIB006(APP_18,12 Тормоз )]^C^C_-insert;d:/elektro/lib006/App_18;_scale;1;;; **IMAGE_UST [ЭЛЕТРОТЕХНИЧЕСКИЕ УСТРОЙСТВА] [LIB007(UST_01,1 Уст. электротехнич)]^C^C_-insert;d:/elektro/lib007/Ust_01;_scale;1;;; [LIB007(UST_02,2 Уст. с электродвиг)]^C^C_-insert;d:/elektro/lib007/Ust_02;_scale;1;;; [LIB007(UST_03,3 Уст. с многодвигат)]^C^C_-insert;d:/elektro/lib007/Ust_03;_scale;1;;; [LIB007(UST_04,4 Устр. с генераторо)]^C^C_-insert;d:/elektro/lib007/Ust_04;_scale;1;;; [LIB007(UST_05,5 Дизель-генератор )]^C^C_-insert;d:/elektro/lib007/Ust_05;_scale;1;;; [LIB007(UST_06,6 Уст. с 1 трансформ)]^C^C_-insert;d:/elektro/lib007/Ust_06;_scale;1;;; [LIB007(UST_07,7 С неск трансформат)]^C^C_-insert;d:/elektro/lib007/Ust_07;_scale;1;;; [LIB007(UST_08,8 Ус-ка конденсаторн)]^C^C_-insert;d:/elektro/lib007/Ust_08;_scale;1;;; [LIB007(UST_09,9 Ус-ка преобразоват)]^C^C_-insert;d:/elektro/lib007/Ust_09;_scale;1;;; [LIB007(UST_10,10 Батарея аккумулят)]^C^C_-insert;d:/elektro/lib007/Ust_10;_scale;1;;; [LIB007(UST_11,11 Уст. электронагре)]^C^C_-insert;d:/elektro/lib007/Ust_11;_scale;1;;; // // End of AutoCAD menu file // |
|||
![]() |
|
||||
Шаражпроектхалтурмонтаж Регистрация: 29.10.2004
Талды-Париж
Сообщений: 6,010
|
Pozia
Файлы с расширением sld - это "слайды", растровые изображения, которые отображаются в графическом меню, а slb - это библиотека слайдов, то есть множество sld, собранные в один файл. Создаются слайды с помощью команды "_mslide" ("дслайд"). Библиотеки слайдов создаются с помощью автокадовской утилиты SLIDELIB.EXE. Поищи в справке "SLIDELIB.EXE" - там все описано. А вообще, тебе правильно Alan подсказывает - есть же "Центр управления" (Ctrl+2) и "Инструментальны палитры" (Ctrl+3), а эти "мозаичные" меню давно забытое прошлое ![]() |
|||
![]() |
|
||||
ПИ -
Там иконки отстойные, только текст ненаглядно, панель ПИ путается с панелью свойств, подшивками. Перенести ПИ я могу ... не в этом суть, структурирование в старом способе гораздо приятнее, для единично и редко вставляемых блоков ... P.S. Усе шеф - убедил, удобнее, токмо готовить надо уметь. Последний раз редактировалось perpetule, 17.04.2013 в 01:57. |
||||
![]() |
|
||||
Шаражпроектхалтурмонтаж Регистрация: 29.10.2004
Талды-Париж
Сообщений: 6,010
|
ну покажьте, как "красивше"..
лично мне обе эти приблуды ни к чему - я успешно использую copy-paste. --------- ![]() Последний раз редактировалось Nike, 17.04.2013 в 02:04. |
|||
![]() |
|
||||
Сразило еще что масштаб и другие св-ва разом можно менять всей палитре или некоторым из нее. И импортировать сразу несколько из проводника.
Структурирование решается группой палитр, интерфейс правда невнятный, но вполне работоспособный, и таки придется открепить и справа повесить ПИ, хотя остальные все позакреплены. Кстати от 2009 в разы шустрее, с тех пор забросил я их. Последний раз редактировалось perpetule, 17.04.2013 в 02:16. |
||||
![]() |
![]() |
|
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
LISP. Вставка в таблицу поля, соотвествующего площади примитива | Profan | Готовые программы | 272 | 06.06.2021 23:12 |
Лисп для копирования данных нескольких мтекстов по принципу расположения. | Red Nova | LISP | 14 | 18.06.2008 22:08 |
Нужен лисп (закладные в колонне сверху) | dextron3 | LISP | 2 | 20.07.2007 20:51 |
Нужен лисп (автонумератор Буквенный) | dextron3 | LISP | 2 | 18.07.2007 10:59 |