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

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

Защита DWG при передаче заказчику

Ответ
Поиск в этой теме
Непрочитано 28.12.2006, 17:14 1 | #1
Защита DWG при передаче заказчику
VVA
 
Инженер LISP
 
Минск
Регистрация: 11.05.2005
Сообщений: 6,990

Начну, как говорится, в старом.
Первый вариант лиспа для защиты чертежа путем трасировки объектов в линии и конвертации оных в текст.
Имеем:
- Чертеж, который можно распечатать
- Чертеж, в котором можно включать/отключать слои
- Чертеж, в котором можно создавать объекты или удалять
Невозможно:
- Пользоваться привязками, т.к объекты - тексты, что в принципе делает неинтересной работу с документом кроме как распечатать.

Пока-что не обрабатываются мультилии и сложные типы линий.

Вложения
Тип файла: rar 1167315503.rar (6.1 Кб, 2397 просмотров)


Последний раз редактировалось VVA, 03.11.2010 в 17:05. Причина: добавил vl-load-com
Просмотров: 51579
 
Непрочитано 28.12.2006, 17:35
#2
asys

архитектор
 
Регистрация: 10.08.2005
Ростов-на-Дону
Сообщений: 5,280


отличная идея пусть и с ограничениями, солидный камень в огород. Мой RESPЕCT автору
asys вне форума  
 
Непрочитано 28.12.2006, 17:54
#3
Никита В.

CAD Operator
 
Регистрация: 01.11.2005
Samara-Gorodok
Сообщений: 389


Да ладна - это нуно тока если заказчик хоть маленька в акаде смыслит......
А так все взорвать (включая тексты) присвоить всем примитивам св-ва по обьекту и переместить на слой 0, после чего основательно пропуржить и оверкилнуть файло!!!!!!!!!!!!!! :twisted: :twisted: :twisted: :twisted: :twisted:
Работать с файлом где даже тексты взорваны может тока очень настырный человек......... :wink: :wink: :wink: :wink: :wink:
__________________
АвтоКАД это не только электронный кульман,
Но и великий ГЕМОР
Никита В. вне форума  
 
Непрочитано 29.12.2006, 01:29
#4
{Smirnoff}

Инженер по системам безопасности
 
Регистрация: 23.11.2003
Рига
Сообщений: 1,099


На язык сама собой наворачивается избитая фраза - "всё гениальное просто". За такую идею, да плюс работающее исполнение - однозначный респект [sm202] [sm204]
{Smirnoff} вне форума  
 
Непрочитано 29.12.2006, 10:42
#5
ekzersist

инженер-механик
 
Регистрация: 24.07.2006
Таганрог
Сообщений: 155


Работал с поставщиками оборудования из италии и германии
немцы пробывали защитить файл многократным заблочиванием чертежа, после масштабирования в 1:1 и многократного аккуратного взрывания все встало на свои места но гемора было много
итальянцы вапще никак ни защищали чертежи все было в модели 1:1 приятно было работать
самая главная защита это дозированная выдача данных 8)
С наступающим!!!
__________________
Подпись неразборчива
ekzersist вне форума  
 
Непрочитано 29.12.2006, 11:09
#6
Юрий Губский

архитектура
 
Регистрация: 28.12.2005
Домодедово
Сообщений: 120


Цитата:
Сообщение от ekzersist
...
самая главная защита это дозированная выдача данных ...
Я тоже также считаю.
Как работали Штирлицы до компьютеров - мозги, фотоаппарат, бумага. И все самые страшные секреты успешно передавались и воспроизводились. Главное - идея, а остальное вопрос времени. Дураку и незащищенный файл не поможет. А тому, кто с головой без разницы в каком виде информация - если есть ответственность, то никто без обработки, переработки и проверки вслепую применять чужие наработки не будет. Так что на мой взгляд защита только увеличит время на обработку передаваемой информации - не более. Так что см. цитату
Юрий Губский вне форума  
 
Непрочитано 29.12.2006, 12:24
#7
retromancer

Инженер-конструктор МК --> Госслужащий --> Грумер хомячков
 
Регистрация: 21.06.2006
Сообщений: 1,079


