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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Создание дополнительных параметров Visibility Set в динамических блоках.

Создание дополнительных параметров Visibility Set в динамических блоках.

Ответ
Поиск в этой теме
Непрочитано 13.09.2008, 13:35 5 |
Создание дополнительных параметров Visibility Set в динамических блоках.
Supermax
 
Руководитель фирмы
 
Москва
Регистрация: 28.03.2007
Сообщений: 1,831

В этой теме рассматривается вопрос программного "наращивания" возможностей динамических блоков.
Программистам:
Разбор словарей дин.блока
Получение параметра видимости и его разбор

Примеры блоков с несколькими параметами видимости (Visibility Set): "неправильные" и "правильные".
В посте #212 - пример связи Lookup-ов друг с другом.
Макрос по перемещению свойств в списке свойств блока меню Properties
02.02.2010 Откорректирована для работы в 2010 каде



Пользователям:
Готовые макросы:
Все функции по вставке и обработке дополнительных Visibility Set
Обновление 17.07.2009г. Исправлена ошибка в element-sel-current-insert и добавлено включение видимости всем элементам с откатом назад, после выбора нужных элементов
Обновление 06.10.2009. Исправил функцию eval_graf_output, из-за которой не работала visibility-up.
Обновление 02.02.2010. !!! Откорректирована в связи с появлением нового динамического элемента в 2010 каде
(properties_add_all_visibility) - установка видимости выбранных динамических свойств и ручек во всех представлениях всех Visibility Set-ов.
Добавлен вывод значения текущего Visibility Set-a в статусную строку и спрятаны не нужные глобальные переменные
(element-all-current-del) - удаление из текущего Visibility Set всех элементов оставляя свойства и представления.
(element-sel-current-del) - очищает Visibility Set от указанных элементов без необходимости выключать им видимость в других представлениях текущего Visibility Set-а.
(element-sel-current-insert) - внедрение в общий список текущего Visibility Set-a выбранных элементов.
(Visibility_add) - Добавление нового Visibility Set-a
(visibility-up) - Делает указанный пользователем Visibility Set текущим
(eddedd) - Включает ручки всем элементам текущего Visibility Set-a
(Visibility_clear) - Очищает указанный Visibility Set от всех элементов, параметров и представлений. Принадлежащие ему элементы становятся свободными
Инструкция по применению дополнительных Visibility Set

Функции управления видимостью объектов (вкл\выкл)
Вебмакрос по управлению видимостью объектов (только для тех, у кого Internet Explorer 7.0)
Функция по выключению видимости отдельных элементов блока из пространства модели
#66 и #67 - восстановление видимости отдельных элементов блока.
Excel->Lookup
Lookup->Excel
Lookup->Lookup

Самые последние версии, для работы в любом пространстве.
Программа по массовой установке и снятию видимости элементов в представлениях текущего Visibility Set-a Обновление 8.10.2008г. Устранена ошибка загрузки DCL панели.
Программа по устаноке на параметр Lookup-a сколь угодного количества активаторов
Пример использования связанных активаторов Lookup-a через один параметр Lookup-a. 3D-динамический блок-игрушка Гидроцилиндр телескопический 4-х секционный. Файл обновлен 8.10.2008г.

Все макросы для кнопок и иконки к ним

24.01.2009.
Исправлена ошибка в функции (properties_add_all_visibility)

Исходные тексты к функциям:
http://www.private.peterlink.ru/pole...9/tainypod.htm

Последний раз редактировалось Supermax, 02.02.2010 в 20:26.
Просмотров: 276109
 
Непрочитано 03.05.2011, 20:40
#481
andmail


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


