[d.mOnII]

Добрый день.
Я пользовался кодом лисп на акаде 2007-2011, но с переходом на новое место работы и формировании проектного отдела столкнулся с такой от проблемой.
преобретая акад, мы можем приобрести только последнюю версию, а это 2015 кад (либо 2014 еще можно найти), с одной стороны и клучшему, поюзал кад 2014 вроде поприятнее интерфейс ну и пару полезных фичЪ есть, НО ни один код на лиспе теперь не работает, выдает от такое сообщение:

Function is not available in AutoCAD Version 19.1s (LMS Tech). для када 2014 Function is not available in AutoCAD Version 20.0s (LMS Tech). для када 2015

что можно сделать? посоветуйте, пожалуйста
код такой подгрузка ссылок массивом

Код:

[Выделить все]

 
(defun c:xrm ( / actlayer AcadVersion dvbFile StartMacro AcadApp xrefLayerName)

   (setvar "cmdecho" 0)

   (setq xrefLayerName NIL)
   (if (tblsearch "LAYER" "XREF")         (setq xrefLayerName "XREF") )
   (if (tblsearch "LAYER" "LL_STDL_XREF") (setq xrefLayerName "LL_STDL_XREF") )  ;15.03.04
   (if (tblsearch "LAYER" "AW_STDL_XREF") (setq xrefLayerName "AW_STDL_XREF") )  ;31.01.08
      
   (setq dvbFile (findfile "XREFS_#x.dvb"))
(princ "\n xrefLayerName:'")
(princ xrefLayerName)
(princ "'found!!!")
(princ)

   (if dvbFile
     (progn
        (setq actlayer (getvar "clayer"))
        (if xrefLayerName
           (progn
             (command "_layer" "_thaw"   xrefLayerName "")
             (command "_layer" "_unlock" xrefLayerName "")
             (command "_layer" "_on"     xrefLayerName "")
        
             (setq StartMacro (strcat dvbFile "!Modul1.Start"))
             (setq AcadApp (vlax-get-acad-object))
             (vla-loadDVB   AcadApp dvbFile)
             (Command "_-vbarun" StartMacro)

;             (vla-unloadDVB AcadApp dvbFile)   => 21.09.2011 The unload command causes in AutoCAd 2012 an "Execution error
           )
           (progn
             (alert "ERROR: Layer XREF and NN_STDL_XREF not found !!")
           )
        );fi xrefLayerName   
     )
     (progn
       (princ "\n ** Program XREFS_#x.DVB not found !")
       (c:xa)  ;
     )  
   );fi dvb_name

   (princ)
   
); ende xrm

[gomer]

так и будешь огрызки свои бросать?

[d.mOnII]

сделал так
тупо дописал в код две строчки

Код:

[Выделить все]

 		(wcmatch acad_ver "19.*")
		(wcmatch acad_ver "20.*"))

все заработало но! при исполнении кода я наблюдаю в командной строке сообщения "неизвестная команда", но все так быстро происходит что не могу понять, что не выполняет код...
пошаговую отладку запустить не получается/ не знаю как пользоваться, а гугл не помогает, интуитивно не разобрался(
запускаю accoreconsole.exe а что дальше не понимаю, на команду кода пишет следующее: неизвестная команда, читай по F1 а что там читать ?...

так что правильность работы кода проверить не получается, но вижу что файл формируется и вижу что файл прикрепляется согласно всех требований

----- добавлено через ~2 мин. -----

Сообщение от gomer так и будешь огрызки свои бросать?

прошу прощения, но это все в разных файлах а не в одном, а подгружались все лиспы одновременно, сейчас по одному гружу и смотрю что происходит

[Кулик Алексей aka kpblc]

Сообщение от d.mOnII пошаговую отладку запустить не получается/ не знаю как пользоваться

http://autolisp.ru/2009/09/10/vlide-misc-01/
http://autolisp.ru/2009/09/12/vlide-misc-02/

Сообщение от d.mOnII запускаю accoreconsole.exe

О как, начинается самое веселое! Про что еще не рассказано?
http://autolisp.ru/2014/03/04/accoreconsole-lisp-debug/

----- добавлено через 54 сек. -----
Добавлю: консольный ACAD вообще-то не предназначен для ооочень многих вещей.

[d.mOnII]

Сообщение от Кулик Алексей aka kpblc О как, начинается самое веселое! Про что еще не рассказано? http://autolisp.ru/2014/03/04/accoreconsole-lisp-debug/

именно по этой ссылке я и вышел на консоль, но методом тыка не смог с ним справиться) спасибо за ваше терпение, господа, ща поизучаю

