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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Вшить sld в vlx при компиляции

Вшить sld в vlx при компиляции

Ответ
Поиск в этой теме
Непрочитано 14.08.2018, 09:41 #1
Вшить sld в vlx при компиляции
tujn08
 
Регистрация: 26.12.2013
Сообщений: 284

Задача простая- надо картинку добавить в компилированный vlx, что бы не таскать отдельно. Возможно ли?
Просмотров: 3165
 
Непрочитано 14.08.2018, 11:26
#2
Setvar


 
Регистрация: 10.02.2007
Москва
Сообщений: 611


Задача-то простая, да решение для vlx отсутствует.
Setvar вне форума  
 
Непрочитано 14.08.2018, 11:28
#3
Кулик Алексей aka kpblc
Moderator

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


Кто сказал, что отсутствует? Картинку сохранить с расширением txt, добавить в ресурсы, при запуске записывать соответствующий sld - в чем проблема?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 14.08.2018, 11:37
#4
tujn08


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


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Кто сказал, что отсутствует? Картинку сохранить с расширением txt, добавить в ресурсы, при запуске записывать соответствующий sld - в чем проблема?
кратенко "код" можно?
Не понятно только как содержимое txt вытащить целиком.
В целом круто!
tujn08 вне форума  
 
Непрочитано 14.08.2018, 11:51
#5
Setvar


 
Регистрация: 10.02.2007
Москва
Сообщений: 611


Действительно, Алексей давай пример кода и тогда увидим в чем проблема и есть ли она.
Setvar вне форума  
 
Непрочитано 14.08.2018, 12:08
#6
Кулик Алексей aka kpblc
Moderator

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


