NANOCAD ШОУ
dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как запустить файл FAS если команду знаю

Как запустить файл FAS если команду знаю

Версия для печати
 
Ответ
Опции темы Поиск в этой теме
Непрочитано 15.03.2017, 11:10 #1
Как запустить файл FAS если команду знаю
Миксер
 
Регистрация: 10.01.2006
Сообщений: 143

Миксер вне форума Вставить имя

Здравствуйте.
Есть программка скаченная из интернета для работы с xrf. Соответственно команды для запуска XRR и XRP . Программки в автокад загружаются, но автокад пишет , что таких команд не знает.

Как их запустить?

Increase Size Decrease Size Нажмите для просмотра

У разработчика все работает(

Вложения
Тип файла: rar Работа с XRF.rar (72.5 Кб, 22 просмотров)

Просмотров: 3877
 
Непрочитано 15.03.2017, 11:28
#2
Кулик Алексей aka kpblc
Moderator

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


Цитата:
Сообщение от Миксер Посмотреть сообщение
У разработчика все работает(
Терроризируй разраба - гарантированно его косяк.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 15.03.2017, 11:29
#3
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Днепропетровск
Сообщений: 3,548


так там два файла, причем vlx, похоже, основной, а fas - то ли дополнительный, то ли вспомогательный. "Вызыватель" обоих команд сидит в vlx, его надо загрузить, и все работает.
__________________
Кому жизнь буги-вуги, а кому полный бред... (С)
kp+ вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Автор темы   Непрочитано 15.03.2017, 13:20
#4
Миксер


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


Так запускал оба. Это две разные программы . Они независимы

Может ли влиять на запуск версия автокад ? У меня 2015. У разраба не меньше 2013 точно, судя по видео)
Миксер вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 15.03.2017, 13:54
#5
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Днепропетровск
Сообщений: 3,548


Цитата:
Сообщение от Миксер Посмотреть сообщение
Может ли влиять на запуск версия автокад ?
На 2010 vlx загрузился, Fas - нет. После загрузки vlx стали доступны обе команды - в смысле, они запустились без каких-либо сообщений об ошибках. В деле их не проверял, честно говоря, и что они делают - не совсем понял. Видео в моем браузере почему-то не воспроизводится, если что - дайте прямую ссылку на Ютюб.

Пардон! Команды XRR и XRP совпали по именам с командами Toolpack, поэтому создалась иллюзия их работоспособности.
__________________
Кому жизнь буги-вуги, а кому полный бред... (С)

Последний раз редактировалось kp+, 15.03.2017 в 14:21.
kp+ вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 15.03.2017, 19:37
1 | 1 #6
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,552
Отправить сообщение для gomer с помощью ICQ Отправить сообщение для gomer с помощью Skype™


в архиве хтмл -файлы
gomer вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 17.03.2017, 09:11
#7
roaa

ОПС
 
Регистрация: 29.03.2012
Kazakhstan
Сообщений: 127


Команда: (LOAD "C:/Users/roaa/Desktop/XRR.fas") ; ошибка: неверный формат быстрой загрузки в файле: "C:/Users/roaa/Desktop/XRR.fas"
Команда: (LOAD "C:/Users/roaa/Desktop/XRP.VLX") nil
Команда: xrr
Неизвестная команда "XRR". Для вызова справки нажмите F1.
Команда: XRp
Неизвестная команда "XRP". Для вызова справки нажмите F1.


По ходу битые файлы...
roaa вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 17.07.2017, 14:04
#8
lenivec

проектирование
 
Регистрация: 16.09.2005
KZ
Сообщений: 69


​       

Последний раз редактировалось lenivec, 18.07.2017 в 11:47.
lenivec вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 17.07.2017, 16:28
#9
Кулик Алексей aka kpblc
Moderator

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


Цитата:
Сообщение от lenivec Посмотреть сообщение
В содержимое скачанных/запускаемых файлов надо заглядывать
Ты умеешь вскрывать fas / vlx?? Покажи, как!
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 17.07.2017, 20:58
#10
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,552
Отправить сообщение для gomer с помощью ICQ Отправить сообщение для gomer с помощью Skype™


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
умеешь вскрывать fas / vlx?? Покажи, как!
А зачем? ну, вскроешь, ну, посмотришь, ну, даже взломаешь. А потом понадобится тебе новый функционал и все, приплыли
gomer вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 17.07.2017, 22:51
#11
Кулик Алексей aka kpblc
Moderator

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


gomer, я не про это. Ну да ладно.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 18.07.2017, 06:29
#12
lenivec

проектирование
 
Регистрация: 16.09.2005
KZ
Сообщений: 69


      

Последний раз редактировалось lenivec, 18.07.2017 в 11:48.
lenivec вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 18.07.2017, 06:55
#13
Profan

Чужой
 
Регистрация: 25.12.2005
Москва
Сообщений: 13,666


Цитата:
Сообщение от lenivec Посмотреть сообщение
С помощью блокнота (notepad.exe)
Издевается, нехороший человек.
Profan вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 18.07.2017, 06:56
#14
trir


 
Регистрация: 18.12.2010
Сообщений: 2,411


14-Nov-2004 http://www.sporaw.com/work/decompilers.htm
https://lispbox.wordpress.com/2014/1...ing-procedure/

Цитата:
А-то может оказаться, что внутри HTML-страница с фейсбука
trir вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 18.07.2017, 10:16
#15
ciril

САПР
 
Регистрация: 29.09.2011
СПб
Сообщений: 206


Цитата:
Сообщение от lenivec Посмотреть сообщение
Не, ну я, например, много чего выковырял для себя из чужих lisp-файлов. Доработал, упростил или наоборот функционала добавил
Переписать не проще ли, чем выковыривать?
__________________
На работе было скучно:shout:
ciril вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 18.07.2017, 10:33
#16
lenivec

проектирование
 
Регистрация: 16.09.2005
KZ
Сообщений: 69


​       

Последний раз редактировалось lenivec, 18.07.2017 в 11:48.
lenivec вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 18.07.2017, 11:04
#17
Profan

Чужой
 
Регистрация: 25.12.2005
Москва
Сообщений: 13,666


Цитата:
Сообщение от lenivec Посмотреть сообщение
Так было спрошено "вскрывать", а не декомпилировать или хотя бы взламывать
И не исходный lisp-код, а "fas / vlx"
И не издеваюсь, а шучу
Не надо юлить и изворачиваться, редиска.
Profan вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 18.07.2017, 11:18
#18
ShaggyDoc

Thượng Tá Quân Đội Nhân Dân Việt Nam
 
Регистрация: 14.03.2005
44d32'44"С, 33d26'51"В
Сообщений: 9,924


Да, подрастают новые поколения, надеющиеся "декомпилировать" FAS/VLX. Как когда-то пытались декомпилировать bi2/bi4.

Ничего из этого не получится принципиально, разве что текстовые ресурсы в виде строк вытащить.

Единственно что было возможно и давно сделано - расшифровка "AutoCAD Protected Lisp-files", да и то потому, что шифровка детская.

Любой LISP гораздо проще написать заново, и даже ещё лучше - только посмотреть что он делает. Ну если только не использует какие-то "авторские" никому не известные формулы для расчетов. На форуме человек двадцать это могут сделать.
ShaggyDoc вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 18.07.2017, 11:20
#19
ciril

САПР
 
Регистрация: 29.09.2011
СПб
Сообщений: 206


Во-во )) Очень информативно смотреть в блокноте на fas )) Ну разве что на заголовок, удостовериться.