Всю модель (в пределах чертежа или определённой части )заштриховать блеклой/фоновой (чуть заметной) штриховкой и всё взорвать ..:twisted:
з.ы. жёлтая в мелкую клеточку на "0"-слое сгодится. 8)
__________________
Страх лишает свободы выбора.
retromancer вне форума  
 
Непрочитано 29.12.2006, 13:26
#8
Neznayka


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


растерезация -> векторизация. рулить все будет.
Ну а потом удаление лишних вершин
Neznayka вне форума  
 
Непрочитано 29.12.2006, 13:36
#9
T-Yoke

Артиллерист - вертолётчик. Дипломированный инженер-механик. Technologist
 
Регистрация: 29.11.2004
Где-то около Москвы
Сообщений: 16,512
Отправить сообщение для T-Yoke с помощью Skype™


А в принципе оно надо?
Если с заказчиком постоянно работаю и друг другу свиней не подкладываем, то есть ли смысл в таком гимморе.
Ну передал я ему проект, и бумажном, и электронном виде. И что?
Если он деньги считает, то он понимает, что не за чертежи и модели электронные биться надо, а за ответственность проектировщика.
Если я за свои чертежи своей шкурой отвечаю, то за трижды красивые но содранные с чужого плеча никто ответственность не возьмет.
T-Yoke вне форума  
 
Непрочитано 29.12.2006, 14:28
#10
fermost


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


я делаю просто.
всё в pdf (многостраничный).
Видно, открывается везде и весит мало.
ведь это тоже электронная версия проекта? :wink:
fermost вне форума  
 
Непрочитано 29.12.2006, 14:34
#11
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,968


Цитата:
Сообщение от retromancer
Всю модель (в пределах чертежа или определённой части )заштриховать блеклой/фоновой (чуть заметной) штриховкой и всё взорвать ..:twisted:
з.ы. жёлтая в мелкую клеточку на "0"-слое сгодится. 8)
Гы и вы хотите сказать что тем самым защитите файл, я умаляю вас не смешите нас.
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
 
Непрочитано 24.01.2007, 09:52 Re: Защита DWG при передаче заказчику
#12
Владимир Егорьев


 
Сообщений: n/a


Цитата:
Сообщение от VVA
Начну, как говорится, в старом.
Первый вариант лиспа для защиты чертежа путем трасировки объектов в линии и конвертации оных в текст.
Имеем:
- Чертеж, который можно распечатать
- Чертеж, в котором можно включать/отключать слои
- Чертеж, в котором можно создавать объекты или удалять
Невозможно:
- Пользоваться привязками, т.к объекты - тексты, что в принципе делает неинтересной работу с документом кроме как распечатать.

Пока-что не обрабатываются мультилии и сложные типы линий.
[ATTACH]1167315503.rar[/ATTACH]
То что нужно для защиты от редактирования.Только ещё бы несколько функций .Например запрет на прорисовку примитивов.
 
 
Автор темы   Непрочитано 24.01.2007, 11:44
#13
VVA

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


Цитата:
>Например запрет на прорисовку примитивов
Это уже не ко мне, а к ребятам из Автодеска
VVA вне форума  
 
Непрочитано 24.01.2007, 11:48
#14
asys

архитектор
 
Регистрация: 10.08.2005
Ростов-на-Дону
Сообщений: 5,280


а мне прога понравилась, я недавно ее опробовал в перемешку с minsert блоками.
asys вне форума  
 
Автор темы   Непрочитано 24.01.2007, 13:31
#15
VVA

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


Как развитие я и предусматривал некий параноидальный уровень:
то, что осталось после обработки программой засунуть еще и в minsert блок
VVA вне форума  
 
Непрочитано 24.01.2007, 14:16
#16
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,968


Ага и потом еще пред тем как minsert блок запихивать все объекты перекинуть на слой Defpoints.
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
 
Непрочитано 24.01.2007, 14:32
#17
asys

архитектор
 
Регистрация: 10.08.2005
Ростов-на-Дону
Сообщений: 5,280


я линии все в текст загнал, а блоки и таблицы в минсерт. Остались размеры и тексты, пусть себе редактируют.
Да, еще хочу отметить такую особенность - при вызове команды обработка происходит не только в модели но и во всех ляутах :!:
asys вне форума  
 
Автор темы   Непрочитано 24.01.2007, 15:08
#18
VVA

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


