(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 
 

Просьба описать вкратце формат лисповских защищенных файлов в AutoCAD

Источник: cad
Евгений Калашников

Просьба описать вкратце формат лисповских защищенных файлов  в AutoCAD

В начале идет текст "AutoCAD PROTECTED LISP file", после него CR/LF, дальше EOF. Следом идет однобайтовый ключ, с помощью которого и осуществяется кодирование.

См. програмку декодирования на REXX. Она не совсем корректно работает в общем случае, но идея думаю будет понятна. Hепонятные для меня места отмечены ???

/**/
arg file tofile
lin= linein(file)
call charin(file) /* skip '1a'x */
key= charin(file)
say "key=" c2x(key)
signal on notready name eof
do i=1 by 1
  ch= charin(file)
  if ch='1A'x then leave
  if ch='20'x then iterate /* ??? */
  out= bitxor(ch, key)
  key= shl(c2x(ch))
  if out='1A'x then out= ch
  if out='0D'x then out= ch
  if out='10'x then say d2x(i-1)
  call charout tofile, out
  end

eof:
  call stream file, 'c', 'close'
  call stream tofile, 'c', 'close'
  exit

shl: arg hex
  bit= x2b(hex)
  if left(bit,1) then
    res= substr(bit,2)'1'
  else 
    res= substr(bit,2)'0'
  return x2c(b2x(res))
Serg Shikov, 2:5020/52, (RU.ACAD)

Как создавать анонимные блоки в AutoCAD.

Большинство программ AutoLISP, результатом работы которых является отрисовка объектов, состоящих из нескольких примитивов (например кокой-нибудь спецзнак), обладают одним общим недостатком - отрисованный элемент состоит из нескольких объектов и поэтому, если возникнет необходимость удалить, переместить, повернуть и т. п. весь объект, то выделить его целиком не всегда удобно. Иногда для решения этой проблемы все объекты спецзнака отрисовываются в отдельном слое. Другим способом является создание таких объектов как анонимные блоки. В этом случае объект представляет из себя единое целое и оперировать с ним гораздо легче. При этом сам блок в, отличие от обычного, для пользователя не видим и его имя не появляется в списке имен блоков при использовании команды insert. В случае удаления отрисованного спецзнака из чертежа, анонимный блок, на который ссылался этот элемент автоматически удаляется из базы данных чертежа при закрытии файла.

  Процедура называется (UnBlock pt ss) , где
       pt - точка вставки объекта
       ss - набор объектов, которые надо превратить в анонимный блок.
             ss можно создать с помощью команды ssget или ssadd.

Количество объектов в наборе ss ограничено только возможностями AutoCAD'а. Как мне кажется, это процедуру можно без каких либо проблем использовать в любой версии AutoCAD начиная с v10, т. к. используемые в ней команды AutoLISP не претерпели за последнее время никаких изменений. Так-же она не зависит и от языка используемого AutoCAD'а. При создании этой процедуры я пользовался документацией от AutoCAD'а v10, использую же я ее в AutoCAD'е 2000 (15) .

Процедура UnBlock содержится в файле UnBlock.zip
В файле SpSign.zip содержится пример использования этой процедуры (маленький набор программ отрисовки таких спецзнаков как "Разрез" и "Вид").

Евгений Калашников
Технологическое бюро цеха металлоконструкций

Ссылки по теме


 Распечатать »
 Правила публикации »
  Обсудить материал в конференции Autodesk »
Обсудить материал в конференции Дизайн, графика, обработка изображений »
Написать редактору 
 Рекомендовать » Дата публикации: 03.10.2012 
 

Магазин программного обеспечения   WWW.ITSHOP.RU
AutoCAD LT 2019 Commercial New Single-user ELD Annual Subscription
AutoCAD LT 2019 Commercial New Single-user ELD Annual Subscription PROMO
AutoCAD - mobile app Premium CLOUD Commercial New Single-user ELD Annual Subscription
IBM RATIONAL Quality Manager Quality Professional Authorized User Single Install License + Sw Subscription & Support 12 Months
ESET NOD32 Smart Security Platinum Edition - лицензия на 2 года на 3ПК, Ключ
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование в AutoCAD
Компьютерный дизайн - Все графические редакторы
Реестр Windows. Секреты работы на компьютере
Краткие описания программ и ссылки на них
Новые программы для Windows
 
Статьи по теме
 
Новинки каталога Download
 
Документация
 
Обсуждения в форумах
Как заказчики обманывают наивных художников и дизайнеров (21)
Ни один уважающий себя деловой человек не будет бесплатно раздавать свою работу и тратить время...
 
AutoCAD помощь чайнику (341)
Здравствуйте, Я только начал осваивать AutoCAD. Слышал такое определение как лимиты чертежа,...
 
Юбки-карандаш (2)
Здравствуйте! Где можно купить Юбки-карандаш
 
Юбки-карандаш (1)
Здравствуйте! Где можно купить Юбки-карандаш https://rozetka.com.ua/section/yubki-karandash/
 
3D редакторы, плюсы и минусы (3)
Одно из многих сотен бестолковых обобщений. Прости их господи, Васей Пупкиных
 
 
 



    
rambler's top100 Rambler's Top100