Сообщение от Кулик Алексей aka kpblc http://autolisp.ru/2009/09/10/vlide-misc-01/ http://autolisp.ru/2009/09/12/vlide-misc-02/

и, надеюсь, пролью свет на свою темень

----- добавлено через ~14 мин. -----
открыл окно VLIDE
открыл проект LISP
нажимаю F8 - глухо, ищу в меню отладку, нахожу, но половина команд из выпадающего списка меню "отладка" неактивна, в том числе и шаг с заходом

----- добавлено через ~20 ч. -----
Так как выполнить пошаговую отладку? если меню неактивно(

[d.mOnII]

Добрый день.
В общем по-находил я все файлы и этот #.DVB

пытаюсь теперь впринципе разобраться в кодах

Код:

[Выделить все]

    (if dvbFile
     (progn
        (setq actlayer (getvar "clayer"))
        (if xrefLayerName
           (progn
             (command "_layer" "_thaw"   xrefLayerName "")
             (command "_layer" "_unlock" xrefLayerName "")
             (command "_layer" "_on"     xrefLayerName "")
        
             (setq StartMacro (strcat dvbFile "!Modul1.Start"))
             (setq AcadApp (vlax-get-acad-object))
             (vla-loadDVB   AcadApp dvbFile)
             (Command "_-vbarun" StartMacro)

;             (vla-unloadDVB AcadApp dvbFile)  

помогите, пожалуйста, разобраться с этим (setq AcadApp (vlax-get-acad-object))
где эта функция должна присутствовать? и что она делает?

----- добавлено через ~4 мин. -----
все чем порадовал гугл http://docs.autodesk.com/MAP/2014/RU...=ACDd30e620190
небольшой справкой из када (но что-то все равно не понятно(((( )

[gomer]

Сообщение от d.mOnII где эта функция должна присутствовать? и что она делает?

в коде, это не функция, а выражение, присваивает переменной AcadApp ссылку на текущий экземпляр автокада

[d.mOnII]

хммм, тогда не понятна ошибка када error: no function definition: vlax-get-acad-object при запуске команды

[Кулик Алексей aka kpblc]

http://autolisp.ru/2010/06/09/no-fun...t-acad-object/

[d.mOnII]

Спасибо, но я так и не понял куда добавлять команду VL-Load-com
Между этих двух строк?

Код:

[Выделить все]

              (setq StartMacro (strcat dvbFile "!Modul1.Start"))
             (setq AcadApp (vlax-get-acad-object))

но тогда я вижу ошибку: xrefLayerName:'AW_STDL_XREF'found!!!Ошибка при выполнении

p.s. весь блок прописан в посте вопроса defun c:xrm


данный слой есть
AW_STDL_XREF присутствует
локальная функция для прикрепления ссылок по команде ХА работает исправно, а вот xrm что-то выпендривается(((

[Кулик Алексей aka kpblc]

Сообщение от d.mOnII я так и не понял куда добавлять команду VL-Load-com

В самое начало лиспа.

[d.mOnII]

покрутил повертел

Код:

[Выделить все]

         (vl-load-com)
             (setq StartMacro (strcat dvbFile "!Modul1.Start"))
             (setq AcadApp (vlax-get-acad-object))
             (vla-loadDVB   AcadApp dvbFile)
             (Command "_-vbarun" StartMacro)

Команда: XRM
xrefLayerName:'AW_STDL_XREF'found!!!Инициализация системы VBA...Ошибка при выполнении

если я правильно понимаю - проблема в самом файле VBA?

Добавил и так

Код:

[Выделить все]

         (vl-load-com)
(defun c:xrm

и так

Код:

[Выделить все]

 (defun c:xrm ( / actlayer AcadVersion dvbFile StartMacro AcadApp xrefLayerName)
        (vl-load-com)

результат такой же:
xrefLayerName:'AW_STDL_XREF'found!!!Инициализация системы VBA...Ошибка при выполнении

[Кулик Алексей aka kpblc]

Вполне легко.

[gomer]

Ошибка скорей всего в модуле VBA. Возможно он не адаптирован под новый автокад...

[d.mOnII]

Блин, а VBA не посмотреть( запаролен((((((((

[gomer]

ну, тогда в Поиск

[d.mOnII]

? чем поиск может помочь?