Только принцип:
через vl-get-resource достаешь имя ресурса
через функцию наподобие
Код:
[Выделить все]
 (defun fun_writestream (bin lst / f fs st s0) ;|
bin -> куда писать. Каталог для файла уже должен существовать
lst -> список битов для записи
|;  (if (not lst)
      (setq lst "")
      ) ;_ end of if
    (null (vl-catch-all-error-p
            (vl-catch-all-apply '(lambda ()
                                   (setq fs (vlax-get-or-create-object "Scripting.FileSystemObject"))
                                   (setq st (vlax-invoke fs 'createtextfile bin -1 0))
                                   (setq f (vlax-invoke fs 'getfile bin))
                                   (vlax-invoke st 'write lst)
                                   (vlax-invoke st 'close)
                                   (vlax-release-object f)
                                   (vlax-release-object st)
                                   (vlax-release-object fs)
                                   ) ;_ end of lambda
                                ) ;_ end of vl-catch-all-apply
            ) ;_ end of vl-catch-all-error-p
          ) ;_ end of null
    ) ;_  end of defun
записать файл
Пример вызова:
Код:
[Выделить все]
 (fun_writestream "c:\\slide.sld" (vl-get-resource "slide"))
И дальше работай как душе угодно.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 14.08.2018, 12:20
#7
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,004


Ну и может оказаться, что выполнение Windows Script Host
Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
(setq fs (vlax-get-or-create-object "Scripting.FileSystemObject"))
просто быть заблокированным службой IT/сисадмином.
Сергей812 вне форума  
 
Непрочитано 14.08.2018, 12:24
#8
Кулик Алексей aka kpblc
Moderator

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


Может, я и не спорю. Правда, мне сложно представить, как при блокировке подобных сервисов можно работать, но мало ли чего я не знаю!
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 14.08.2018, 12:44
#9
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,004


Offtop:
Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
как при блокировке подобных сервисов можно работать
Переходить на .Net, он перекрывает функционал WSH)) Заблокированный Фреймворк вообще не могу себе представить на рабочей машине)
Сергей812 вне форума  
 
Автор темы   Непрочитано 14.08.2018, 13:54
#10
tujn08


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


С этим ни чего не вышло у меня. Просто текст напишу.
tujn08 вне форума  
 
Непрочитано 14.08.2018, 13:55
#11
Setvar


 
Регистрация: 10.02.2007
Москва
Сообщений: 611


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
И дальше работай как душе угодно.
Душе угодно, чтобы слайд .sld был "вшит" в компилированный файл .vlx и больше нигде не присутствовал и не создавался ни в каких ресурсах. Мастер сборки приложения не позволяет добавлять файлы слайдов.
Setvar вне форума  
 
Автор темы   Непрочитано 14.08.2018, 14:08
#12
tujn08


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


Есть некий пример:
картинку вшивают в lisp,а потом генерируют- я так понял. Но этот код я не раскурю щас.
Код:
[Выделить все]
 (setq mode_image
                        (eval
                            (list 'lambda '( key mode )
                                (list 'cond
                                   '(   (= 1 mode)
                                        (start_image key)
                                        (fill_image 0 0 (dimx_tile key) (dimy_tile key) -15)
                                        (end_image)
                                        (mode_tile key mode)
                                    )
                                    (list 't
                                       '(start_image key)
                                       '(fill_image 0 0 (dimx_tile key) (dimy_tile key) -15)
                                        (list 'mapcar ''vector_image (list 'quote x) (list 'quote y) (list 'quote x) (list 'quote y)
                                           '(cond
                                                (   (member key '("scl-pik" "arr-pik" "txt-pik" "msk-pik"))
                                                   '(
                                                        -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 095 096 096 096 096 096 096 096 096 095 -15 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 096 254 254 254 254 254 254 254 254 096 -15 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 096 063 063 -15 063 063 063 063 063 096 -15 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 096 063 -15 250 -15 063 063 063 063 096 -15 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 096 -15 250 250 -15 063 063 063 063 096 -15 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 254 250 -15 250 -15 063 063 063 063 096 -15 -15 -15 -15
                                                        254 254 254 254 254 254 250 -15 -15 250 -15 063 063 063 063 096 254 254 254 254
                                                        254 254 254 254 254 250 -15 -15 -15 250 -15 063 063 063 063 096 254 254 254 254
                                                        254 254 254 254 250 -15 -15 -15 -15 250 -15 063 063 063 063 096 254 254 254 254
                                                        254 254 254 250 250 250 -15 -15 -15 250 -15 063 063 063 063 096 254 254 254 254
                                                        254 254 254 254 254 250 -15 250 -15 250 -15 063 063 063 063 096 254 254 254 254
                                                        254 254 254 254 254 250 -15 250 250 250 -15 063 063 063 063 096 254 254 254 254
                                                        254 254 254 254 250 -15 250 254 254 250 254 096 096 096 096 095 254 254 254 254
                                                        254 254 254 254 250 -15 250 254 254 254 254 254 254 254 254 254 254 254 254 254
                                                        254 254 254 254 254 250 254 254 254 254 254 254 254 254 254 254 254 254 254 254
                                                        254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254
                                                        -15 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 -15
                                                    )
                                                )
                                                (
                                                   '(
                                                        -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 -15 095 096 096 096 096 096 095 -15 -15 -15 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 -15 096 063 063 063 063 063 096 -15 -15 -15 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 -15 096 254 254 063 063 063 096 -15 -15 -15 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 -15 253 250 254 063 063 063 096 254 008 254 -15 -15 -15
                                                        -15 -15 -15 -15 -15 -15 -15 250 250 254 063 063 063 096 -15 252 251 254 -15 -15
                                                        -15 -15 -15 -15 -15 -15 250 -15 250 254 063 063 063 096 -15 254 252 008 -15 -15
                                                        254 254 254 254 254 250 -15 -15 250 253 096 096 096 095 -15 254 254 149 254 254
                                                        254 254 254 254 250 -15 -15 -15 250 -15 254 -15 -15 -15 -15 254 254 149 254 254
                                                        254 254 254 250 -15 -15 -15 -15 250 -15 008 253 -15 -15 -15 -15 253 008 254 254
                                                        254 254 250 250 250 -15 -15 -15 250 254 254 251 253 -15 -15 253 251 254 254 254
                                                        254 254 254 254 250 -15 250 -15 250 254 254 254 008 149 149 008 254 254 254 254
                                                        254 254 254 254 250 -15 250 250 250 254 254 254 254 254 254 254 254 254 254 254
                                                        254 254 254 250 -15 250 254 254 250 254 254 254 254 254 254 254 254 254 254 254
                                                        254 254 254 250 -15 250 254 254 254 254 254 254 254 254 254 254 254 254 254 254
                                                        254 254 254 254 250 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254
                                                        254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254
                                                        -15 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 254 -15
                                                    )
                                                )
                                            )
                                        )
                                       '(end_image)
                                       '(mode_tile key mode)
                                    )
                                )
                               'mode
                            )
                        )
                    )
