[byackafoot]

Есть такие вот програмулины PASPORT и Ochistnie Написаные когда-то давно для облегчения жизни горных инженеров - предназначены для полуавтоматического составления паспортов горных выработок шахт. При попытке воткнуть их в ACAD2010 - все значки меню превращаются в гору вопросительных знаков, ну и собственно программа не идет. пробовал ставить и на 2002 и на 2004 - с меню все нормально, но программа обрывается после ввода данных (хотя вроде скачана полностью). В чем может быть дело? что нужно почитать или где подсмотреть чтобы ее нормально внедрить? Может кто-нибудь помочь с этим? ато я в LISP не в зуб ногой. (PASPORT упакован *.7z - надо переименовать)...
...Вобщм теперь задача сводиться хотябы к запуску в AutoCad 14R - 2004.

[gomer]

Сообщение от byackafoot сопоставимую с копанием кучи "г" в самой этой программе.

я это уже говорил... в принципе программа рабочая... byackafoot, вы таки не сказали, что именно у вас не работает!
Начать нужно с вытравливания иконок из ресурсов меню.. если они есть в 2004... делов на неделю. максимум месяц. Поднапрягите начальство, но умно, за деньги, а это максимум 100$, вам все сделают

[Alan]

Сообщение от byackafoot удалить там пару строчек и радостно юзать!

Есть такой анекдот...
Однажды на электростанции застучал генератор.
Вызвали специалиста. Приехал, поставил раскладушку, пожил пару дней... Достал мел и поставил метку: "Вот тут!"
Выставил счёт на сумму 10K.
Заказчик возмутился: "Вот это за метку мелом 10К? Распишите расходы!!!"
Специалист расписал: "1$ за то что поставил метку, 9999 - за то что знал, где её поставить"
Анекдот не про деньги, а про то, что когда "знаешь где поставить метку", достаточно "удалить там пару строчек и радостно юзать!"

[byackafoot]

Сообщение от gomer byackafoot, вы таки не сказали, что именно у вас не работает!

Итак задача сводится хотябы к запуску в ACAD R14! ибо даже в нем немогу ниче сделать. насчет меню и значков это уже второстепенно.

делаю следующее:

1. гружу скрипт PASPORT.SCR -

Command: _script
Command: _ZOOM
All/Center/Dynamic/Extents/Previous/Scale(X/XP)/Window/<Realtime>: _W
First corner: 0,0 Other corner: 841,594
Command: (load "c:/pasport/pasp-pod") PASP-POD
Command: pasp-pod
Unknown command "PASP-POD". Press F1 for help. - и облом.

2. PASPORT2.SCR -
Command: _script
Command: (load "c:/pasport/pasport2") C:PASPORT2
Command: pasport2
ERROR -> Menu Syntax Error Line: 902.
ERROR -> Menu Syntax Error Line: 1005.
ERROR -> Menu Syntax Error Line: 1007.
ERROR -> Menu Syntax Error Line: 1046.
ERROR -> Menu Syntax Error Line: 1062.
ERROR -> Menu Syntax Error Line: 1260.
ERROR -> Menu Syntax Error Line: 1288.
Menu loaded successfully. MENUGROUP: ACAD
nil
Command:
AutoCAD menu utilities error: null function
(DEFUN-Q AI_SYSVAR (VARS / SAVEVAR PAIR VARNAME VARVALUE VARLIST) (SETQ VARLIST
nil) (DEFUN SAVEVAR (VARNAME VARVALUE / PAIR) (COND ((NOT VARVALUE) (SETQ
VARLIST (CONS (CONS VARNAME (GETVAR VARNAME)) VARLIST))) ((/= (GETVAR VARNAME)
VARVALUE) (SETQ VARLIST (CONS (CONS VARNAME (GETVAR VARNAME)) VARLIST)) (SETVAR
VARNAME VARVALUE)) (T nil))) (COND ((NOT VARS) (FOREACH PAIR VARLIST (SETQ
VARNAME (CAR PAIR) VARVALUE (CDR PAIR)) (SETVAR VARNAME VARVALUE)) (SETQ
VARLIST nil)) ((NOT (EQ (QUOTE LIST) (TYPE VARS))) (PRINC "\nAI_SYSVAR: Bad
argument type.\n")) ((EQ (QUOTE STR) (TYPE (CAR VARS))) (SAVEVAR (CAR VARS)
(CDR VARS))) ((AND (EQ (QUOTE LIST) (TYPE (CAR VARS))) (EQ (QUOTE STR) (TYPE
(CAAR VARS)))) (FOREACH PAIR VARS (SETQ VARNAME (CAR PAIR) VARVALUE (CDR PAIR))
(IF (NOT (EQ (QUOTE STR) (TYPE VARNAME))) (PRINC "\nAI_SYSVAR: Bad argument
type.\n") (SAVEVAR VARNAME VARVALUE)))) (T (PRINC "\nAI_SYSVAR: Error in first
argument.\n"))) (SETQ AI_SYSVAR (CONS (CAR AI_SYSVAR) (CONS (LIST (QUOTE SETQ)
(QUOTE VARLIST) (LIST (QUOTE QUOTE) VARLIST)) (CDDR AI_SYSVAR)))) VARLIST)
(LOAD "C:\\ochistn\\acad-oc2.mnl")
*Cancel*
- и вылетает окно: "Unable to open source file for write, the toolbar change will not be saved c:\ochistn\acad-oc2.mns".

про то, что когда "знаешь где поставить метку"

Вот у знающих то и хотел спросить!... хотябы где рыть... на сортир с дерьмом уже показали, собственно где он стоит догадывался, а поконкретней можно? например какую лопату выбрать?

[gomer]

Сообщение от byackafoot например какую лопату выбрать?

Начнем с того что программа вам досталась не полностью! Второе с чем нужно смириться, ее нужно пересобирать с нуля, начать лучше со своего меню, как уже говорили, в него постепенно добавлять пункты, которые нужны... большинство - простая вставка блоков... это не сложно и хорошо описано в книжке В. Света
Во вложении зародыш вашего меню... Вставка форматок (не всех) там уже есть

[byackafoot]

Вооот!!! спасибо большое!

[Andru1968]

???