Translate to: |
|||||||
Обратная связь | Новости САПР | Программы | Документация | Полезные советы | Обзорные статьи | ||
Заказ и разработка | Каталог САПР | САПР-конференция | Библиотека ГОСТов | Наши соавторы | Коммерческое ПО |
Поскольку Lisp-код исполняется интерпретатором AutoCAD, Lisp-программа как правило представляется в исходном тексте. Однако существуют несколько способов сделать ее не читабельной, но при этом исполняемой.
Autodesk купил Vital Lisp, компилятор Lisp-программ для AutoCAD R13 - R14 у компании
Basiss Software. После модификации данный программный
продукт получил название Visual Lisp и до 1 января 1999 года был доступен для Download на сайте
Autodesk. В настоящее время Visual Lisp является коммерческим продуктом, но я думаю приобрести его не составляет проблемы :-).
Некоторые ресурсы по Visual Lisp можно найти на этом сайте в разделе "Ссылки"
В начале идет текст "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)
Большинство программ AutoLISP, результатом работы которых является отрисовка объектов, состоящих из нескольких примитивов (например кокой-нибудь спецзнак), обладают одним общим недостатком - отрисованный элемент состоит из нескольких объектов и поэтому, если возникнет необходимость удалить, переместить, повернуть и т. п. весь объект, то выделить его целиком не всегда удобно. Иногда для решения этой проблемы все объекты спецзнака отрисовываются в отдельном слое. Другим способом является создание таких объектов как анонимные блоки. В этом случае объект представляет из себя единое целое и оперировать с ним гораздо легче. При этом сам блок в, отличие от обычного, для пользователя не видим и его имя не появляется в списке имен блоков при использовании команды insert. В случае удаления отрисованного спецзнака из чертежа, анонимный блок, на который ссылался этот элемент автоматически удаляется из базы данных чертежа при закрытии файла.
Процедура называется (UnBlock pt ss) , гдеКоличество объектов в наборе ss ограничено только возможностями AutoCAD'а. Как мне кажется, это процедуру можно без каких либо проблем использовать в любой версии AutoCAD начиная с v10, т. к. используемые в ней команды AutoLISP не претерпели за последнее время никаких изменений. Так-же она не зависит и от языка используемого AutoCAD'а. При создании этой процедуры я пользовался документацией от AutoCAD'а v10, использую же я ее в AutoCAD'е 2000 (15) .
Процедура UnBlock содержится в файле UnBlock.zipЕвгений Калашников
Технологическое бюро цеха металлоконструкций
ОАО "Западно-Сибирский металлургический комбинат"
E-Mail: tb5@ugm.zsmk.nvkz.kuzbass.net
С помощью системной переменной CDATE (возможно использование других переменных).
В нужных местах программы следует прочитать текущие дату и время, которые возвращаются через системную переменную CDATE, например:
выражение (setq d1 (rtos (getvar "CDATE") 2 8)) возвратит (примерно) "20010528.14221139" (это соответствует 28 мая 2001 г., 14 час. 22 мин. 11,39 сек.).
В возвращаемом значении перед точкой - год (4 цифры), месяц (2 цифры) и день (2 цифры), после точки - часы (первые 2 цифры), минуты (2 цифры), секунды (2 цифры) и сотые доли секунды (2 последние цифры). Больше 8 десятичных знаков после точки в CDATE получить нельзя.
Обработайте таким образом показания часов в соответствующих местах работы программы, получите интересующие вас данные.
Полещук Н.Н.,Copyright © Сайт поддержки пользователей САПР