Как запретить редактирование, копирование, печать файла? (Страница 2 из 2)

> Крылов Владимир
Программа имеет значительные ошибки и недоработки
,обнаруженные в результате тестирования.
На днях размещу готовый вариант на сайте
http://www.uniip.ru/

> Torino
К сожалению у меня нет спдс графикс , чтобы проверить
работу программы.

А по моемому если чертеж можно видеть - то его можно перечертить вручную (Акаде) - если он закрыт всеми хитроумными программами, а чертеж нууууууууууууууу очччень нужен.

Если в ладах с Lisp, то можно содержимое любого блока прочитать и выдать в чертеж в виде примитивов. Т.е. программа отката будет отличаться от программы зашифровки максимум на 10%.
Мне кажется, что защитить чертеж нельзя. Но можно наказать плагиатора другим методом - например, на событие печати повесить реактор, который бы спрашивал пароль и при неправильном ответе печатал и втихаря чистил диск плагиатора. Распечатал чужой чертеж - будь здоров, не кашляй. Конечно, такая мера -ультракрайняя и применять ее можно только в совсем убитой ситуации и недолго, иначе как-нибудь сам неправильно введешь пароль и ... Но примерно наказать наиболее вредного из плагиаторов - в самый раз.

Признаюсь честно, в лиспах с VBA я не силен, но есть еще один способ чуть-чуть себя защитить.
В AD2004(если конечно он у Вас есть) есть такая команда Napkin Sketch ( вызывается _AecNapkin). Суть ее - это перевод чертежа в рисунок от как бы руки(в оригинале: "Apply a hand-drawn look to all or any part of your drawing for presentation"). Принцип работы - перевод всех объектов(линии, текст, размеры и т.д), которые выделяем,  в ломаные "зазубренные" полилинии.Вся эта каша, для удобства программой автоматически укатывается в блок.
Для примера, 1 линию Napkin перевел в полилинию со 170-ю вершинами. Если помудрить с масштабом, то чертеж будет нормально смотреться при распечатывании, но вот редактировать файл уже не будет никакой возможности.
Единственный трабл - это нужен комп помощнее(оперативы где-то 1.5-2 ГБ) если файл большой. Можно конечно по частям файл укатывать(т.е. часть слоев оставить и их перевести, и так по очереди), но все равно работает эта штука жутко долго. Но и результат будет оправданным, когда ваши файлы будут открывать по энному количеству минут, а то и часов.
Так что дерзайте.

> VK
" Можно конечно конвертнуть в PDF, DWF или даже в JPG... Только все равно напечатают :)))) И размеры - площадя не померют :( "
Не напечатают!
При перегонке в PDF - очень даже мило прописываются права доступа: и банальный пароль, и запреты копирования, печати и т.п.
Тока (caution !) "девегешник" - загнанный в Acrobat - (ИМХО..)годен, рази что для музейного архива.
Это уже - просто картинка, а не чертёж.
Смотри да облизывайся..
Так что лучше всего, похоже - закатать чертежи на "флешку"
и расслабиться.
Дорого - но, оно того стоит..

Привет всем, йест вопрос про переименованийе названийе блока на анонимныйй блок насол тут в форуме https://www.caduser.ru/forum/topic14619.html

(defun block_rename (name0 name1 / Imya Info)
  (if (setq Imya (tblobjname "BLOCK" name0))
    (progn
      (entmod
  (subst (cons 2 name1)
         (assoc 2
          (setq Info (entget (cdr (assoc 330 (entget Imya)))))
         )
         Info
  )
      )
    )
    (princ "Не найден блок")
  )
)
(block_rename "B1" "BK-1")

[rus] ehto delat'sja no nemogu ponjat' pochemu ehto rabotaet? Pochemu mne ehto intersno, nuzhna programa tol'ko na lispe.[/rus]

ESConvert.LSP версия: 0.8.1 (бета)
итог работы впечатляет также, как то, все блоки, стоящие над заливкой - падают под нее...