"Склад3D" - ActiveX-компонента для 1С [DEMO]

06.05.09

Разработка - Работа с интерфейсом

Демонстрация возможности создания визуального отображения размещения
товара на складе.
Так же использование 3Д объектов в 1С, на примере Кинозала 3D (http://infostart.ru/projects/4030/ ), спасибо biv75

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование SM По подписке [?]
Демо
.1234947606 27,58Kb
412
412
0 SM
Скачать

*** Для работы компоненты потребуется установленный Microsoft .NET Framework 3.5, который можно скачать отсюда.
http://www.microsoft.com/downloads/details.aspx?familyid=ab99342f-5d1a-413d-8319-81da479ab0d7&displaylang=en

и зарегистрировать компоненту в Windows - запустить reg.bat
(для удаления информации о компоненте в Windows - запустить unreg.bat)
или использовать совместно с хранилищем внешних компонент: //infostart.ru/projects/2863/

Использование мышки: зажать левую кнопку мышки для вращения,
использовать колесо прокрутки для зума,
правая кнопка мыши на объекте - его информация.

*** Добавление на форму 1С:

v7: Использовать 1С++:

Перем Склад3Д;
Процедура ПослеОткрытия() Склад3Д = СоздатьОбъект("АктивИкс"); 
  Склад3Д.УстановитьАтрибут(Форма, "АктХ"); 
//"АктХ" - идентификатор элемента диалога, на месте которого будет создан элемент ActiveX. //только для реквизитов диалога типа "Текст". Склад3Д.СоздатьЭУ("Душелов.Склад3D"); 
  Склад3Д.УстановитьФокус();
КонецПроцедуры //Событие ПриИзмененииПозицииКамеры Процедура АктХ_ПриИзмененииПозицииКамеры(x, y, z, Дистанция) КонецПроцедуры 


//****

v8: Меню "Форма" - "Вставить ActiveX..." - Выбрать элемент "Душелов.Склад3D"

*** События:

- ПриИзмененииПозицииКамеры(x, y, z, Дистанция)

*** Методы:

ОБЪЕКТЫ:

   ДобавитьКонтейнер(x, y, z, Высота, Ширина, Глубина, a, r, g, b, Прозрачность); //a,r,g,b - цвет ДобавитьСтеллаж(x, y, z, ВысотаЯчейки, ШиринаЯчейки, ГлубинаЯчейки, КоличествоЯчеекВРяде, КоличествоРядов); //a,r,g,b - цвет ДобавитьЯчейкуСтеллажа(x, y, z, Высота, Ширина, Глубина, a, r, g, b, Прозрачность);
   ДобавитьГоризонтальнуюПанель(Имя, x, y, z, Ширина, Глубина, a, r, g, b, Прозрачность);


КАМЕРА:

   УстановитьПозициюКамеры(x, y, z);
   УстановитьZoom(Дистанция);



*** ИСТОРИЯ:

17.09.2008:

- Добавил ряд новых методов и событие (треуется перерегистрация компоненты reg.bat)

16.09.2008:

- ДЕМО-версия

См. также

Работа с интерфейсом Программист Платформа 1С v8.3 Конфигурации 1cv8 1С:ERP Управление предприятием 2 Платные (руб)

Обработка предназначена для создания и управления дашбордами.

2400 руб.

29.06.2020    17678    24    6    

38

Работа с интерфейсом Программист Платформа 1С v8.3 Бесплатно (free)

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

27.05.2024    5467    smielka    37    

96

Работа с интерфейсом Платформа 1С v8.3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 Бесплатно (free)

Добавьте новогоднего настроения! Расширение создает декорацию в виде гирлянды на некоторых формах объектов.

27.12.2023    12514    789    elcoan    47    

110

Инструментарий разработчика Работа с интерфейсом Программист Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Подходит для создания web-страниц для замены управляемых форм 1С, красивых отчетов, интерфейса мобильного приложения на платформе 1С и для простых страниц веб-сайтов.

2 стартмани

10.04.2023    10697    158    acces969    31    

120

Работа с интерфейсом Программист Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

"MVC плохо применима в 1С" - познакомьтесь с моделью состояния и, возможно, ваше мнение поменяется! Представленное решение является эволюционным развитием идеи реализации MVC для 1С. В новой версии добавлены DSL для описания модели состояния, а также параметризация свойств параметров и элементов формы.

1 стартмани

05.07.2022    4631    kalyaka    6    

32

Работа с интерфейсом Платформа 1С v8.3 Платные (руб)

Подсистема условного оформления элементов форм (далее подсистема) предназначена для настройки оформления элементов форм (видимость, доступность, цвет фона, цвет текста и прочее) в пользовательском режиме 1С. Также подсистему возможно использовать для ограничения доступа к реквизитам формы для определенных пользователей (или групп пользователей).

6000 руб.

18.01.2022    9388    1    2    

6
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Душелов 4018 17.11.08 01:04 Сейчас в теме
Разработка была не время остановлена, теперь выложил снова.
6. SvSoft 80 28.11.08 08:06 Сейчас в теме
(1) А расширение функционала какое-нить планируется в перспективе?
7. Душелов 4018 28.11.08 09:05 Сейчас в теме
(6) В перспективе - да. Есть ряд задумок, которые будут добавлены.
Одна из них - визуальная дефрагментация ;)
8. SvSoft 80 28.11.08 10:47 Сейчас в теме
(7) А насколько близка сия перспектива?
визуальная дефрагментация - what is it?
9. Душелов 4018 28.11.08 10:49 Сейчас в теме
(8) Складская логистика.
Близка? Как начнется практическое внедрение, тогда... Думаю, что не в этом году, хотя кто знает...
2. Душелов 4018 17.11.08 01:04 Сейчас в теме
В комплекте идут демо для 7.7 и 8.1
3. kitt 323 17.11.08 08:04 Сейчас в теме
можно глупый вопрос))?
a, r, g, b, Прозрачность - в чем разница между а и Прозрачность?
я думал, что в модели argb альфа-канал - это и есть прозрачность..
4. Душелов 4018 17.11.08 11:13 Сейчас в теме
(3) Это так работает фреймворк 3.5 ;) Там есть такой параметр.
5. Душелов 4018 17.11.08 17:19 Сейчас в теме
(3) Видимо это свойство используется, когда на объект текстура накладывается, у которой нет альфа-канала.
10. SvSoft 80 02.12.08 09:17 Сейчас в теме
А текстуры прикрутить не думал? и на сколько это сложно?
11. Душелов 4018 02.12.08 09:21 Сейчас в теме
(10) Текстуры можно, и, в принципе, не сложно.
12. SvSoft 80 03.12.08 13:26 Сейчас в теме
Нуууу... тогда ждем-с :-)
13. Душелов 4018 03.12.08 13:28 Сейчас в теме
(12) Вопрос в производительности... Я сознательно упростил формирование стеллажей, т.к. собирать из коробок - и несколько тысяч ячеек - тормозило довольно прилично. А если еще и текстуры коробок налепить... ;)