Цитата:
при вызове команды обработка происходит не только в модели но и во всех ляутах
Так и было задумано, хотя если надо, можно ограничить только моделью
VVA вне форума  
 
Непрочитано 24.01.2007, 15:58
#19
Владимир Егорьев


 
Сообщений: n/a


Я дико извиняюсь,но что такое minsert блок по русски?
 
 
Непрочитано 24.01.2007, 16:03
#20
asys

архитектор
 
Регистрация: 10.08.2005
Ростов-на-Дону
Сообщений: 5,280


Цитата:
Сообщение от Владимир Егорьев
Я дико извиняюсь,но что такое minsert блок по русски?
Это такой блок с функцией масива, т.е. у него есть параметры "колисчество строк, столбцов", "расстояние между строками-столбцами" И он не бомбится, не редактируется, и безымянный он :P
asys вне форума  
 
Непрочитано 24.01.2007, 16:04
#21
Владимир Егорьев


 
Сообщений: n/a


Цитата:
Сообщение от Asys
Цитата:
Сообщение от Владимир Егорьев
Я дико извиняюсь,но что такое minsert блок по русски?
Это такой блок с функцией масива, т.е. у него есть параметры "колисчество строк, столбцов", "расстояние между строками-столбцами" И он не бомбится, не редактируется, и безымянный он :P
В F1 прочитать про него можно?И как в поиске правильно назвать?У меня русский 2006.Или эти блоки создаются с помощью лиспа?
 
 
Непрочитано 24.01.2007, 16:06
#22
asys

архитектор
 
Регистрация: 10.08.2005
Ростов-на-Дону
Сообщений: 5,280


так и пиши minsert block (multi insert), а вот как по русски не знаю, работаю в английской версии
asys вне форума  
 
Непрочитано 24.01.2007, 17:45
#23
Zombie


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


Если кому то действительно нужна электронная версия то он ее получит.
В крайнем случае перевод чертежей на листах в электронную версию приблизительно 20$ за лист. (при помощи чертежника)
Zombie вне форума  
 
Автор темы   Непрочитано 24.01.2007, 18:37
#24
VVA

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


>Владимир Егорьев Набери в командной строке
_minsert и нажми F1
VVA вне форума  
 
Непрочитано 24.01.2007, 19:07
#25
Никита В.

CAD Operator
 
Регистрация: 01.11.2005
Samara-Gorodok
Сообщений: 389


Цитата:
Сообщение от Zombie
Если кому то действительно нужна электронная версия то он ее получит...
Точно!!!!!!! Непонятно зачем быть такими жадными........
__________________
АвтоКАД это не только электронный кульман,
Но и великий ГЕМОР
Никита В. вне форума  
 
Непрочитано 24.01.2007, 19:26
#26
AIK

Заказчик
 
Регистрация: 20.02.2004
Москва
Сообщений: 2,758


Цитата:
Сообщение от Никита В.
Непонятно зачем быть такими жадными........
Я давно перестал писать в договорах про формат электронной версии. Давайте хоть в тетрисе. Только при каждой передаче 4 экз. как положено. Изменения внес - будь любезен еще раз 4 экз. Мне проектировщики просто впаривают dwg/pla вместе с библиотеками. Проще мэйл отправить чем по Москве с авоськами пробираться.
Хотят ребята заблочиться-закодироваться - на здоровье.
AIK вне форума  
 
Непрочитано 24.01.2007, 19:48
#27
float


 
Регистрация: 17.01.2007
Москва
Сообщений: 58
<phrase 1=


скока работаем, всегда отдаем чертежи на бумаге...
float вне форума  
 
Непрочитано 25.01.2007, 08:19
#28
Владимир Егорьев


 
Сообщений: n/a


Цитата:
Сообщение от Никита В.
Цитата:
Сообщение от Zombie
Если кому то действительно нужна электронная версия то он ее получит...
Точно!!!!!!! Непонятно зачем быть такими жадными........
Альтруист

Просто в каждой организации разные взаимоотношения между теми кто "делает" и кто продаёт это сделанное.
 
 
Непрочитано 26.01.2007, 19:21
#29
Тим

инженер
 
Регистрация: 27.04.2006
Ростов-на-Дону
Сообщений: 33