Цитата:
Сообщение от lenivec Посмотреть сообщение
Проще - если знаешь все lisp-функции. А как новичку, то быстрее выковырять у кого-нибудь, особенно если надо срочно, и не знаешь куда копать (с чего начать).
Чего-то я не понял Если не знаешь языка и не знаешь куда копать, и еще и быстро надо, то уж конечно проще в чужом коде разобраться, ага ))
Код:
[Выделить все]
 (defun aiku:bss  (e00 e01 / x00 x01 x02 la0 la1 la2 n0i n1i n0n1 jay-n0n1i diagonal f-greens weights mask non)
  (if (/= 1
          (apply '+
                 (mapcar (function (lambda (e10)
                                     (if e10
                                       0
                                       1)))
                         e01)))
    (aiku:exit "Значение не единственное")
    (progn (setq x00 (apply 'append
                            (mapcar (function (lambda (e10 e11)
                                                (if (not e10)
                                                  e11)))
                                    e01
                                    '((cadr caddr car) (car caddr cadr) (car cadr caddr))))
                 x02 (apply 'mapcar
                            (cons (function
                                    (lambda (e10 e11) (expt 2 (/ (- (fix (1- (* 0.5 (/ (log  (- e10 e11))) (log 2)))) 52) 3.0))))
                                  (mapcar 'apply
                                          '(mapcar mapcar)
                                          (mapcar 'cons
                                                  '(max min)
                                                  (list (setq x01 (vl-sort (vl-sort e00 (function (lambda (e20 e21) (< ((eval (car x00)) e20) ((eval (car x00)) e21)))))
                                                                           (function (lambda (e20 e21) (< ((eval (cadr x00)) e20) ((eval (cadr x00)) e21))))))
                                                        x01)))))
                 x01 ((eval
                        (setq la0 (function
                                    (lambda (e10 e11)
                                      (if (car e11)
                                        (apply 'cons
                                               (mapcar 'apply
                                                       (list 'list la0)
                                                       (if (apply 'and (mapcar 'or (mapcar 'not e01) (mapcar '> x02 (mapcar 'abs (mapcar '- e10 (car e11))))))
                                                         (list (apply 'mapcar (cons 'if (list e01 e10 (mapcar '/ (mapcar '+ e10 (car e11)) '(2.0 2.0 2.0)))))
                                                               (list (cadr e11) (cddr e11)))
                                                         (list e10 (list (car e11) (cdr e11))))))
                                        (list e10))))))                                                              (car x01)
                                                                                                                                                                    (cdr x01)))
           (mapcar 'set
                   '(n0 n1 n2)
                   (setq auxi (mapcar (function (lambda (e10) (mapcar (function (lambda (e20) ((eval e10) e20))) x01))) x00)))
           (mapcar 'set '(n0i n1i) (mapcar (function (lambda (e10) ((eval e10) e01))) x00))
           (and (apply 'or
                        (mapcar 'or
                                (setq non (mapcar (function (lambda (e10) (mapcar (function (lambda (e20) (zerop e20))) e10)))
                                                  (setq x00 0
                                                        diagonal
                                                         (mapcar (function
                                                                   (lambda (e10 e11 / a10)
                                                                     (setq x00 (1+ x00)
                                                                           a10 0)
                                                                     (mapcar (function (lambda (e20 e21 / a20)
                                                                                         (if (eq x00 (setq a10 (1+ a10)))
                                                                                           1.0
                                                                                           (sqrt (apply '+ (mapcar '* (setq a20 (mapcar '- e20 e21)) a20))))))
                                                                             e10
                                                                             e11)))
                                                                 (apply 'mapcar
                                                                        (cons 'list
                                                                              (setq diagonal ((eval (setq la0 (function (lambda (e10 e11)
                                                                                                                          (if (zerop e10)
                                                                                                                            (list e11)
                                                                                                                            (cons e11 ((eval la0) (1- e10) n0n1)))))))
                                                                                                                                                                   (1- (length (setq n0n1 (mapcar 'list n0 n1))))
                                                                                                                                                                   n0n1))))
                                                                 diagonal))))))
             (apply '+
                    (mapcar '*
                            (setq jay-n0n1i (list n0i n1i)
                                  weights   (mapcar
                                              (function (lambda (e10) (apply '+ (mapcar '* e10 n2))))
                                              (apply
                                                'mapcar
                                                (cons 'list
                                                      (car
                                                        ((eval
                                                           (setq la0 (function
                                                                       (lambda (e10 e11 / a10 a11)
                                                                         (apply (function
                                                                                  (lambda (e20 e21 / a20)
                                                                                    (list (cons (setq a20 (cadar e21)) e20)
                                                                                          (mapcar (function (lambda (e30 / a30)
                                                                                                              (list (cdar e30)
                                                                                                                    (if (zerop (setq a30 (caar e30)))
                                                                                                                      (cadr e30)
                                                                                                                      (mapcar '- (cadr e30) (mapcar (function (lambda (e40) (* e40 a30))) a20))))))
                                                                                                  (cdr e21)))))
                                                                                (cond ((not (cdr e10))
                                                                                       (list nil
                                                                                             (cons (if (zerop (setq a10 (caar e10)))
                                                                                                     (aiku:exit "Опорный ноль")
                                                                                                     (list nil (cdr (mapcar (function (lambda (e20) (/ e20 a10))) (car e10)))))
                                                                                                   ((eval (setq la2
                                                                                                                 (function
                                                                                                                   (lambda (e20 / a20 a21 a22)
                                                                                                                     (mapcar 'set '(a20 a21) (mapcar 'mapcar '(car cdr) (list e20 e20)))
                                                                                                                     (if (cdr e20)
                                                                                                                       (progn
                                                                                                                         (append
                                                                                                                           (list (cons (list (car a20)) (list (car a21))))
                                                                                                                           (mapcar 'cons
                                                                                                                                   (mapcar 'append (mapcar 'car (setq a22 ((eval la2) (cdr a21)))) (mapcar 'list (cdr a20)))
                                                                                                                                   (mapcar 'cdr a22))))
                                                                                                                       (list (cons a20 a21)))))))
                                                                                                                    e11))))
                                                                                      ((car
                                                                                         (mapcar 'set
                                                                                                 '(a10 e10)
                                                                                                 ((eval (setq la1 (function (lambda (e20 e21 / a20)
                                                                                                                              (cond ((not (setq a20 (car e20))) (cons nil (list e21)))
                                                                                                                                    ((zerop (car a20)) ((eval la1) (cdr e20) (cons a20 e21)))
                                                                                                                                    (t (cons a20 (list (append (cdr e20) e21)))))))))          e10
                                                                                                                                                                                               nil)))
                                                                                       (setq a11 (car a10)
                                                                                             a10 (mapcar (function (lambda (e20) (/ e20 a11))) a10))
                                                                                       ((eval la0) (mapcar 'cdr
                                                                                                           (mapcar (function (lambda (e20 / a20)
                                                                                                                               (setq a20 (car e20))
                                                                                                                               (mapcar '- e20 (mapcar (function (lambda (e30) (* e30 a20))) a10))))
                                                                                                                   e10))
                                                                                                   (append (list (cdr a10)) e11)))
                                                                                      (t ((eval la0) (cdr e10) (append (list (car e10)) e11)))))))))
                                                          (append (cdr
                                                                    (setq x00 (mapcar 'append
                                                                                      (setq x00      0
                                                                                            f-greens (mapcar (function (lambda (e10 / a10)
                                                                                                                         (setq x00 (1+ x00)
                                                                                                                               a10 0)
                                                                                                                         (mapcar (function (lambda (e20)
                                                                                                                                             (if (eq x00 (setq a10 (1+ a10)))
                                                                                                                                               0.0
                                                                                                                                               (* (expt e20 2) (1- (log e20))))))
                                                                                                                                 e10)))
                                                                                                             diagonal))
                                                                                      (cadr
                                                                                        ((eval (setq la1 (function (lambda (e10 e11)
                                                                                                                     (if (zerop e10)
                                                                                                                       '(nil nil)
                                                                                                                       (list (cons 0 (car (setq a00 ((eval la1) (1- e10) (cons 0 e11)))))
                                                                                                                             (apply 'cons (mapcar 'append (list (append e11 '(1)) nil) a00))))))))
                                                                                                                                                                                               (length n0n1)
                                                                                                                                                                                               nil)))))
                                                                  (list (car x00)))
                                                          nil))))))
                            (mapcar (function (lambda (e10 e11)
                                                (if e10
                                                  0.0
                                                  e11)))
                                    (setq mask (mapcar (function (lambda (e10) (zerop e10)))
                                                       (setq diagonal (apply 'mapcar
                                                                             (cons (function
                                                                                     (lambda (e10 e11) (sqrt (apply '+ (mapcar (function (lambda (e20) (expt e20 2))) (list e10 e11))))))
                                                                                   (apply 'mapcar (cons 'list (mapcar (function (lambda (e10) (mapcar '- jay-n0n1i e10))) n0n1))))))))
                                    (mapcar (function (lambda (e10) (* (expt e10 2) (1- (log e10)))))
                                            (mapcar (function (lambda (e10 e11)
                                                                (if e10
                                                                  1.0
                                                                  e11)))
                                                    mask
                                                    diagonal)))))))))
Как насчет быстро что-то выковырять ))
__________________
На работе было скучно:shout:
ciril вне форума вставить имя Обратить внимание модератора на это сообщение  
 
Непрочитано 18.07.2017, 11:22
#20
lenivec

проектирование
 
Регистрация: 16.09.2005
KZ
Сообщений: 69


Цитата:
Сообщение от Profan Посмотреть сообщение
Не надо юлить и изворачиваться, редиска.
Хоть я и не редиска, а lenivec, но так и быть.
Я отвечу просто:
Цитата:
Терроризируй разраба - гарантированно его косяк.
))

Последний раз редактировалось lenivec, 18.07.2017 в 12:57.
lenivec вне форума вставить имя Обратить внимание модератора на это сообщение  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как запустить файл FAS если команду знаю

Инженерные консультации
Опции темы Поиск в этой теме
Поиск в этой теме:

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Revit 2017. Что делать, если на мощном компьютере сильно тормозит файл ревита весом 35мб? klenk100 Revit 17 07.04.2017 08:39
Графические примитивы, скопированные через буфер обмена "тянут" за собой "мусор", который "раздувает" файл и впоследствии "убивает" буфер обмена Shaggy AutoCAD 2 01.07.2016 22:37
Можно ли запустить команду для списка файлов, не открывая файлов? Alexander_Liseev Программирование 4 28.02.2013 11:41
Приоткрытии чертежа в автокаде файл требует файл формы, что делать? kiraxmaz AutoCAD 3 11.08.2011 13:56
Файл сохранен тока для просмотра можно ли его редактировать Анальный пират AutoCAD 3 17.02.2008 06:01

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||


Размещение рекламы