Конечно, можно оптимизировать, но для этого придется уйти в эту технологию с головой, а времени у меня столько нет.
14. iliasay 03.12.08 15:32 Сейчас в теме
Коллега. А ваше решение можно прикрутить не к 1С. А к WMS. Что бы по адресному пространству описанному в БД системы. можно было загрузить модель. На модели используя поисковик по критериям находить объекты сподсвечиванием нахождения товара или группы товаров
15. Душелов 4018 03.12.08 15:43 Сейчас в теме
(14) Прикрутить можно к тем программам, которые используют ActivX технологию.
16. iliasay 05.12.08 15:54 Сейчас в теме
Коллега, а можете мне написать на iliasay@list.ru о возможности сотрудничества. Хотелось бы с Вами пообщаться вне рамок форума.
17. iliasay 13.12.08 14:12 Сейчас в теме
Коллега приветствую. Я вам на ваш мейл письмо переслал. Посмотрите плиз
18. inkko 25.01.09 19:22 Сейчас в теме
Очень интересно, но нужно добавить функциональности, иначе малоприменимо.
Расположение, количество стеллажей;
Свойства стеллажа, ячейки - (МОЛ, дата последнего обновления, тип продукции);
поиск товара по подсвеченной ячейке

19. Душелов 4018 26.01.09 12:05 Сейчас в теме
(18) Это не для бесплатной разработки :)
20. inkko 27.01.09 23:36 Сейчас в теме
21. alex_4x 87 03.02.09 21:06 Сейчас в теме
Супер реализация!
мне склад не нужен, но вот посмотреть заголовочные файлы и оснастку для c# было бы очень интересно. Можно исходник вызова просто графического окна с желательно d3d в виде active-X компонента ?