Кому нада, тот и без электронной версии справится, у нас случай был, один экземпляр проекта пешеходника, в бумажном виде, заказчик своему другу продал, а друг просто перерисовал, не вдаваясь в подробности..., и ничего, построили, стоит пешеходничек!
Тим вне форума  
 
Непрочитано 29.01.2007, 10:18
#30
Владимир Егорьев


 
Сообщений: n/a


VVA


Добрый день.
У меня не большой вопросик.
Запускаю файл .LSP на своём ПК-программа идёт.В командную строку заношу "AutoXlock"-тоже всё работает ну и т.д.
На другом же ПК на ввод "AutoXlock"-отвечает "Не известная команда"
Я пологаю это что-то с настройками?
 
 
Непрочитано 15.06.2010, 12:09
#31
znatok


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


Цитата:
Сообщение от Asys Посмотреть сообщение
так и пиши minsert block (multi insert), а вот как по русски не знаю, работаю в английской версии
В русской версии 2006: МВСТАВИТЬ
znatok вне форума  
 
Непрочитано 15.06.2010, 16:54
#32
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


А в dwf нельзя пропечатать? Можно образец защищенного файла опубликовать как пример?
gomer вне форума  
 
Непрочитано 03.11.2010, 15:38
#33
Ivachka

Техник отдела ОВ
 
Регистрация: 22.02.2005
СССР
Сообщений: 16
<phrase 1=


У меня автокад 2011. Загружаю данный лисп и ввожу команду выводит вот что:
Command: Xlock
no function definition: VLAX-GET-ACAD-OBJECT; error: An error has occurred
inside the *error* functionno function definition: VLA-ENDUNDOMARK
Пичаль
Ivachka вне форума  
 
Непрочитано 03.11.2010, 15:46
#34
Кулик Алексей aka kpblc
Moderator

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


http://autolisp.ru/2010/06/09/no-fun...t-acad-object/
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 03.11.2010, 17:19
#35
hwd

C, C++, C#
 
Регистрация: 07.10.2009
С-Пб.
Сообщений: 2,762
Отправить сообщение для hwd с помощью Skype™


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
http://autolisp.ru/2010/06/09/no-fun...t-acad-object/

Цитата:
Подобный вопрос с завидной регулярностью появляется на самых разных форумах:
...
Достаточно в самом начале лиспа поставить
(vl-load-com)
И все будет работать.
Надо просто про это не забывать…
По хорошему - тем, кто пишет подобные lisp-файлы следовало бы в составе своего кода самостоятельно вызывать загрузку этой функции, избавив тем самым юзеров от данной проблемы.
__________________
Надеюсь, ты не социальный овощ? Это определяется делами! :welcome:
hwd вне форума  
 
Непрочитано 03.11.2010, 18:19
#36
Ыых


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


PDF
Ыых вне форума  
 
Непрочитано 03.11.2010, 18:26
#37
РастОК

Конструктор-Проектировщик
 
Регистрация: 24.12.2008
Сообщений: 2,588


Может я не прав, но насколько я знаю из Автокада можно распечатать (ваш заблокированный) файл в очень-очень хорошем качестве в jpg или в pdf и потом этот файлик с помощью нехитрых программ-переводчиков из растрового изображения перевести обратно в векторное. Единственный минус насколько я знаю - это всё будет разбитое на примитивы. Но вот примитивчики-то можно с лёгкостью перетащить куда надо и ненужное убрать, одним словом - переделать (если отличия не большие) под себя.

Выход из такого способа перегонки чертежей это изменение каких-нибудь настроек файла таким образом, чтобы было невозможно напечатать с большей чёткостью чем печатается в терпимом качестве на лист.
РастОК вне форума  
 
Непрочитано 03.11.2010, 18:38
#38
Ыых


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


обратно из PDF...ну если секса много хочется...то пожалуйста....очень многое из чертежа пропадет....PDF тоже можно шифрануть....
Ыых вне форума  
 
Непрочитано 03.11.2010, 18:52
#39
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,085


Если кто не знал, то pdf, зашифрованный от распечатки (не от просмотра) элементарно ломается с помощью GhostScript. Не надо и пароль подбирать. И вообще, единственный действенный способ защиты чертежей - никому их не показывать Только зачем они тогда нужны?
kp+ вне форума  
 
Непрочитано 03.11.2010, 18:55
#40
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