tujn08 вне форума  
 
Автор темы   Непрочитано 14.08.2018, 14:21 Собственно то, что получилось..
#13
tujn08


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


Аналог другой программы на vba
Причина:
  • не работала в 2018 каде и выше;
  • список слоев в разброс;
  • список слоев одной строкой.
Следствие:
v1.0
- удобный выбор слоя в списке
- настройки выбора
PS
Продолжение следует:
-множественный выбор из списка слоя
-выбор многоугольником
-индивидуальные настройки расчетов под каждый слой
-табличные отчеты
Вложения
Тип файла: rar line_length.rar (4.3 Кб, 12 просмотров)
tujn08 вне форума  
 
Непрочитано 14.08.2018, 14:39
#14
Кулик Алексей aka kpblc
Moderator

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


tujn08, ты это к чему?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 14.08.2018, 14:42
#15
tujn08


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


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
tujn08, ты это к чему?
На общественный суд...
tujn08 вне форума  
 
Непрочитано 14.08.2018, 15:05
#16
Сергей812


 
Регистрация: 10.08.2013
Сообщений: 11,004


tujn08, лучше сюда )

----- добавлено через ~2 мин. -----
Цитата:
Сообщение от tujn08 Посмотреть сообщение
Аналог другой программы на vba
какой программы? Мысли читать не умеем)
Сергей812 вне форума  
 
Непрочитано 14.08.2018, 15:29
#17
Кулик Алексей aka kpblc
Moderator

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


tujn08, без исходников, без хоть какого-то readme? Хоть что программа делает?
P.S. vlx/fas без исходников качать не стану из принципа.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 14.08.2018, 16:10
#18
Boxa

КЖ; C#
 
Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,588


Посмотрел внутри, что то вшитого ресурса не увидел... если tujn08 хотел показать как надо делать, то не показал...

Offtop:
Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
vlx/fas без исходников качать не стану из принципа.
А я вот, скачал. Не запускал. Однако, там внутри написано: "Создано для: Данила Александровича".
Программа создана персонально для кого-то, но выкладывает ее на форум разработчик, а не тот, для кого она была написана...
странно как-то и ИМХО как-то не этично, что ли...
Boxa вне форума  
 
Непрочитано 14.08.2018, 17:07
#19
koMon


 
Блог
 
Регистрация: 26.09.2017
Сообщений: 1,665


Цитата:
Сообщение от Boxa Посмотреть сообщение
Посмотрел внутри, что то вшитого ресурса не увидел...
так он и не вшивал, а нарисовал vector-image-ом
koMon вне форума  
 
Непрочитано 14.08.2018, 21:00
#20
Alan

CAD
 
Регистрация: 28.08.2003
Киев
Сообщений: 1,835
<phrase 1=


Цитата:
Сообщение от tujn08 Посмотреть сообщение
Задача простая- надо картинку добавить в компилированный vlx, что бы не таскать отдельно. Возможно ли?
Ну мы засовывали файлы иконок BMP в DLL-ку, но это другой файл...
Всё таки в одном файле ВСЁ не потаскаешь, ИМХО
__________________
По теории майский жук летать не может.
Но он этого не знает. И летает...

Последний раз редактировалось Alan, 14.08.2018 в 21:34.
Alan вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Вшить sld в vlx при компиляции

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Почему при компиляции модулей VBA переменные типа Collection вызывают ошибку? МишаИнженер Программирование 1 03.01.2011 20:56