[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

[Do$]

1. Обратиться к разработчику программы и узнать у него, нет ли версий под 2014 и 2015 автокады.
2. Если нет - узнать, не мог бы он адаптировать.
3. Если нет - разобраться самому в исходниках и исправить.
4. Если не хватает знаний - найти того, кто это мог бы сделать за спасибо и/или другие виды благодарности.

В представленном коде проблем нет, надо смотреть модуль, написанный на VBA и подгружаемый этим кодом (XREFS_#x.dvb).

[d.mOnII]

Сообщение от Do$ адо смотреть модуль, написанный на VBA и подгружаемый этим кодом (XREFS_#x.dvb).

небыло такого модуля.
просто подгружал лисп и все работало при вызове команд xr (подгрузка одного файла) либо xrm (подгрузка нескольких ссылок)
подкружались лиспы на чистый кад

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

Был. По коду видно - был:

Код:

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

(findfile "XREFS_#x.dvb")

----- добавлено через ~1 мин. -----
Ошибка необязательно именно в приведенном коде. Запускай пошаговую отладку и смотри, где и что происходит

[d.mOnII]

Сообщение от Кулик Алексей aka kpblc Был. По коду видно - был:

это конечно интересно ) но еще раз) на личный ноут ткнул просто голый кад 2011 подгрузил лисп, запустил команду - все работает, без доп настроек в VBA

[Do$]

Просто из комстроки запусти

Код:

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

(findfile "XREFS_#x.dvb")

, какой будет результат?
Первый код с командой XRM без этого файла ну никак не может работать, если мне глаза не изменяют.

[d.mOnII]

Да, действительно, без этого файла xmr на 11 каде работает как xr, прошу прощения, не обратил внимания на этот момент(((

но вопрос пока не в этом, вопрос в том что на 15 и 14 кады вообще не запускаются эти коды, ошибки, которые выбрасывает кад в посте с вопросом

Сообщение от d.mOnII Function is not available in AutoCAD Version 19.1s (LMS Tech). для када 2014 Function is not available in AutoCAD Version 20.0s (LMS Tech). для када 2015

[Do$]

Запустил XR в AutoCAD 2014 x64. В комстроку выдало:

Код:

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

Команда: XR
Xref-Layer not found!!! Choose the proper 'file' and try again!!!

Что я делаю не так? Может, надо какой-то тестовый файл приложить?

[trir]

Всё
Слоёв нет нужных!

[Do$]

Я понимаю, но вот абсолютно нет желания тратить время на их создание .

[d.mOnII]

Сообщение от Do$ Запустил XR в AutoCAD 2014 x64. В комстроку выдало: Код: [Выделить все] Команда: XR Xref-Layer not found!!! Choose the proper 'file' and try again!!! Что я делаю не так? Может, надо какой-то тестовый файл приложить?

Вы все делаете верно.
Судя по сообщению, Вы не используете шаблон с необходимыми слоями.
НО, Ваше сообщение говорит о том что у Вас данный лисп работает, тогда вопрос, почему у меня он не работает(
у меня ругается и не запускает код(

[Лиспер]

d.mOnII, это говорит только о том, что выполнение кода пошло по ветке "отсутствия слоев". И не более того.

[d.mOnII]

Сообщение от 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

Суть вопроса в том что бы для начала хотя бы решить вопрос с ЗАПУСКОМ, у меня он даже не запускается(((

[gomer]

Из кода #1 вырезана проверка версии автокада. Такая проверка видимо использована из-за заскоков автодеска насчет VBA. Вообще за такой код нужно бить по рукам...

[Do$]

А у вас версия AutoCAD не LT случаем?

[Лиспер]

Было же предложено:

Сообщение от Кулик Алексей aka kpblc Запускай пошаговую отладку и смотри, где и что происходит

Каков результат?

[d.mOnII]

"M:\\ACAD_Std_2010\\x_system\\mw_std2010\\layer"

Сбой в одном из блоков лиспа от в этом

Команда: ; ошибка: сбой при выполнении LOAD: "M:\\ACAD_Std_2010\\x_system\\mw_std2010\\layer"


наверно что-то надо в этом пути поменять?

[Лиспер]

Возможно. Может быть, файл не существует. Или ошибка в коде.

[d.mOnII]

прошу прощения, но обнаружил еще один блок из-за которого вылетает ошибка указанная впервом посте:

Код:

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

 (/ acad_ver ver_14 ver_15
			  sys_cmd sys_ucsf sys_rmod
			  dat_nam dat_nam_new file
			  dat_help
			  undo_count
			  lay_lst lay_nam)
	(setq
		
		acad_ver (getvar "ACADVER")
		
		ver_14 (wcmatch acad_ver "14.*")
		ver_15 (or (wcmatch acad_ver "15.*")
		(wcmatch acad_ver "16.*")   ;; ACAD 2004-2006
                (wcmatch acad_ver "17.*") ;; ACAD 2007-2009
		(wcmatch acad_ver "18.*")) ;; ACAD 2010-2012

[Do$]

Тоже прошу прощения, но лично мне это "гадание по фотографии" надоело. То один листинг, то второй... Вынужден отослать к своему первому сообщению в этой теме. Успехов.