Бред все это... Вы ведь заказчику идею отдаете.... А перечертить то, что вы накалякали любой техник за день сможет
gomer вне форума  
 
Непрочитано 03.11.2010, 19:01
#41
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,085


+1!
kp+ вне форума  
 
Непрочитано 03.11.2010, 19:01
#42
РастОК

Конструктор-Проектировщик
 
Регистрация: 24.12.2008
Сообщений: 2,588


Цитата:
Сообщение от gomer Посмотреть сообщение
А перечертить то, что вы накалякали любой техник за день сможет
Видно вы не видели огромных объёмов с большой насыщенностью...
РастОК вне форума  
 
Непрочитано 03.11.2010, 19:22
#43
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 10,288


Огромные объемы с большой насыщенностью обычно есть уникальные объекты, которые никому кроме конкретного заказчика не нужны. Их передирать с целью украсть и выдать за свое никто не будет
Vova вне форума  
 
Непрочитано 03.11.2010, 19:24
#44
alex_bay

Конструктор
 
Регистрация: 08.10.2004
Саратов
Сообщений: 1,000


Цитата:
Сообщение от Vova Посмотреть сообщение
Огромные объемы с большой насыщенностью обычно есть уникальные объекты, которые никому кроме конкретного заказчика не нужны. Их передирать с целью украсть и выдать за свое никто не будет
Не скажи.. Бывают такие умники. Мне пришлось встретить таких аж 2 штуки.
alex_bay вне форума  
 
Непрочитано 04.11.2010, 10:57
#45
Ыых


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


Да и хрен с ними, с заказчиками....просто иногда обидно...что какие-то левые проектные организации пользуются твоими наработками....
Ыых вне форума  
 
Непрочитано 04.11.2010, 11:46
#46
357

бывший...
 
Регистрация: 13.08.2009
Краснодар
Сообщений: 1,171
<phrase 1=


Цитата:
Сообщение от РастОК Посмотреть сообщение
потом этот файлик с помощью нехитрых программ-переводчиков из растрового изображения перевести обратно в векторное
Поделись: какой программой это делается?

Цитата:
Сообщение от РастОК Посмотреть сообщение
Единственный минус насколько я знаю - это всё будет разбитое на примитивы
С полгодика назад пытался я эту работу сделать: найденные программы разбивают изображение не просто на примитивы, а на примитивные примитивы... Например, размер разбивается отдельно на
- размерный текст
- выносные линии
- засечки
- удлиннение за выносные линии
- и т.д.
Штриховка разбивается на отдельные линии и точки
Все линии вне зависимости от исходной толщины имеют нулевую толщину...
357 вне форума  
 
Непрочитано 04.11.2010, 12:26
#47
РастОК

Конструктор-Проектировщик
 
Регистрация: 24.12.2008
Сообщений: 2,588


Цитата:
Сообщение от 357 Посмотреть сообщение
Поделись: какой программой это делается?
Google вам в помощь. Спросите у него про Программы преобразования растровых изображений в векторные...



Цитата:
Сообщение от Vova Посмотреть сообщение
Огромные объемы с большой насыщенностью обычно есть уникальные объекты, которые никому кроме конкретного заказчика не нужны. Их передирать с целью украсть и выдать за свое никто не будет
Ага. Тот же склад 60х30 метров легко превращается .... в склад 30х30, 30х40, 30х50 метров. А чертежей там под 30. Перечерчивать будет прилично, а вот удалить ненужное на порядок быстрее...

P.S. Я против таких переделок, просто знаю, что их делают и как их делают.
РастОК вне форума  
 
Непрочитано 04.11.2010, 13:24
#48
357

бывший...
 
Регистрация: 13.08.2009
Краснодар
Сообщений: 1,171
<phrase 1=


Цитата:
Сообщение от РастОК Посмотреть сообщение
Google вам в помощь. Спросите у него про Программы преобразования растровых изображений в векторные...
Я-то думал, что ты говоришь как специалист, а оказалось - простой теоретик...
Или покажешь переконвертированные и исправленные тобою файлы? Без них твоя ссылка на поисковик - пустышка
357 вне форума  
 
Непрочитано 04.11.2010, 13:52
#49
РастОК

Конструктор-Проектировщик
 
Регистрация: 24.12.2008
Сообщений: 2,588