графики можно как красиво делать, всякие объемные опять же....
22. Душелов 4018 13.02.09 19:34 Сейчас в теме
Для получения демо-версии или покупки обращайтесь по контактам, указанным в профиле.
23. vovchai 06.03.09 09:51 Сейчас в теме
сколько стоит не демо?
24. orvv 22.04.09 14:37 Сейчас в теме
25. boich 25.04.09 13:03 Сейчас в теме
и сколько же стоит? Где ответ?
26. Душелов 4018 25.04.09 17:19 Сейчас в теме
(25) Ни сколько. Это - демонстрация возможности создания 3д-склада.
27. Душелов 4018 06.05.09 10:45 Сейчас в теме
Кинозал 3D, сделанный biv75 на этой компоненте http://infostart.ru/projects/4030/

Понравилось! :)
28. d.snissarenko 152 06.05.09 11:12 Сейчас в теме
{Форма.Форма(80)}: Ошибка при вызове метода контекста (УстановитьПозициюКамеры): Произошла исключительная ситуация (mscorlib): Попытка деления на нуль.
ЭлементыФормы.ЭлементУправления1.УстановитьПозициюКамеры(КамераX, КамераY, КамераZ);
по причине:
Произошла исключительная ситуация (mscorlib): Попытка деления на нуль.
30. Душелов 4018 06.05.09 11:36 Сейчас в теме
(28) Это при каких действиях?
И всю трассировку мне не надо ;) Достаточно описания ошибки.
29. d.snissarenko 152 06.05.09 11:14 Сейчас в теме
System.OverflowException не обработано
Message="Переполнение в результате выполнения арифметической операции."
Source="mscorlib"
StackTrace:
в System.RuntimeType.ForwardCallToInvokeMember(String memberName, BindingFlags flags, Object target, Int32[] aWrapperTypes, MessageData& msgData)
в Душелов.Склад3D.Sklad3DEvents.ПриИзмененииПозицииКамеры(Double X, Double Y, Double Z, Double Дистанция)
в Душелов.Склад3D.Sklad3D_ПриИзмененииПозицииКамеры(Double x, Double y, Double z, Double dist)
в Душелов.Sklad3D.OnRender(DrawingContext drawingContext)
в Душелов.Sklad3D.OnMouseMove(Object sender, MouseEventArgs me)
в System.Windows.Input.MouseEventArgs.InvokeEventHandler(Delegate genericHandler, Object genericTarget)
в System.Windows.RoutedEventArgs.InvokeHandler(Delegate handler, Object target)
в System.Windows.RoutedEventHandlerInfo.InvokeHandler(Object target, RoutedEventArgs routedEventArgs)
в System.Windows.EventRoute.InvokeHandlersImpl(Object source, RoutedEventArgs args, Boolean reRaised)
в System.Windows.UIElement.RaiseEventImpl(DependencyObject sender, RoutedEventArgs args)
в System.Windows.UIElement.RaiseEvent(RoutedEventArgs args, Boolean trusted)
в System.Windows.Input.InputManager.ProcessStagingArea()
в System.Windows.Input.InputManager.ProcessInput(InputEventArgs input)
в System.Windows.Input.InputProviderSite.ReportInput(InputReport inputReport)
в System.Windows.Interop.HwndMouseInputProvider.ReportInput(IntPtr hwnd, InputMode mode, Int32 timestamp, RawMouseActions actions, Int32 x, Int32 y, Int32 wheel)
в System.Windows.Interop.HwndMouseInputProvider.FilterMessage(IntPtr hwnd, Int32 msg, IntPtr wParam, IntPtr lParam, Boolean& handled)
в System.Windows.Interop.HwndSource.InputFilterMessage(IntPtr hwnd, Int32 msg, IntPtr wParam, IntPtr lParam, Boolean& handled)
в MS.Win32.HwndWrapper.WndProc(IntPtr hwnd, Int32 msg, IntPtr wParam, IntPtr lParam, Boolean& handled)
в MS.Win32.HwndSubclass.DispatcherCallbackOperation(Object o)
в System.Windows.Threading.ExceptionWrapper.InternalRealCall(Delegate callback, Object args, Boolean isSingleParameter)
в System.Windows.Threading.ExceptionWrapper.TryCatchWhen(Object source, Delegate callback, Object args, Boolean isSingleParameter, Delegate catchHandler)
в System.Windows.Threading.Dispatcher.WrappedInvoke(Delegate callback, Object args, Boolean isSingleParameter, Delegate catchHandler)
в System.Windows.Threading.Dispatcher.InvokeImpl(DispatcherPriority priority, TimeSpan timeout, Delegate method, Object args, Boolean isSingleParameter)
в System.Windows.Threading.Dispatcher.Invoke(DispatcherPriority priority, Delegate method, Object arg)
в MS.Win32.HwndSubclass.SubclassWndProc(IntPtr hwnd, Int32 msg, IntPtr wParam, IntPtr lParam)
InnerException:

31. d.snissarenko 152 06.05.09 13:32 Сейчас в теме
Это открываю демку, долго долго открывает и сразу как открыл бегунок с прозрачностью решил подвинуть
32. d.snissarenko 152 06.05.09 13:32 Сейчас в теме
34. biv75 06.05.09 13:34 Сейчас в теме
(32) Может видюха не тянет, у меня из-за видюхи вылетало
33. d.snissarenko 152 06.05.09 13:33 Сейчас в теме
Прозрачность на середину и бегунком оси икс влевоправо и вылетает
35. d.snissarenko 152 06.05.09 13:35 Сейчас в теме
по поводу трассировки у меня это привело к зависанию 1ски в результате jit стартовал зачем-то :)
36. d.snissarenko 152 06.05.09 13:35 Сейчас в теме
ага в Hl2 играть тянет а 3 коробки показать нет :)
37. Пятница 22.05.11 19:52 Сейчас в теме
Доброго времени суток!
Хочу прикрепить к своей базе внешнюю обработку, но никак не получается. Обработка написана для 7.7 и 8.1. Я пытаюсь на 8.1 (Ошибка: Внешняя обработка не может быть прочитана данной версией программы. У меня 8.1.15.14) и 8.2 (Ошибка: отсутствуют модули некоторых процедур).

Обработку добавляю:
Конфигурация->Обработки->Вставить внешнюю обработку отчет.. ->Склад3D

Подскажите как решить проблему эту? (Желательно с указанием четких инструкций).
38. bigalexis 10.10.11 11:37 Сейчас в теме
Очень интересно, честно не ожидал что можно делать такое в 1С
39. пользователь 01.02.12 14:45
Сообщение было скрыто модератором.
...
40. cnn_diablo 20.07.12 10:37 Сейчас в теме
Аналогичная ошибка:
{Форма.Форма(80)}: Ошибка при вызове метода контекста (УстановитьПозициюКамеры): Произошла исключительная ситуация (mscorlib): Попытка деления на нуль.
ЭлементыФормы.ЭлементУправления1.УстановитьПозициюКамеры(КамераX, КамераY, КамераZ);
по причине:
Произошла исключительная ситуация (mscorlib): Попытка деления на нуль.
41. Ёпрст 1064 20.07.12 10:40 Сейчас в теме
(40) Васи больше нет, так что уже никто не исправит ...
42. cnn_diablo 20.07.12 12:23 Сейчас в теме
В каком смысле нет? Больше никто этой темой (3D в 1С) не занимается?
43. Ёпрст 1064 20.07.12 12:29 Сейчас в теме
44. cnn_diablo 20.07.12 12:43 Сейчас в теме
Жалко, интересные вещи делал....
45. cnn_diablo 20.07.12 13:39 Сейчас в теме
Ссылка на кинотеатр http://infostart.ru/projects/4030/ не открывается, есть ли возможность ее разблокировать?
46. darkvett 06.12.14 10:43 Сейчас в теме
Где можно найти исходники? Я бы с радостью продолжил работу Василия.
47. ya.Avoronov 115 12.12.14 13:17 Сейчас в теме
А у меня ситуация вот какая:
1) Скачал демку,
2) Microsoft .NET Framework 3.5 установил
3) Зарегистрировал компоненты на Windows XP;
4) Перезапустил компьютер;
5) Запустил обработку Склад3D.epf под 1С 8.2

Посыпались ошибки:
{Форма.Форма.Форма(СОРОК ТРИ)}: Метод объекта не обнаружен (ДобавитьГоризонтальнуюПанель)
	Склад3Д.ДобавитьГоризонтальнуюПанель("Основной склад", КоордX, КоордY, КоордZ, ШиринаПола, ГлубинаПола, 255, 192, 192, 192, ПрозрачностьПола);


Жаль, но методы не обнаружены. Помогите разобраться с проблемой. Все начиналось, так хорошо!
48. Aser2000Aser 08.06.17 11:05 Сейчас в теме
ПОнимаю, что поздно, но мало ли..может быть кто-нибудь ответит.
Не работает zoom, в чем может быть причина?
Оставьте свое сообщение