EXCEL2LOOKUP очень полезная программка, но
  1. не заполняет lookup таблицу в 2012 Акаде (excel 2010 + корректировка лиспа http://forum.dwg.ru/showpost.php?p=425895&postcount=425). Пробую на простейшем примере (см. вложение).
  2. процесс EXCEL.EXE висит в памяти после завершения работы лиспа. Приходится вручную закрывать (в общем-то мелочь, можно пережить).
Буду очень признателен, если удастся заставить ее работать!

PS: Ну народ, подправьте, пожалуйста, для 2012 акада. В 2009 работает, а в 2012 нет....
Вложения
Тип файла: rar test.rar (34.6 Кб, 94 просмотров)

Последний раз редактировалось andmail, 05.05.2011 в 22:01.
andmail вне форума  
 
Автор темы   Непрочитано 04.05.2011, 23:31
#482
Supermax

Руководитель фирмы
 
Регистрация: 28.03.2007
Москва
Сообщений: 1,831
Отправить сообщение для Supermax с помощью Skype™


Пока 2012 кадом не распологаю.
Supermax вне форума  
 
Непрочитано 02.06.2011, 14:41
#483
Eddicordo

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


Supermax,
Не подскажешь каким образом поставить Lookup-a сколь угодного количества активаторов
имея Акад 2010 русс и не имея Акадов предыдущих годов?
Может каким то другим способом можно добратся до заполнения таблиц других Lookup-ов.
Eddicordo вне форума  
 
Автор темы   Непрочитано 02.06.2011, 14:58
#484
Supermax

Руководитель фирмы
 
Регистрация: 28.03.2007
Москва
Сообщений: 1,831
Отправить сообщение для Supermax с помощью Skype™


Вариант 1. Научиться программировать в AutoLisp-е и самому подправить код.
Вариант 2. Попросить кого-то, у кого есть русский Автокад 2010 (у меня нет) и кто занет Автолисп сделать аналогичное.
Вариант 3. Попросит кого-то дать тебе любой готовый файл, где есть блок с лукупом и несколькими активаторами.

На сколько я знаю, начинкой динамических блоков можно манипулировать только в Автолиспе.

Все исходники я выложил, но пока наследников не наблюдаю.
Supermax вне форума  
 
Непрочитано 16.01.2012, 14:10
#485
Geniy_Dzydo


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


Supermax - нашел вашу программу для создания новых параметров видимости!!! Прошу помочь разобраться!!!
и так попорядку: создал блок с параметром видимости, теперь при вставке второго параметра выходит такая ошибка:

Команда: (Visibility_add)
Укажите место расположения Visibility Set: _.point
Текущие режимы точек: PDMODE=0 PDSIZE=0.0000
Укажите точку: 0,0,0
Команда: ; ошибка: неверная DXF-группа: (360)

Подскажите пожалуйста, что не так???
Geniy_Dzydo вне форума  
 
Непрочитано 20.01.2012, 02:22
#486
Basawur

Konstrukteur
 
Регистрация: 28.09.2008
Europa
Сообщений: 20
<phrase 1=


Ребята, помогите пожалуйста "заточить" сие чудо под -AutoCAD Mechanical 2011 German-.
Уже какой день колдую ну никак не получается добавлять дополнительные видимости.
Вот вырезка из протокола, может кто увидит ошибку:

Код:
[Выделить все]
Befehl:
Befehl:
Befehl: ampoweredit

Befehl:
Befehl:
Befehl: _bedit Regeneriert Modell.

Befehl:
Befehl:
Befehl: (load "visibility-add-rus.lsp") C:HIDEOBJ

Befehl: (visibility_add) Укажите место расположения Visibility Set: _.point
Aktuelle Punktmodi:  PDMODE=0  PDSIZE=0.00
Einen Punkt angeben: 0,0,0
Zu viele Objekte gewählt für SCHNITTPUNKT

Befehl: _.BSAVE
Befehl: _.BParameter
Parametertyp eingeben 
[Ausrichtung/Basis/Punkt/Linear/pOlar/XY/Drehung/umKehrung/sIchtbarkeit/abruFen]
: _V
Parameterposition eingeben [Name/Bezeichnung/bEschreibung/Palette]: _L
Bezeichnung für Sichtbarkeitseigenschaft eingeben <Sichtbarkeit1>: Труп
Parameterposition eingeben [Name/Bezeichnung/bEschreibung/Palette]:
Anzahl der Griffe eingeben [0/1] <1>:
Befehl: _.BSAVE
Befehl: _.point
Aktuelle Punktmodi:  PDMODE=0  PDSIZE=0.00
Einen Punkt angeben: 0,0,0
Zu viele Objekte gewählt für SCHNITTPUNKT

Befehl: _.undo Aktuelle Einstellungen: Automatisch = Aus, Steuerung = Alle, 
Zusammenfügen = Ja, Layer = Ja
Anzahl der rückgängig zu machenden Operationen eingeben oder 
[Auto/Steuern/Beginn/Ende/Markierung/Rück] <1>: 5 (LISP-Ausdruck) 
(LISP-Ausdruck) (LISP-Ausdruck) (LISP-Ausdruck) Sichtbarkeit hinzufügen 
Regeneriert Modell.

Befehl: _.BSAVE
Befehl: _.point
Aktuelle Punktmodi:  PDMODE=0  PDSIZE=0.00
Einen Punkt angeben: 0,0,0
Zu viele Objekte gewählt für SCHNITTPUNKT

Befehl: _.BSAVE
Befehl: _.undo Aktuelle Einstellungen: Automatisch = Aus, Steuerung = Alle, 
Zusammenfügen = Ja, Layer = Ja
Anzahl der rückgängig zu machenden Operationen eingeben oder 
[Auto/Steuern/Beginn/Ende/Markierung/Rück] <1>: 1 (LISP-Ausdruck) Regeneriert 
Modell.

Befehl: _.BParameter
Parametertyp eingeben 
[Ausrichtung/Basis/Punkt/Linear/pOlar/XY/Drehung/umKehrung/sIchtbarkeit/abruFen]
: _V
** Sichtbarkeitsparameter bereits in Blockdefinition vorhanden. **
Befehl: _L Unbekannter Befehl "L". Drücken Sie F1-Taste für Hilfe.

Befehl: Visibility:7ef21c90> Unbekannter Befehl "VISIBILITY:7EF21C90>". Drücken 
Sie F1-Taste für Hilfe.

Befehl:
Befehl: BBEARB Option eingeben [Speichern/änderungen Verwerfen] <Speichern>: 
_.point
Ungültiger Optionstitel.
Option eingeben [Speichern/änderungen Verwerfen] <Speichern>: 0,0,0
Ungültiger Optionstitel.
; Fehler: Fehlerhafter Argumenttyp: lentityp nil
Option eingeben [Speichern/änderungen Verwerfen] <Speichern>: *Abbruch*
Basawur вне форума  
 
Непрочитано 07.02.2012, 22:02 Объясните как использовать файл visibility-ADD2
#487
syt89


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


Не могу использовать этот файл, загрузил приложение но функции не запускаются в чем я ошибаюсь объясните пожалуйста пошагово как надо делать правильно
syt89 вне форума  
 
Непрочитано 14.03.2012, 14:50
#488
SLADE

проектировщик-новобранец
 
Регистрация: 14.09.2005
Minsk
Сообщений: 309


Цитата:
Сообщение от Composter Посмотреть сообщение
у меня на работе стоит 2007 офис, поэтому макрос Excel->Lookup не запустился,предлагаю поменять строку
Код:
[Выделить все]
  (setq g_oex (vlax-get-or-create-object "Excel.Application.11"))
на
Код:
[Выделить все]
  (setq g_oex (vlax-get-or-create-object "Excel.Application"))
после этого все заработало
А если формат новый .xlsm или .xlsx
SLADE вне форума  
 
Автор темы   Непрочитано 03.04.2012, 20:36
1 | #489
Supermax

Руководитель фирмы
 
Регистрация: 28.03.2007
Москва
Сообщений: 1,831
Отправить сообщение для Supermax с помощью Skype™


Geniy_Dzydo, какой у Вас Автокад?
Basawur, - у меня нет AutoCAD Mechanical 2011 German.
syt89, - может Вы его загружаете не в Автокад?

Пока я не могу заниматься любительским программированием - занят. Новых энтузиастов этого дела пока не наблюдаю. Бороться с Автодеском нет ни малейшего желания. Не хочет он развивать динамизм блоков, так и не надо. Есть кады где эти видимости вставляются, так и пользуйтесь ими.
Supermax вне форума  
 
Непрочитано 13.05.2012, 14:42
#490
SLADE

проектировщик-новобранец
 
Регистрация: 14.09.2005
Minsk
Сообщений: 309


Привет всем

при импорте из Excel в lookup (Excel 2007 рус / Acad 2012 Eng, а так же пробовал Excel 2010 рус / Acad 2013 рус) на финише пишет
Код:
[Выделить все]
(LOAD "C:/Users/SLADE/Desktop/Excel-Lookup2.lsp") Укажите нужный вам блок
 29
 nil nil
Данные не импортированы

п.с. "Excel.Application.11" заменил на "Excel.Application"
Не могу понять в чем затык, т.к. экспорт из lookup в Excel (Excel 2007 рус / Acad 2012 Eng, а так же пробовал Excel 2010 рус / Acad 2013 рус)
работают корректно!
Supermax и VVA у меня все надежда на вас
SLADE вне форума  
 
Непрочитано 14.05.2012, 09:34
#491
Makswell

Инженер-строитель
 
Регистрация: 15.08.2007
Киров
Сообщений: 2,251


Подтверждаю. С Автокадом 2012 программа не дружит.
Когда нужно, специально запускаю Автокад 2008 и работаю в нём. Пока только так.

Просто Supermax явно сказал, что поддерживать программу не собирается. Его право, хотя жаль конечно - вещь очень полезная.

P.S. У меня не работает конкретно связка Excel 2007 rus/AutoCAD 2012 rus sp1. Работает связка Excel 2007 rus/AutoCAD 2008 rus sp1
Makswell вне форума  
 
Непрочитано 19.05.2012, 12:29
#492
VVA

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


SLADE, Makswell, Выложите пример:
1. Excel файла с исходными данными
2. Dwg файл с динамическим блоком
3. И сами лиспы
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 19.05.2012, 20:12
#493
SLADE

проектировщик-новобранец
 
Регистрация: 14.09.2005
Minsk
Сообщений: 309


Выкладываю
Вложения
Тип файла: rar Desktop.rar (120.0 Кб, 69 просмотров)
SLADE вне форума  
 
Непрочитано 21.05.2012, 09:08
#494
Makswell

Инженер-строитель
 
Регистрация: 15.08.2007
Киров
Сообщений: 2,251


Вот от меня файлы. Для работы лиспа нужна папка d:\M-CAD\DCenter\Lookup\.
Вложения
Тип файла: zip files.zip (46.8 Кб, 56 просмотров)
Makswell вне форума  
 
Непрочитано 23.05.2012, 15:35
#495
VVA

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


С вашими файлами чего-то не получается. У меня есть давнишний вариант заполнения LoockUp из Bedit. Подредактировал его чуток. Протестируйте. Lisp, пример и видео в архиве
Вложения
Тип файла: zip Lookup.zip (3.69 Мб, 164 просмотров)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 23.05.2012, 19:48
#496
SLADE

проектировщик-новобранец
 
Регистрация: 14.09.2005
Minsk
Сообщений: 309


Володя спасибо за попытку, не прокатило, видно они что -то поменяли с 2012 версии.
Придется пользоваться для импорта 2008 автокадом
SLADE вне форума  
 
Непрочитано 23.05.2012, 20:54
#497
VVA

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


SLADE,Проверь, плз, работает ли lisp #495 в 2008 Автокаде. Я тестировал на 2009 и 2011. По крайней мере lookup заполнялся. 2012 у меня нет. При наличии времени попробую завтра протестировать.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 23.05.2012, 22:22
#498
SLADE

проектировщик-новобранец
 
Регистрация: 14.09.2005
Minsk
Сообщений: 309


2008 пока не ставил, на выходных поставлю, проверю
SLADE вне форума  
 
Непрочитано 24.05.2012, 08:58
#499
Makswell

Инженер-строитель
 
Регистрация: 15.08.2007
Киров
Сообщений: 2,251


Цитата:
Сообщение от VVA Посмотреть сообщение
Протестируйте. Lisp,
Протестировал. К сожалению всё по-старому.

Цитата:
Команда: (LOAD "D:/rrrrrrrrr/Excel-Lookup Bedit mod VVA.lsp") Type in command
line Excel-Lookup or EL (short command)

Команда: EL

28
nil


Цитата:
Команда: (LOAD "D:/rrrrrrrrr/Excel-Lookup Bedit mod VVA.lsp") Type in command
line Excel-Lookup or EL (short command)

Команда: el

28
(302 . "550") (302 . "550") (302 . "2Ф 12.9-2") (302 . "Серия 1.020-1/83 вып.
1-1") (302 . "2100") (302 . "18") (302 . "1500") (302 . "1500") (302 . "1460")
(302 . "1460") (302 . "940") (302 . "940") (302 . "900") (302 . "900") (302 .
"550") (302 . "550") (302 . "2Ф 15.9-1") (302 . "Серия 1.020-1/83 вып. 1-1")
(302 . "3000") (302 . "19") (302 . "1500") (302 . "1500") (302 . "1460") (302 .
"1460") (302 . "940") (302 . "940") (302 . "900") (302 . "900") (302 . "550")
(302 . "550") (302 . "2Ф 15.9-2") (302 . "Серия 1.020-1/83 вып. 1-1") (302 .
"3000") (302 . "20") (302 . "1800") (302 . "1800") (302 . "1760") (302 .
"1760") (302 . "940") (302 . "940") (302 . "900") (302 . "900") (302 . "550")
(302 . "550") (302 . "2Ф 18.9-1") (302 . "Серия 1.020-1/83 вып. 1-1") (302 .
"4000") (302 . "21") (302 . "1800") (302 . "1800") (302 . "1760") (302 .
"1760") (302 . "940") (302 . "940") (302 . "900") (302 . "900") (302 . "550")
(302 . "550") (302 . "2Ф 18.9-2") (302 . "Серия 1.020-1/83 вып. 1-1") (302 .
"4000") (302 . "22") (302 . "1800") (302 . "1800") (302 . "1760") (302 .
"1760") (302 . "940") (302 . "940") (302 . "900") (302 . "900") (302 . "550")
(302 . "550") (302 . "2Ф 18.9-3") (302 . "Серия 1.020-1/83 вып. 1-1") (302 .
"4000") (302 . "23") (302 . "1800") (302 . "1800") (302 . "1760") (302 .
"1760") (302 . "940") (302 . "940") (302 . "900") (302 . "900") (302 . "550")
(302 . "550") (302 . "2Ф 18.11-1") (302 . "Серия 1.020-1/83 вып. 1-2") (302 .
"4500") (302 . "24") (302 . "2100") (302 . "2100") (302 . "2060") (302 .
"2060") (302 . "940") (302 . "940") (302 . "900") (302 . "900") (302 . "550")
(302 . "550") (302 . "2Ф 21.9-1") (302 . "Серия 1.020-1/83 вып. 1-1") (302 .
"5300") (302 . "25") (302 . "2100") (302 . "2100") (302 . "2060") (302 .
"2060") (302 . "940") (302 . "940") (302 . "900") (302 . "900") (302 . "550")
(302 . "550") (302 . "2Ф 21.9-2") (302 . "Серия 1.020-1/83 вып. 1-1") (302 .
"5300") (302 . "26") (302 . "2100") (302 . "2100") (302 . "2060") (302 .
"2060") (302 . "940") (302 . "940") (302 . "900") (302 . "900") (302 . "550")
(302 . "550") (302 . "2Ф 21.9-3") (302 . "Серия 1.020-1/83 вып. 1-1") (302 .
"5300") (302 . "27") (302 . "2100") (302 . "2100") (302 . "2060") (302 .
"2060") (302 . "940") (302 . "940") (302 . "900") (302 . "900") (302 . "550")
(302 . "550") (302 . "2Ф 21.11-1") (302 . "Серия 1.020-1/83 вып. 1-1") (302 .
"5800") (303 . "") (94 . 130) (95 . 40) (96 . 2) (282 . 0) (305 . "Custom")
(281 . 0) (304 . "UpdatedDistance") (303 . "") (94 . 1) (95 . 40) (96 . 2) (282
. 0) (305 . "Custom") (281 . 0) (304 . "UpdatedDistance") (303 . "") (94 . 8)
(95 . 40) (96 . 2) (282 . 0) (305 . "Custom") (281 . 0) (304 .
"UpdatedDistance") (303 . "") (94 . 53) (95 . 40) (96 . 2) (282 . 0) (305 .
"Custom") (281 . 0) (304 . "UpdatedDistance") (303 . "") (94 . 64) (95 . 40)
(96 . 2) (282 . 0) (305 . "Custom") (281 . 0) (304 . "UpdatedDistance") (303 .
"") (94 . 73) (95 . 40) (96 . 2) (282 . 0) (305 . "Custom") (281 . 0) (304 .
"UpdatedDistance") (303 . "") (94 . 80) (95 . 40) (96 . 2) (282 . 0) (305 .
"Custom") (281 . 0) (304 . "UpdatedDistance") (303 . "") (94 . 91) (95 . 40)
(96 . 2) (282 . 0) (305 . "Custom") (281 . 0) (304 . "UpdatedDistance") (303 .
"") (94 . 98) (95 . 40) (96 . 2) (282 . 0) (305 . "Custom") (281 . 0) (304 .
"UpdatedDistance") (303 . "") (94 . 109) (95 . 40) (96 . 2) (282 . 0) (305 .
"Custom") (281 . 0) (304 . "UpdatedDistance") (303 . "") (94 . 116) (95 . 40)
(96 . 2) (282 . 0) (305 . "Custom") (281 . 0) (304 . "UpdatedDistance") (303 .
"") (94 . 138) (95 . 1) (96 . 0) (282 . 1) (305 . "Настройка") (281 . 1) (304 .
"lookupString") (303 . "") (94 . 143) (95 . 1) (96 . 0) (282 . 1) (305 .
"Настройка") (281 . 1) (304 . "lookupString") (303 . "") (94 . 147) (95 . 1)
(96 . 0) (282 . 1) (305 . "Настройка") (281 . 1) (304 . "lookupString") (280 .
1)) 0") (302 . "900") (302 . "900") (302 . "550") (302 . "550") (302 . "2Ф
12.9-1") (302 . "Серия 1.020-1/83 вып. 1-1") (302 . "2100") (302 . "17") (302 .
"1200") (302 . "1200") (302 . "1200") (302 . "1200") (302 . "900") (302 .
"900") (302 . "900") (302 . "900")
Makswell вне форума  
 
Непрочитано 24.05.2012, 23:31
#500
BetoN

Инженер-проектировщик
 
Регистрация: 01.10.2008
Минск
Сообщений: 12


lisp #495
2012 - не работает
2008 - работает
BetoN вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Создание дополнительных параметров Visibility Set в динамических блоках.

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как с помощью vba начертить линию vasyavip Программирование 77 09.10.2008 23:17
Femap и VBA Makson Программирование 11 05.08.2008 14:54
Создание списка чертежей из Sheet Set Manager krokh AutoCAD 2 20.06.2008 16:46