Цитата:
Сообщение от 357 Посмотреть сообщение
Я-то думал, что ты говоришь как специалист
Нет, я не специалист по передиранию чужих проектов.

Цитата:
Сообщение от 357 Посмотреть сообщение
Или покажешь переконвертированные и исправленные тобою файлы? Без них твоя ссылка на поисковик - пустышка
Я файлы никогда не исправлял и не переделывал под себя, но знаю как это сделать если понадобиться. А показывать как это сделать на примере - искать хорошую программу конвертер (небесплатную и пролеченную) не вижу смысла. Доказывать с пеной у рта, что это можно сделать и тратить на это время я не буду. Кто разбирается в данном вопросе и сам может это сделать - основные принципы и инструменты действия изложены выше. Если человек понял как это можно сделать, он это сделает, если нет - то он либо не понял, либо плохо старался чтобы добиться результата. Вы 357 к какой категории относитесь?
РастОК вне форума  
 
Непрочитано 04.11.2010, 14:04
#50
357

бывший...
 
Регистрация: 13.08.2009
Краснодар
Сообщений: 1,171
<phrase 1=


Красивые слова...
Но ведь это не доказательство знаний и умения, а ... оправдание всего лишь красивым словам
357 вне форума  
 
Непрочитано 04.11.2010, 15:00
#51
РастОК

Конструктор-Проектировщик
 
Регистрация: 24.12.2008
Сообщений: 2,588


и всё-же вы не ответили
Цитата:
Сообщение от РастОК Посмотреть сообщение
Вы 357 к какой категории относитесь?
РастОК вне форума  
 
Непрочитано 04.11.2010, 15:17
#52
357

бывший...
 
Регистрация: 13.08.2009
Краснодар
Сообщений: 1,171
<phrase 1=


Цитата:
Сообщение от РастОК Посмотреть сообщение
и всё-же вы не ответили
И с удовольствие это делаю, поскольку вопрошающий эту работу делать не умеет
Цитата:
Сообщение от РастОК Посмотреть сообщение
Я файлы никогда не исправлял и не переделывал под себя, но знаю как это сделать если понадобиться
хоть и заявляет, что сделает, когда ему понадобитЬся
357 вне форума  
 
Непрочитано 27.12.2010, 10:29
#53
red-white19


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


Друзья, подскажите, пожалуйста, как этим LiSPом воспользоваться??? Ввожу команду после defun, но либо "неверная команда", либо запрос каких-либо данных, а каких именно - не могу понять. Буду очень признателен помощи!
red-white19 вне форума  
 
Непрочитано 27.12.2010, 10:42
#54
Лиспер


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


http://dwg.ru/pub/9
__________________
(/= RegDate StartReadDate)
Лиспер вне форума  
 
Автор темы   Непрочитано 27.12.2010, 10:50
#55
VVA

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


red-white19, Прежде ознакомьмся с FАQ №2: Как защитить свой файл от изменения/копирования объектов и т.п.
Цитата:
Однако не существует идеального способа защиты.
Защита от редактирования !!! - http://www.caduser.ru/forum/index.ph...2343&PAGEN_1=2

Код:
[Выделить все]
;Restore line from %%U text
;Text to Line
;_http://www.caduser.ru/forum/index.php?PAGE_NAME=message&FID=2&TID=32343&PAGEN_1=2
(defun C:T2L ( / txt_to_line mip:layer-status-restore mip:layer-status-save *error*)
(defun *error* (msg)(princ msg)(mip:layer-status-restore)(princ))
(defun mip:layer-status-restore ()
    (foreach item *MIP_LAYER_LST*
      (if (not (vlax-erased-p (car item)))
        (vl-catch-all-apply
          '(lambda ()
             (vla-put-lock (car item) (cdr (assoc "lock" (cdr item))))
             (vla-put-freeze (car item) (cdr (assoc "freeze" (cdr item))))
             ) ;_ end of lambda
          ) ;_ end of vl-catch-all-apply
        ) ;_ end of if
      ) ;_ end of foreach
    (setq *MIP_LAYER_LST* nil)
    ) ;_ end of defun
  (defun mip:layer-status-save ()
    (setq *MIP_LAYER_LST* nil)
    (vlax-for item (vla-get-layers *kpblc-activedoc*)
      (setq *MIP_LAYER_LST* (cons (list item
                                  (cons "freeze" (vla-get-freeze item))
                                  (cons "lock" (vla-get-lock item))
                                  ) ;_ end of cons
                            *MIP_LAYER_LST*
                            ) ;_ end of cons
            ) ;_ end of setq
      (vla-put-lock item :vlax-false)
      (vl-catch-all-apply '(lambda () (vla-put-freeze item :vlax-false)))
      ) ;_ end of vlax-for
    ) ;_ end of defun
(defun txt_to_line (/ krivoy_text)
  (if
    (and
      (setq krivoy_text (ssget '((0 . "TEXT") (1 . "%%U "))))
      (setq krivoy_text
       (vl-remove-if
         'listp
         (mapcar
     'cadr
     (ssnamex krivoy_text)
         )
       )
      )
    )
     (mapcar '(lambda (x / ent newline box endpt col)
    (setq
      ent    (entget x)
      box    (textbox ent)
      )
   (setq
      newline (vla-addline
          (vla-get-ModelSpace
            (vla-get-ActiveDocument (vlax-get-acad-object))
          )
          (vlax-3d-point
            (setq
        endpt (mapcar '+
                (cdr (assoc 10 ent))
                (cond
            (
             (= (cdr (assoc 71 ent)) 0)
             (car box)
            )
            (t
             (list (caar box)
                   (cadr (cadr box))
                   0.0
             )
            )
                )
              )
            )
          )
          (vlax-3d-point (polar endpt 0 (caadr box)))
        )
    )
    (vla-rotate
      newline
      (vlax-3d-point (cdr (assoc 10 ent)))
      (cdr (assoc 50 ent))
    )
    (vla-put-layer newline (cdr (assoc 8 ent)))
    (vla-put-Color newline
      (if (setq col (cdr (assoc 62 ent))) col 256))
    (entdel x)
        )
       krivoy_text
     )
  )
  (princ)
)
  (vl-load-com)
(mip:layer-status-save)
  (princ "\nSelect text")
  (txt_to_line)
(mip:layer-status-restore)
(princ "\nGood work with line ...")
(princ)
  )
Вложения
Тип файла: zip Форумы caduser_ru.zip (216.6 Кб, 41 просмотров)
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 07.11.2016 в 12:51.
VVA вне форума  
 
Непрочитано 27.12.2010, 11:54
#56
red-white19


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


Благодарю за отзывы.
Цитата:
Сообщение от Лиспер Посмотреть сообщение
С данной публикацией я ознакомился еще полгода назад и в возникшей ситуации старался действовать согласно приведенным рекомендациям:

А вот такую:
(defun test ()<Чего-то делаем 2>)



Можно будет вызывать только так:

Команда : (test)

И будут выполнены действия <Чего-то делаем 2>.
С точки зрения AutoCAD'a это 2 разных модуля.



Но вот в Lispе из-за которого весь сыр-бор данная строка (одна из них) выглядит так:

(defun CheckForBulge (obj / param endparam flag)

Соответственно я ввожу в командной строке (CheckForBulge), а мне в ответ на это появляется
; ошибка: no function definition: CHECKFORBULGE

В самом начале Lispа стоит команда (vl-load-com), поэтому в ее отсутствии я причину не ищу.
простым перетаскиванием Lisp вроде бы запускается, но с чертежом ничего не происходит и появляется сообщение "XL1 - восстановить защищенные объекты". Результат работы LISPа ведь должен быть другим, если я правильно понимаю? Уж как минимум чертеж должен быть взорван. Но этого не получается.

Помогите разобраться с данной ситуацией.
red-white19 вне форума  
 
Непрочитано 28.12.2010, 00:34
#57
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


Цитата:
Сообщение от red-white19 Посмотреть сообщение
(defun CheckForBulge (obj / param endparam flag)

Соответственно я ввожу в командной строке (CheckForBulge), а мне в ответ на это появляется
; ошибка: no function definition: CHECKFORBULGE
Функции, имеющие параметры, нужно вызывать с параметрами
gomer вне форума  
 
Непрочитано 28.12.2010, 08:58
#58
red-white19


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


Попробовал ввести команду вместе с параметром, заключив все в скобки, т.е.
(CheckForBulge (obj / param endparam flag))
в ответ получаю
; ошибка: no function definition: OBJ

Если ввести
(CheckForBulge (obj / param endparam flag)
получаем (_> и требование ввести парамет какой-то. А какой я не могу понять. Я так понимаю, что это необходимые исходные данные.
Подскажите, какие исходные данные "просит" ввести эта команда?
red-white19 вне форума  
 
Непрочитано 28.12.2010, 09:01
#59
Лиспер


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


red-white19, приведи код, откуда взял CheckForBulge. По идее там либо есть "основная функция", и CheckForBulge - всего лишь служебная; либо есть нечто типа readme, где написано - что и в каком виде надо предоставлять.
__________________
(/= RegDate StartReadDate)
Лиспер вне форума  
 
Автор темы   Непрочитано 28.12.2010, 09:57
#60
VVA

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


Цитата:
Сообщение от red-white19 Посмотреть сообщение
о с чертежом ничего не происходит и появляется сообщение "XL1 - восстановить защищенные объекты"
XL1 - это и есть команда. Причем ты видишь только последнюю строчку. Нажми F2 и прочитай остальное.
На будущее. Тебя должны интересовать не первые встреченные в файле тобой функции, а команды (функции с префиксом C:). Посмотри в коде, там есть команды C:XL1 C:XL0 C:AutoXLock C:XLock Они тебе и нужны
>Лиспер код в первом посте
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 28.12.2010, 18:41
#61
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


Чет заказчики борзые пошли... надо с этим кончать... надо подписывать договора таким образом, чтоб передача dwg была исключена...
либо защищать не имеет смысла...
gomer вне форума  
 
Непрочитано 28.12.2010, 22:53
#62
Лиспер


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


VVA, либо я чего-то не понимаю, либо одно из двух. Смотрю код из первого поста:
Код:
[Выделить все]
<...>
;; Function not used.
;(defun CheckForBulge (obj / param endparam flag)
;  (setq param (vlax-curve-getStartParam obj)
;        endparam (vlax-curve-getEndParam obj)
;  ) 
;  ;; not interested in last bulge - right?
;  (while (< param endparam)
;    (if (/= 0 (vla-getbulge obj param))
;      (setq flag T)
;    )
;    (setq param (1+ param))
;  )
;  flag
;) ;end
Мало того, что написано - функция не используется, так она еще и закомментирована. Или исходный код менялся не раз? Скажу честно, читать всю тему с нуля у меня возможности нет На работе инет кончился, а дома что-то не очень получается
__________________
(/= RegDate StartReadDate)
Лиспер вне форума  
 
Автор темы   Непрочитано 29.12.2010, 13:07
#63
VVA

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


Лиспер, Вполне возможно. Этот код публиковался в 2006 году
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 26.10.2017, 14:25
#64
KrasnovaMariya


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


Цитата:
Сообщение от T-Yoke Посмотреть сообщение
А в принципе оно надо?
Если с заказчиком постоянно работаю и друг другу свиней не подкладываем, то есть ли смысл в таком гимморе.
Ну передал я ему проект, и бумажном, и электронном виде. И что?
Если он деньги считает, то он понимает, что не за чертежи и модели электронные биться надо, а за ответственность проектировщика.
Если я за свои чертежи своей шкурой отвечаю, то за трижды красивые но содранные с чужого плеча никто ответственность не возьмет.
а не надо электронные подписи кругом совать и отвечать будете только за произведенное вами
))

----- добавлено через ~2 мин. -----
Цитата:
Сообщение от gomer Посмотреть сообщение
Чет заказчики борзые пошли... надо с этим кончать... надо подписывать договора таким образом, чтоб передача dwg была исключена...
либо защищать не имеет смысла...
кто платит деньги тот и музыку заказывает
))
пост полнейший бред
KrasnovaMariya вне форума  
 
Непрочитано 26.10.2017, 15:00
| 1 #65
juri18

Инженер
 
Регистрация: 27.05.2007
Сибирь
Сообщений: 2,974


Цитата:
Сообщение от KrasnovaMariya Посмотреть сообщение
пост полнейший бред
А отвечать на него через семь лет - не бред?
juri18 вне форума  
 
Непрочитано 29.12.2021, 17:55
#66
Kins


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


К этому лиспу описание бы, как запускать и т.д.
Kins вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Защита DWG при передаче заказчику

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

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